Additionner des valeurs dans une variable dans une boucle while

Bonjour,

Je n'arrive pas à ajouter plusieurs valeurs de cellules dans une seule et même variable. J'imagine que cela est simple mais je n'y arrive pas...

Je voudrais que lorsque mes cellules en i,14 contiennent le mot "a", le programme vient prendre la valeur correspondante en i,16 et l'ajouter à ma variable "jt" .

Le problème étant qu'il ne garde que une seule valeur alors que je voudrais qu'il prenne l'intégralité des valeurs en i,16 en les additionnant dans la variable "jt".

Je vous ai mis un début de programme ci-dessous.

Merci à ceux qui pourront m'aider.

Private Sub Refresh2_Click()

i = 7

Dim jt As Integer

While Cells(i, 14).Value <> ""

If Cells(i, 14).Text = "a" Then

jt = Cells (i, 16).Value

End If

i = i + 1

Range("W9") = jt

Wend

End Sub

Bonjour,

Un test avec code commenté :

Sub SOMME()
Dim I%, JT%
I = 7 'Débute à la 7ème ligne 
While Cells(I, 14) <> "" 'Tant que cellule non vide
    If Cells(I, 14) = "a" Then JT = JT + Cells(I, 16) 'Si la cellule est égale a à alors on somme JT avec le contenu de la cellule de la colonne 16
    I = I + 1 'On incrémente I pour passer à la cellule suivante
Wend
[W9] = JT 'On met la valeur de JT en W9
End Sub

Votre erreur consistait à ne pas sommer JT avec lui même et d'avoir inclu W9 = JT dans la boucle, ce qui faisait que JT était réinitialisé à chaque fois car il ne se sommait pas, ne prenait que la dernière valeur et venait écraser la valeur en W9.

Si ça ne convient pas merci de préciser le besoin.

Cdlt,

Comme d'habitude vous être trop fort, merci beaucoup !