Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

msgbox conditionné

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Ilino
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Ilino

XLDnaute Barbatruc
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
 
Trier par date Trier par votes
Re : msgbox conditionné

Re
ci dessous le code
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
 
Vote positif 0 Vote négatif
Re : msgbox conditionné

Bonjour,

place peut être un "exit sub" :
Code: 
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
@+
 
Vote positif 0 Vote négatif
Re : msgbox conditionné

Re,

bah.. si tu changs le code... change aussi le "exit sub" :
Code: 
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
 
Vote positif 0 Vote négatif
Re : msgbox conditionné

Re,

regarde ceci, mais je crains fort de ne rien avoir compris :
Code: 
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
 
Vote positif 0 Vote négatif
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
 
Dernière édition:
Vote positif 0 Vote négatif
Re : msgbox conditionné

Re,

pas très clair tout ca.... peut être des tests e amont comme ceci :
Code: 
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...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Résolu(e)
XL 2021 MsgBox : Je ne sais pas faire...
Réponses
10
Affichages
185
Constantin
C
  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
239
treza88
C
  • Résolu(e)
Autres Validation de données avant verrouillage de la ligne
2
Réponses
17
Affichages
771
com689
C
  • Question Question
XL 2021 La méthode union de l'objet '_Global' a échoué
Réponses
10
Affichages
341
sousou
I
  • Résolu(e)
XL 2021 msgbox : timer vbyes
2 3
Réponses
40
Affichages
2 K
isandre
I
A
  • Résolu(e)
XL 2019 VBA newbie
4 5 6
Réponses
80
Affichages
4 K
apocalypse
A
Y
  • Résolu(e)
XL 2013 Bloquer la saisie dans une plage selon un critère
Réponses
6
Affichages
686
TooFatBoy
R
  • Résolu(e)
XL 2021 plage de date comprise dans une autre plage de date
Réponses
3
Affichages
260
Ron74
R
S
  • Résolu(e)
XL 2013 Sélection entre deux MsgBox...
2
Réponses
29
Affichages
885
Dudu2
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
550
youguybass
Y
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
788
lynyrd
  • Résolu(e)
XL 2019 Tri et Traitement plus rapide
2
Réponses
20
Affichages
690
Titof06
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
521
vgendron
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
333
PRy
P
  • Résolu(e)
XL 2019 Vérifier si un Email est valide
Réponses
6
Affichages
770
Titof06
B
  • Question Question
Microsoft 365 tableau de calcul horaire
Réponses
1
Affichages
152
fanfan38
C
  • Résolu(e)
XL 2016 MsgBox avec critères
2
Réponses
22
Affichages
961
candido57
C
  • Question Question
Microsoft 365 Bonjour d'abord je ne sais pas si j'ai pris l'adhesion
Réponses
3
Affichages
303
raimbault
E
  • Question Question
XL 2010 Insertion d'une icône personnelle
Réponses
3
Affichages
314
ericcool
E
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…