VBA Pb de somme
onra
-
Canard007 Messages postés 5954 Date d'inscription Statut Contributeur -
Canard007 Messages postés 5954 Date d'inscription 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
- Somme de plusieurs cellules excel - Guide
- Somme en anglais excel - Guide
- Somme si couleur - Guide
- Wannonce somme - Guide
- L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
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é?