VBA Boucle et Addition

Résolu/Fermé

SleepyAshes Messages postés 34 Date d'inscription mardi 31 mai 2016 Statut Membre Dernière intervention 29 juin 2017 - Modifié par SleepyAshes le 31/05/2016 à 17:14
SleepyAshes Messages postés 34 Date d'inscription mardi 31 mai 2016 Statut Membre Dernière intervention 29 juin 2017 - 31 mai 2016 à 17:17

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

A voir également:

Addition vba
Formule addition excel - Guide
Find vba - Astuces et Solutions
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

ThauTheme Messages postés 1442 Date d'inscription mardi 21 octobre 2014 Statut Membre Dernière intervention 29 juillet 2022 160
Modifié par ThauTheme le 31/05/2016 à 17:15

Bonjour SleepyAshes, bonjour le forum,

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 Date d'inscription mardi 31 mai 2016 Statut Membre Dernière intervention 29 juin 2017
31 mai 2016 à 17:17

Bonjour et merci infiniment du temps que vous avez pris pour m'aider!! Je vous souhaite une bonne journée et encore merci :)

Discussions similaires

[shell] Comment additionner des valeurs

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Discussions similaires

Newsletters