Commentaire conditionnel

Je voudrais afficher un commentaire dans une cellule en fonction de l'état d'un option button dans un userform : si le bouton est coché alors rajouter à la cellule D25 le commentaire "attention..."

Private sub opt_1_Click()
 If Me.opt_1 = -1 Then
  Worksheets("kkkk").Range("D25").Comment.Text ("Bonjour" & Chr(10) & "La case est cochée")
 Else
  Worksheets("kkkk").Range("D25").Comment.Text ("Bonjour" & Chr(10) & "La case est pas cochée")
 End If
 end sub

on est pas obligé de déclencher l'événement avec le clic sur le bouton d'option bien sur

Auteur :

Mots clefs associés à cette page : ,