CheckBox

Bonsoir à tous,

Dans un UserForm, j'ai trois Checkbox dont les codes sont pratiquement identiques:

Private Sub CheckBox1_Click()
Dim Chemin As String
Dim CheminImage As String
Chemin = ThisWorkbook.Path & "\Images\Level\"
CheminImage = Chemin & "Diabète.jpg"
If CheckBox1.Value = True Then
   If Dir(CheminImage) <> "" Then
      Image3.Picture = LoadPicture(CheminImage)
      Else
      Image3.Picture = LoadPicture
   End If
Else
Image3.Picture = LoadPicture
End If
End Sub

Je voudrai que lorsque je sélectionne une CheckBox que les autres se désélectionne automatiquement. Pourriez-vous m'aider?

Merci par avance

Bonjour,

Je voudrai que lorsque je sélectionne une CheckBox que les autres se désélectionne automatiquement. Pourriez-vous m'aider?

Dans ce cas .... puis-je suggérer de remplacer les CheckBox par des OptionButton ?

Si l'un est sélectionné, quelque soit l'état des autres, ils seront désélectionnés.

ric

Bonsoir ric,

Dans ce cas mon code risque t il de changer?

Merci beaucoup

Bonjour,

Pas vraiment, excepté si dans le code tu fais référence aux noms "CheckBox" qui sera à remplacer par "OptionButton".

ric

Merci beaucoup ric,

J' essaie de suite.

Merci beaucoup

Super ric,

Cela fonctionne parfaitement

Un grand MERCI

ric