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
=>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
 

Discussions similaires

Réponses
16
Affichages
523
Réponses
9
Affichages
284

Statistiques des forums

Discussions
298 001
Messages
1 965 026
Membres
200 809
dernier inscrit
Ksiba