Vba pb de somme

Résolu/Fermé
onra - 12 juin 2008 à 13:26
 onra - 12 juin 2008 à 13:48
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 mercredi 21 mai 2008 Statut Membre Dernière intervention 17 octobre 2008 120
12 juin 2008 à 13:44
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
oui désolé,

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

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