Discussion :

[Berny77]

Bonjour,

Je souhaite faire la somme d'une colonne (� la fin de celle-ci), mais comme elle n'a pas toujours le meme nombre de ligne... j'ai de la difficult� � trouver le bon code! Apr�s quelques essaie infructueux... j'aimerais soliciter votre aide.
Merci d'avance!!!

[zyhack]

Bonjour

essaye ceci tu devrais trouver ton bonheur et ne devrait pas �tre compliqu� � modifier suivant tes besoins

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
 
  Dim x As Integer, L As Integer, nombre_de_colonne As Integer
 
  nombre_de_colonne = 3
 
  For x = 1 To nombre_de_colonne
    L = Cells(Rows.Count, x).End(xlUp).Row
    Cells(L + 1, x).Formula = "=SUM(" & Cells(2, x).Address & ":" & Cells(L, x).Address & ")"
  Next
End Sub

bon courage

[Berny77]

Merci beaucoup pour votre r�ponse!

Apres l'avoir tester... je voudrais p�ciser mon probl�me :

Je souhaite faire la somme d'une collone de chiffre dans la cellule � la fin de ma colonne de chiffre. Par contre d'une fois � l'autre, ma colonne de chiffre n'aura pas le meme nombre de chiffre. Cela peut varier de 10 chiffres � sommariser jusqu'� 100 chiffres.

J'ai toujours 1 seule colonne de chiffre dont je veux faire la somme.

J'essaie de modifier votre code, mais je n'y arrive pas!

PS Ce forum est d'une uitlit� indispensable. Bravo � tous!!!
Et un merci particulier � zyhack!!!

[zyhack]

Je ne sais pas si tu as bien compris le mode de fonctionnement de ce code et des instructions qui le compose alors je l'ai comment� un maximum afin qu'il soit le plus clair possible.

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub test()
 
  Dim x As Integer, L As Integer, nombre_de_colonne As Integer
 
  'Pour les colonnes --> 1 = colonne A , 2 = colonne B etc...
 
  numero_derniere_colonne = 5 'exemple  5 = colonne E
 
  'pour x = 1 on commence pour la colonne A
  'Donc on boucle de la colonne A a la colonne E
  For x = 1 To numero_derniere_colonne
 
    'cells( Ligne , colonne) si ligne= 2 et colonne =5 correspond à range("E2")
    'Rows.count revient à mettre 65535 c'est a dire la derniere ligne d'une feuille excel
    'End(xlup) remonte jusqu'a la la premiere cellule non vide de la colonne x
    'Donc L est egale a la dernière cellule pleine de la colonne en cours de traitement
    L = Cells(Rows.Count, x).End(xlUp).Row
 
    'Cells(L + 1, x)  L+1 permet d'ecrire la formule dans la cellule juste dessous la dernière valeur de la col x
    '.Formula pour ecrire une formule dans la cellule
    ' et la formule par elle même, en VBA la formule est en anglais ce qui est egal à
 
    ' si le traitement est à la col 1 (colonne A) et L = 100
 
    '=SUM(" & Cells(2, x).Address & ":" & Cells(L, x).Address & ")"
    '=SOMME(       $A$2              :          $A$100           )
 
    Cells(L + 1, x).Formula = "=SUM(" & Cells(2, x).Address & ":" & Cells(L, x).Address & ")"
 
    'puis on boucle sur la colonne suivante
  Next
End Sub

donc bien lire les commentaires qui je l'esp�re te permettrons ce coup ci de le modifier selon tes besoins.