Vba pb de somme

Résolu
onra -  
 onra -
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

1 réponse

onesdf Messages postés 375 Date d'inscription   Statut Membre Dernière intervention   120
 
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
0
onra
 
oui désolé,

en réalité ou lieu de commencer à 2, je commence à 11
0
onesdf Messages postés 375 Date d'inscription   Statut Membre Dernière intervention   120 > onra
 
C'est pas très clair tes infos, où se trouvent tes données à additionner ?
0
onra
 
je viens d'essayer ta formule.
ca marche nickel.
merci beaucoup

car là, j'étais vraiement coincé
0