XL 2019 Annulation d'une action avant exit sub

[SPGoder]

Bonjour
dans le code suivant par exemple, je souhaiterai que l'action d'activer le checkbox ne se fasse pas si la condition n'est pas rempli (Actuellement, sur le userform le chekbox passe quand même "coché" ).

Private Sub CheckBox4_Click()
  
        If ComboBox1 = "" Then
            MsgBox "Veuillez renseigner le nom de locataire", vbExclamation, "Erreur de saisie"
                Exit Sub
        Else      
        .........

J'ai essayé avec ce code, mais du coup j'ai 2 fois le message

Private Sub CheckBox4_Click()

        If ComboBox1 = "" Then
            CheckBox4 = False
            MsgBox "Veuillez renseigner le nom de locataire", vbExclamation, "Erreur de saisie"
            Exit Sub
        Else     
        ..............

Quelqu'un aurait une solution, merci par avance

 

[patricktoulon]

bonjour
je récapitule mumule
tu click sur checkbox et si le combo.value est vide alors message et retour a false pour le checkbox
problème (CheckBox4 = False) re déclenche l’événement click

ben la solution est simple

Private Sub CheckBox4_Click()
    If ComboBox1 = "" And CheckBox4.Value = True Then
        CheckBox4 = False
        MsgBox "Veuillez renseigner le nom de locataire", vbExclamation, "Erreur de saisie"
    End If
End Sub

que se passe t il en fait ? 😉
et bien en fait même si l'events est re déclenché!!!!!!!!
la double condition" If ComboBox1 = "" And CheckBox4.Value = True Then"
va faire que le code dans le if s’exécutera q'une fois a cause de la condition 2
par ce que la seconde fois le checkbox est a false

ben évidemment si la combo n'est pas vide le checkbox peut être coché ou décoché sans déclencher le code dans le if cette fois si par ce que c'est la condition 1 qui passe pas
😉

 

[SPGoder]

Bonjour Patrick

Merci pour tes explications détaillées, j'ai tout compris et du coup, oui c'est simple 😉

Évidemment, cela fonctionne
Merci beaucoup