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

 

[M12]

Bonsoir
Y a des "trucs" qui me dépasse

If ComboBox1.Value = "" Or ComboBox1.Value = "" Then

 = Abs(Me.CheckBox1)

 

[gothc]

oui pas besoin du

ComboBox1.Value = "" Or

 

[gothc]

pour le code Abs(Me.CheckBox1) 1 ou 0 dans R le code fonctionne très bien

 

[ChTi160]

Bonsoir gothc
Bonsoir le Fil ,le Forum
Pas de fichier ?
Tout ce matériel ce trouve sur une Feuille (pas dans un Userform)

Private Sub CheckBox1_Click()
Worksheets ("Paramètres_Application")
   If .ComboBox1.Value = "" Then MsgBox ("Vous devez sélectionner votre Nom dans la Liste déroulante."): Exit Sub
      .Range("r2") = Abs(Me.CheckBox1)
      .CheckBox1.Caption = .Range("s2")
      .Range("u2") = IIf(.CheckBox1.Value = True, Date, Empty)
End With
End Sub

Rien compris , mais Bon Lol
Bonne fin de Soirée
jean marie

 

[gothc]

je vais faire un fichier jean Marie

 

[Dranreb]

Bonsoir.

Rien compris , mais Bon Lol

Explication: En VBA tout comme dans les formules Excel, lorsqu'un Boolean est impliqué dans une opération arithmétique il est converti en nombre. Mais à la différence d'Excel True devient -1 et non 1. Pour obtenir 1, un signe '-' devant Me.CheckBox1.Value conviendrait aussi bien que Abs(Me.CheckBox1.Value)
Remarque: Il n'est jamais utile de mettre = True derrière une expression Boolean, car la nouvelle expression Boolean ainsi formée a toujours la même valeur que l'expression seule.
Et au lieu de Expression = False, préférez Not Expression, c'est mieux.

 

[gothc]

je vais faire le test Dranred merci
je laisse un fichier avec un exemple jean marie Merci

 

[ChTi160]

Bonjour gothc
Bonjour Bernard ,le Forum
merci pour ces éclairages que je vais mettre en pratique !
j'e pensais que :

If ChexkBox1=True Then
'était plus explicite que
If CheckBox1 Then

gothc ! je regarde ton Fichier .
Bonne Journée
jean marie

 

[ChTi160]

Re
ce que j'ai modifié

Private Sub CheckBox1_Click()
With Worksheets("Paramètres_Application")
   If ActiveSheet.ComboBox1.Value = "" Then MsgBox ("Vous devez sélectionner votre Nom dans la Liste déroulante."): Exit Sub
      .Range("r2") = -ActiveSheet.CheckBox1
      ActiveSheet.CheckBox1.Caption = .Range("s2")
      .Range("u2") = IIf(ActiveSheet.CheckBox1, Date, Empty)
End With
End Sub

jean marie

 

[gothc]

Bonjour jean Marie ton code fonctionne mais il ne décoche pas mon checkbox quand mon combobox est vide
Merci pour votre patience

 

[ChTi160]

re
je regarde Lol
jean marie

 

[soan]

Bonjour jean marie, gothc,

non testé, mais je crois que cette réécriture du code VBA de ton post #10 devrait aller :

Private Sub CheckBox1_Click()
  Dim sh As Worksheet: Set sh = Worksheets("Paramètres_Application")
  With ActiveSheet
    If .ComboBox1 = "" Then .CheckBox1 = 0: _
      MsgBox "Vous devez sélectionner votre Nom dans la Liste déroulante.": Exit Sub
    With .CheckBox1
      sh.[R2] = Not .Value: .Caption = sh.[S2]: sh.[U2] = IIf(.Value, Date, Empty)
    End With
  End With
End Sub

soan

 

[ChTi160]

Re
Bonjour Soan
j'espère que tu vas bien ?
ce que j'ai modifié

Private Sub CheckBox1_Click()
With Worksheets("Paramètres_Application")
   If ActiveSheet.ComboBox1.Value = "" Then
     If Not (ActiveSheet.CheckBox1) Then Exit Sub
            MsgBox ("Vous devez sélectionner votre Nom dans la Liste déroulante.")
            ActiveSheet.CheckBox1 = False
             Exit Sub
    End If
      .Range("r2") = -ActiveSheet.CheckBox1
      ActiveSheet.CheckBox1.Caption = .Range("s2")
      .Range("u2") = IIf(ActiveSheet.CheckBox1, Date, Empty)
End With
End Sub

évite aussi le double affichage du Message!
jean marie

 

[gothc]

je viens de faire le test sur mon projet ton code fonctionne super
Merci beaucoup bonne journée Jean Marie
encore merci pour votre patience