Vba pb de somme
Résolu
onra
-
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
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
A voir également:
- Vba pb de somme
- Formule somme excel colonne - Guide
- Somme si couleur - Guide
- Somme en anglais excel - Guide
- Incompatibilité de type vba ✓ - Forum Excel
- Somme excel ne fonctionne pas ✓ - Forum Excel
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
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
en réalité ou lieu de commencer à 2, je commence à 11
ca marche nickel.
merci beaucoup
car là, j'étais vraiement coincé