VBA Pb de somme
onra
-
Canard007 Messages postés 5936 Statut Contributeur -
Canard007 Messages postés 5936 Statut Contributeur -
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
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
merci
A voir également:
- VBA Pb de somme
- Formule somme excel ligne - Guide
- Somme si couleur - Guide
- Somme en anglais excel - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
c est un oubli
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
Par contre je n'ai pas trouver la section dont tu parle
sinon pour ton code je ne suis pas sure mais je pense que ton select ne selectionne que une cellule à la fois...donc normal qu'a la fin il soit sur la derniere uniquement.
Tu devrait faire à la sortie de ta boucle un selecte sur le range de "i"
Sub selctrionner()
Dim i As Integer
Dim Cell As Range
i = 11
While (Not (Cells(12, i) = ""))
i = i + 2
Wend
Cells(12, i).Select
End Sub
Mais dans ce cas là ca sélectionne la première cellule vide
Cells(12, i).Select
Range(Cells(12,11),Cells(12,i)).select
cela t'as t'il aidé?