VBA Boucle et Addition
Résolu
SleepyAshes
Messages postés
34
Statut
Membre
-
SleepyAshes Messages postés 34 Statut Membre -
SleepyAshes Messages postés 34 Statut Membre -
Bonjour à vous :)
Voilà, je suis un débutant en programmation et j'ai besoin de vos lumières.
Je me retrouve face à un tableau avec 890 lignes et 20 colonnes. La colonne qui m'interesse est la colonne I La première lignes contient le titre de la colonne et le reste des lignes contiennent des nombres. Je dois faire la somme des 889 lignes en utilisant obligatoirement une boucle dans ma macro. Pouvez vous m'aidez? Merci :)
Voici ma boucle qui fait planter excel:
Sub VAddition()
Dim Nblignes As Double
Dim i
Dim j
Nblignes = Cells(Rows.Count, "A").End(xlUp).Row
j = Cells(2, 9).Value
For i = 1 To Nblignes
i = j + 1
Next i
MsgBox i
End Sub
Voilà, je suis un débutant en programmation et j'ai besoin de vos lumières.
Je me retrouve face à un tableau avec 890 lignes et 20 colonnes. La colonne qui m'interesse est la colonne I La première lignes contient le titre de la colonne et le reste des lignes contiennent des nombres. Je dois faire la somme des 889 lignes en utilisant obligatoirement une boucle dans ma macro. Pouvez vous m'aidez? Merci :)
Voici ma boucle qui fait planter excel:
Sub VAddition()
Dim Nblignes As Double
Dim i
Dim j
Nblignes = Cells(Rows.Count, "A").End(xlUp).Row
j = Cells(2, 9).Value
For i = 1 To Nblignes
i = j + 1
Next i
MsgBox i
End Sub
1 réponse
Bonjour SleepyAshes, bonjour le forum,
Essaie comme ça :
À plus,
ThauTheme
Essaie comme ça :
Dim S As Double 'déclare la variable S (Somme) Dim I as Integer 'déclare la variable I (Incrément) For I = 2 To 889 'boucle des lignes 2 à 889 S = S + Cells(I, 9).Value 'définit la somme S en ajoutant la cellule ligne I colonne 9 (=colonne I) Next I 'prochaine ligne de la boucle MsgBox S 'affiche la somme s dans un message
À plus,
ThauTheme
SleepyAshes
Messages postés
34
Statut
Membre
Bonjour et merci infiniment du temps que vous avez pris pour m'aider!! Je vous souhaite une bonne journée et encore merci :)