Problème boucle for
Hello !
J'ai un petit soucis avec mon petit bout de code : je souhaite pouvoir remplir une shape de deux couleurs différentes en fonction de la valeur d'une chekbox.
J'ai bien renommé les shapes 1 ; 2 (même valeur que pour le i)
Sub traffic()
Dim i As Integer
i = 1
If Cells(i, 1).Value = "True" Then
ActiveSheet.Shapes(i).Fill.ForeColor.RGB = vbWhite
Else
ActiveSheet.Shapes(i).Fill.ForeColor.RGB = vbBlack
End If
End Sub
Lorsque je le fais sans la boucle for ; en mettant directement i=1 ; le programme fonctionne. Dès que je mets la boucle il ne réponds plus ; je vois pas l'erreur.
Sub traffic()
Dim i As Integer
For i = 1 to i = 2
If Cells(i, 1).Value = "True" Then
ActiveSheet.Shapes(i).Fill.ForeColor.RGB = vbWhite
Else
ActiveSheet.Shapes(i).Fill.ForeColor.RGB = vbBlack
End If
Next i
End Sub
Le but est bien sur d'aller plus loin que i=2 mais bon je suis déjà bloqué donc je revois à la baisse mes intentions
Si vous savez m'aider !
Salut Hello25 et
a tester,
Sub traffic()
Dim i As Integer
For i=1 To 2
If Cells(i, 1).Value = "True" Then
ActiveSheet.Shapes(i).Fill.ForeColor.RGB = vbWhite
Else
ActiveSheet.Shapes(i).Fill.ForeColor.RGB = vbBlack
End If
Next i
End Sub@++
Hello m3ellem1 ;
Excellent ca fonctionne ! Merci pour ta rapidité