msgbox conditionné

[Ilino]

Bonsoir forum
je souhaite faire un Msgbox de cette maniéré:
si je clique sur oui je continue mon programme si non j’arrête( ou je boucle mon code) jusqu'au modif de la cellule selectionné
GRAZIE

 

[Ilino]

Re : msgbox conditionné

Re
ci dessous le code

If [C72] = "Mixte" And [C82] = [C98] Then
Dim reponse
reponse = MsgBox(" Attention , La nature de la liaison complète ( SAR_SDR) est" & Chr(10) _
            & Chr(10) & "   ..........................   " & [C72] & "   ..........................   " _
            & Chr(10) & "" _
            & Chr(10) & "   Verifier les réponses C et D   " _
            & Chr(10) & "" _
            & Chr(10) & "souhaitez vous continuer ? ", vbYesNo, " Bonjour " & Application.UserName)
If reponse = vbYes Then
             MsgBox "Attention , il n'y a pas de corrélation.", vbExclamation
Else
             MsgBox "Merci de votre attention", vbQuestion
End If
End If

mon souci est si je clic sur OUI je sort de la boucle et si je clic sur NON la boucle restera tjr jusqu'au je modifié les cellules

 

[Ilino]

Re : msgbox conditionné

Bonsoir Forum
puis je avoir votre help ??
grazie

 

[Pierrot93]

Re : msgbox conditionné

Bonjour,

place peut être un "exit sub" :

If reponse = vbYes Then
             MsgBox "Attention , il n'y a pas de corrélation.", vbExclamation
Else
             MsgBox "Merci de votre attention", vbQuestion
Exit Sub
End If

bonne journée
@+

 

[Ilino]

Re : msgbox conditionné

Bonjour Pierrot
Merci pour la réponse, mais ça n'a pas fonctionné , quand je clic sur OUI ou sur NON la boucle tjr fonctionnelle ????
A+

 

[Pierrot93]

Re : msgbox conditionné

Re,

vois pas de boucle dans ton code....

 

[Ilino]

Re : msgbox conditionné

Re,
ci joint un fichier exemple ( mais cette fois j'ai fait un petit changement du code)
GRAZIE

 

[Pierrot93]

Re : msgbox conditionné

Re,

bah.. si tu changs le code... change aussi le "exit sub" :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [C72] = "Mixte" And [C82] <> "" And [C98] <> "" And [C82] = [C98] Then
    If MsgBox(" Attention , La nature de la liaison complète ( SAR_SDR) est" & Chr(10) _
        & Chr(10) & "   ..........................   " & [C72] & "   ..........................   " _
        & Chr(10) & "" & Chr(10) & "   Verifier les réponses C et D   ", vbYesNo, " Bonjour " & Application.UserName) = vbNo Then
        Exit Sub
    Else
        Range("C82:D82").ClearContents
        Range("C98:D98").ClearContents
    End If
End If
End Sub

 

[Ilino]

Re : msgbox conditionné

Re
ça n'a rien donné , quand je clic sur NON, je souhaiterai ne plus afficher la boite
grazie

 

[Pierrot93]

Re : msgbox conditionné

Re,

fonctionne bien tel que codé.... comprends pas trop ou tu veux en venir... peut être ne pas placer le code sur cet événement mais sur l'événement "change"....

 

[Ilino]

Re : msgbox conditionné

Re
Idem pas de changement
si je clic sur NON je souhaiterai avoir la main dans ma feuille et ne plus afficher la boite de dialogue ( Msgbox)
A+

 

[Pierrot93]

Re : msgbox conditionné

Re,

regarde ceci, mais je crains fort de ne rien avoir compris :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static b As Boolean
If b Then Exit Sub
If [C72] = "Mixte" And [C82] <> "" And [C98] <> "" And [C82] = [C98] Then
    If MsgBox(" Attention , La nature de la liaison complète ( SAR_SDR) est" & Chr(10) _
        & Chr(10) & "   ..........................   " & [C72] & "   ..........................   " _
        & Chr(10) & "" & Chr(10) & "   Verifier les réponses C et D   ", vbYesNo, " Bonjour " & Application.UserName) = vbNo Then
        b = True
    Else
        Range("C82:D82").ClearContents
        Range("C98:D98").ClearContents
    End If
End If
End Sub

 

[Ilino]

Re : msgbox conditionné

Re
je m'explisue
si je saisie dans la cellule C72 " Mixte" et dans les deux cellules C82 et C98 même donnée j'ai un message avec deux choix ( Oui ou NOn) alors si je dis OUI les deux cellules C82 et C98 devienne Vide et si je dis NON je contenue la saisie dans la feuille
mais si je reviens encore et je modifie les deux cellule C82 et C98 je souhaiterai avoir le même message et encore une fois j'ai les meme conditions précédentes....🙁
GRAZIE

 

[Pierrot93]

Re : msgbox conditionné

Re,

pas très clair tout ca.... peut être des tests e amont comme ceci :

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C72,C82,C98")) Is Nothing Then Exit Sub
If Range("C72") <> "Mixte" Or Range("C82") = "" Or Range("C98") = "" _
    Or (Range("C82") <> Range("C98")) Then Exit Sub
'ton code de msgbox
End Sub

après vois pas trop ce que tu veux... me parait un peu confus...

 

[Ilino]

Re : msgbox conditionné

Re, super
c'est exactement ce que je cherchais,
GRAZIE GRAZIE Pierrot 😎
A+