Microsoft 365 décocher un checkbox vba si

gothc

XLDnaute Occasionnel
Bonsoir le forum
j'ai une macro ci joint je cherche comment décocher ma checkbox si ma combobox est vide
j'ai trouvé comment avoir un message si ma combobox est vide mais la case reste cocher
merci de votre aide pour info je travaille sur la feuil
VB:
Private Sub CheckBox1_Click()
If ComboBox1.Value = "" Or ComboBox1.Value = "" Then MsgBox ("Vous devez sélectionner votre Nom dans la Liste déroulante.") ': Exit Sub

Worksheets("Paramètres_Application").Range("r2") = Abs(Me.CheckBox1)
CheckBox1.Caption = Worksheets("Paramètres_Application").Range("s2")
If CheckBox1.Value = True Then
   Worksheets("Paramètres_Application").Range("u2") = Date
Else
     Worksheets("Paramètres_Application").Range("u2") = ""
End If

End Sub
 

soan

XLDnaute Barbatruc
Inactif
=>jean marie

* pour MsgBox, tu n'as pas besoin de mettre des parenthèses :

met directement : MsgBox ""

* si tu regardes mon code VBA précédent, tu verras que j'ai utilisé
With ActiveSheet pour éviter plusieurs répétitions de ActiveSheet.

(mais c'est juste pour info)

soan
 

Statistiques des forums

Discussions
311 720
Messages
2 081 920
Membres
101 840
dernier inscrit
SamynoT