XL 2010 Image et CheckBox

[Toubabou]

Bonsoir à tous,
Je suis à la recherche d'un code qui me permettrait lorsque ma "CheckBox1" = vrai que mon image "Diabète.jpg" s'affiche dans mon "Image3".

Pourriez-vous m'aider à faire ce code? Pour l'instant j'ai trouvé ce qui suit mais j'ai un message d'erreur:

Le "i" est surligné avec le message:
Erreur de compilation: Variable non définie.

Private Sub CheckBox1_Click()
Image1.Visible = CheckBox1.Value
For i = 1 To 2000
    DoEvents
Next
End Sub

Private Sub Image3_BeforeDragOver(ByVal Cancel As MSForms.ReturnBoolean, ByVal Data As MSForms.DataObject, ByVal X As Single, ByVal Y As Single, ByVal DragState As MSForms.fmDragState, ByVal Effect As MSForms.ReturnEffect, ByVal Shift As Integer)
lblImage.Picture = LoadPicture(CheminImage & Diabète.jpg)
End Sub

Merci par avance.

 

[phlaurent55]

Bonjour toubadou,

Le message est on ne peut plus clair, il suffit de déclarer la variable.

Dim I As Integer

Mais je ne vois pas l'utilité de cette boucle

À+
Philippe

 

[Toubabou]

Je vous remercie pour votre réponse, mais je suis obligé d'avouer que je ne comprend encore grand chose en VBA