Microsoft 365 Msg box sur décoche case à cocher

L

Lolote83

XLDnaute Barbatruc

• 17 Mars 2021

• #2

Bonjour,
Sans tester, peut être comme ça

VB:

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

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 17 Mars 2021

• #3

Non ca ne fonctionne pas blocage au niveau du If

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2021

• #4

Bonsoir le fil,

Essaie avec ce code

VB:

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

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 17 Mars 2021

• #5

Nickel
Merci beaucoup

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 17 Mars 2021

• #6

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

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 17 Mars 2021

• #7

Bonjour Lolote83

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

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 17 Mars 2021

• #8

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

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 18 Mars 2021

• #9

Staple1600 à dit:

Bonsoir le fil,

Essaie avec ce code

VB:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 18 Mars 2021

• #10

Bonjour,
Voir le code ci-dessous

VB:

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

 

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 18 Mars 2021

• #11

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

 

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 18 Mars 2021

• #12

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

 

Pièces jointes

• Copie de FCMLE44 - Case à cocher.xlsm

  30.8 KB · Affichages: 10

Vote positif 0 Vote négatif

F

FCMLE44

XLDnaute Impliqué

• 18 Mars 2021

• #13

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

VB:

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

 

Vote positif 0 Vote négatif

Solution