aide pour déterminer une 2ème variable

[riegel]

Bonsoir le Forum,

J'aurais besoin d'aide pour définir ma variable j en fonction de n dans la macro suivante :
...
For i = 11 To 36 Step 5
j = i-9-n*4
If Sheets("MEFC").Cells(j, 7).Value <> Sheets("MEFC").Cells(j, 7).Value Then
Range("AG" & i).Interior.ColorIndex = 3
Else
Range("AG" & i).Interior.ColorIndex = 0
End If
Next
...
En fait, dans la première boucle il faut que n=0 soit i=11 et j=2, dans la deuxième boucle n=1 soit i=16 et j= 3 et la dernière boucle (la 6ème), n=5 soit i=36 et j = 7.

A moins qu'il ne soit plus facile de faire complètement différemment.

D'avance, je vous remercie pour votre aide.

Cordialement,

Riegel

 

[ROGER2327]

Re : aide pour déterminer une 2ème variable

Bonjour riegel

Je remarque que la valeur de l'expression

[COLOR="DarkSlateGray"][B]Sheets("MEFC").Cells(j, 7).Value <> Sheets("MEFC").Cells(j, 7).Value[/B][/COLOR]

est toujours 0 (ou FAUX). Par conséquent, la structure

[COLOR="DarkSlateGray"]   If Sheets("MEFC").Cells(j, 7).Value <> Sheets("MEFC").Cells(j, 7).Value Then
      Range("AG" & i).Interior.ColorIndex = 3
   Else
      Range("AG" & i).Interior.ColorIndex = 0
   End If[/COLOR]

équivaut à

[COLOR="DarkSlateGray"][B]      Range("AG" & i).Interior.ColorIndex = 0[/B][/COLOR]

qui ne dépend ni de j, ni de n.

Donc il vous suffit d'écrire :

[COLOR="DarkSlateGray"][B]   For i = 11 To 36 Step 5
      Range("AG" & i).Interior.ColorIndex = 0
   Next[/B][/COLOR]

ROGER2327
#3145