Résolu : Additionner les valeurs du "FOR - Next"

[Jubei1]

Bonjour à tous.

Je me tourne vers vous car je n'ai pas réussi à trouver la solution après plusieurs recherche^^. Peut être que j'exploite pas la bonne piste tout simplement...

Donc voila mon souci :
Je souhaite mettre dans une cellule (A2), l'addition des cellulles se trouvant à la ligne de la date d'aujourd'hui et des colonnes J , N, R etc jusqu'à la colonne BR. J'aurai pu faire avec des recherchesV mais il y en aurait trop. Voici le code que j'ai fait mais qui me prends que la valeur de la dernier cellule du For (ce qui est normal dailleurs).

Sheets("Suivi").Select
Range("F1").Select 'ça c'est la date du jour
Selection.NumberFormat = "dd"
Range("E5").Select
Do
ActiveCell.Offset(1, 0).Select 'ça c'est la colonne ou il y a les dates (pas très estéthique comme méthode je sais)
Loop Until ActiveCell.Value = Range("F1").Value
ligne = ActiveCell.Row

For x = 10 To 70 Step 4

Range("A2").Value = Cells(ligne, x)

Next x

 

[Pierrot93]

Re : Additionner les valeurs du "FOR - Next"

Bonjour,

peut être comme ceci :

For x = 10 To 70 Step 4
Range("A2").Value = Range("A2").Value + Cells(ligne, x)
Next x

bon après midi
@+

 

[Jubei1]

Re : Additionner les valeurs du "FOR - Next"

Merci Pierrot93, ça marche. En fait j'aurai pu y penser.
En espérant que ce topic serve à quelqu'un d'autre.

A+