Microsoft 365 Msg box sur décoche case à cocher

[FCMLE44]

Bonjour

J'ai une case à cocher pour lequel ce code s'éxécute

Sub Caseàcocher133_Cliquer()
MsgBox ("Vous avez coché Non. Par conséquent, merci d'envoyer le mail d'alerte à votre Responsable de Groupe en cliquant sur la cellule D81")
Range("D81").Select
End Sub

Lorsque je décoche la case le message apparait également

Comment faire pour que ce ne soit pas le cas ?

Merci

 

[Lolote83]

Bonjour,
Sans tester, peut être comme ça

Sub Caseàcocher133_Cliquer()
    if Caseàcocher133.value=true then
        MsgBox ("Vous avez coché Non. Par conséquent, merci d'envoyer le mail d'alerte à votre Responsable de Groupe en cliquant sur la cellule D81")
        Range("D81").Select
    endif
End Sub

@+ Lolote83

 

[FCMLE44]

Non ca ne fonctionne pas blocage au niveau du If

 

[Staple1600]

Bonsoir le fil,

Essaie avec ce code

Sub Caseàcocher133_Cliquer()
Message = _
    "Vous avez coché Non." & vbCr & vbCr & _
    "Par conséquent, merci d'envoyer le mail d'alerte à votre Responsable de Groupe, en cliquant sur la cellule D81."
X = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Value
Select Case X
Case 1
MsgBox Message, vbInformation, "Avertissement"
Case Else
'
End Select
End Sub

 

[FCMLE44]

Nickel
Merci beaucoup

 

[Lolote83]

Re bonjour,
Tu dois avoir une cellule liée à cette case a cocher donc modifie le code suivant en fonction de ta cellule liée

Sub Caseàcocher133_Cliquer()
    if [A1]=True then
        MsgBox ("Vous avez coché Non. Par conséquent, merci d'envoyer le mail d'alerte à votre Responsable de Groupe en cliquant sur la cellule D81")
        Range("D81").Select
    endif
End Sub

avec ici [A1] comme étant la cellule liée
@+ Lolote83

 

[Staple1600]

Bonjour Lolote83

J'avais pas rafraichi la page.
J'avais pas vu ta proposition.

 

[Lolote83]

Bonsoir Staple1600,
No souci, car j'ai moi aussi répondu sans rafraichir et du coup, j'ai aperçu ta réponse qu'après.
Bonne soirée
@+ Lolote83

 

[FCMLE44]

Bonsoir le fil,

Essaie avec ce code

Sub Caseàcocher133_Cliquer()
Message = _
    "Vous avez coché Non." & vbCr & vbCr & _
    "Par conséquent, merci d'envoyer le mail d'alerte à votre Responsable de Groupe, en cliquant sur la cellule D81."
X = ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Value
Select Case X
Case 1
MsgBox Message, vbInformation, "Avertissement"
Case Else
'
End Select
End Sub

Bonjour

J'aimerais lorsque je coche sur OK sur le MsgBox que la coche du Non s'enlève. Est ce possible et que puis je rajouter à ce code ?

Merci

 

[Lolote83]

Bonjour,
Voir le code ci-dessous

Sub Caseàcocher133_Cliquer()
    if [A1]=True then
        MsgBox ("Vous avez coché Non. Par conséquent, merci d'envoyer le mail d'alerte à votre Responsable de Groupe en cliquant sur la cellule D81")
        Range("D81").Select
        [A1]=False
    endif
End Sub

Toujours en gardant à l'esprit que la cellule liée à ta case à cocher est bien la A1

@+ Lolote83

 

[FCMLE44]

Merci
Je n'ai aucune cellule liée.
La réponse Oui ou Non se fait via la case à cocher.
Lorsque je clique Non le message apparait
Lorsque je fais OK je souhaiterais que la case non soit décochée

 

[Lolote83]

Re bonjour,
N'ayant pas de classeur exemple, voici le mien
@+Lolote83

 

[FCMLE44]

j'ai mixé les deux codes de @Staple1600 et toi-même sur mon fichier réel. Ca fonctionne et ça donne ca avec les bonnes cellules

Sub Caseàcocher133_Cliquer()
    If [AF1] = True Then
        MsgBox ("Vous avez coché Non." & vbCr & vbCr & _
        "Par conséquent, merci d'envoyer le mail d'alerte à votre Responsable de Groupe, en cliquant sur ALERTER en cellule D81.")
        Range("D81").Select
        [AF1] = False
    End If

End Sub

Merci à vous deux