Microsoft 365 décocher un checkbox vba si

[gothc]

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

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

 

[ChTi160]

Re
n'hésite pas si besoin !
Bonne journée
jean marie

 

[soan]

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

 

[ChTi160]

Re
Effectivement soan !
introduction d'une Variable "sh"
qui allège le Code !
jean marie

 

[gothc]

merci