Vba pb de somme
Résolu
Bonjour,
J'essaye de faire une somme sur toute une ligne dont je ne connais pas la fin.
Par exemple: je prend la ligne 12
Colonne 1: j'ai ma somme
Colonne 2,4 ,6, 8 ....: J'ai mes valeurs a additionner
J'ai donc dommencer par faire un code pour sélectionner l'ensemble de mes cellules jusqu'a trouver un vide. Mais mon code ne selectionnne que la dernière cellules.
Deplus, je ne sais pas trop comment faire pour insérer ma somme dans le code.
Bref, un petit coup de main serait le bien venu
Sub selctrionner()
Dim i As Integer
Dim Cell As Range
i = 11
While (Not (Cells(12, i) = ""))
Cells(12, i).Select
i = i + 2
Wend
End Sub
merci
J'essaye de faire une somme sur toute une ligne dont je ne connais pas la fin.
Par exemple: je prend la ligne 12
Colonne 1: j'ai ma somme
Colonne 2,4 ,6, 8 ....: J'ai mes valeurs a additionner
J'ai donc dommencer par faire un code pour sélectionner l'ensemble de mes cellules jusqu'a trouver un vide. Mais mon code ne selectionnne que la dernière cellules.
Deplus, je ne sais pas trop comment faire pour insérer ma somme dans le code.
Bref, un petit coup de main serait le bien venu
Sub selctrionner()
Dim i As Integer
Dim Cell As Range
i = 11
While (Not (Cells(12, i) = ""))
Cells(12, i).Select
i = i + 2
Wend
End Sub
merci
Configuration: Windows 2000 Internet Explorer 6.0
1 réponse
-
Salut,
Je ne comprends pas pourquoi tu initialises ton i à 11 vu que tes données se trouvent en colonnes 2, 4, 6 ...
Ensuite ta boucle sélectionne bien ta dernière colonne où tu as tes données, mais i contient l'index de cette colonne +2
Donc pour ta formule tu peux mettre :
Cells(12, 1).Formula = "=SUM(" & Range(Cells(12, 2), Cells(12, i - 2)).Address & ")"
A condition que tu n'aies rien dans tes colonnes impaires-
-
@onraC'est pas très clair tes infos, où se trouvent tes données à additionner ?
-
-
