M
matt
Guest
Je suis débutant et j'aimerais créer un programme colorant une image en fonction des données rentrées dans une autre colonne, sans boucle j'y arrive mais avec une boucle pas moyen, surement car je ne maitrise pas encore bien l'instruction for...to...next.
Voilà ce que j'ai essayé:
En utilisant Bi, j'aimerais que le programme comprenne B1 puis B2 -> B14
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 14
If Range("Bi") = 1 Then
Image14.BackColor = &HFF&
ElseIf Range("Bi") = 2 Then
Image14.BackColor = &H80FF&
ElseIf Range("Bi") = 3 Then
Image14.BackColor = &HFFFF&
ElseIf Range("Bi") = 4 Then
Image14.BackColor = &HFFFF00
ElseIf Range("Bi") = 5 Then
Image14.BackColor = &HFF8080
ElseIf Range("Bi") = 6 Then
Image14.BackColor = &HFF0000
End If
Next i
End Sub
Si vous pouviez m'aider, d'avance merci
Voilà ce que j'ai essayé:
En utilisant Bi, j'aimerais que le programme comprenne B1 puis B2 -> B14
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To 14
If Range("Bi") = 1 Then
Image14.BackColor = &HFF&
ElseIf Range("Bi") = 2 Then
Image14.BackColor = &H80FF&
ElseIf Range("Bi") = 3 Then
Image14.BackColor = &HFFFF&
ElseIf Range("Bi") = 4 Then
Image14.BackColor = &HFFFF00
ElseIf Range("Bi") = 5 Then
Image14.BackColor = &HFF8080
ElseIf Range("Bi") = 6 Then
Image14.BackColor = &HFF0000
End If
Next i
End Sub
Si vous pouviez m'aider, d'avance merci