XL 2016 Problème syntaxe MsgBox

S[1]t'Yor · 9 Février 2023

Bonjour

J'ai un problème avec ma ligne de code MsgBox que voici :

VB:

MsgBox("Vérification du carnet de ferrures terminé "&nbPB&" défauts trouvés. Voulez vous afficher ces erreurs ?",vbYesNo+vbInformation)

Je ne comprend pas mon erreur.

Merci d'avance

CDT

S[1]t'Yor

Hasco · 9 Février 2023

S[1]t'Yor à dit:
nbPB c'est une variable calculé précédemment que je souhaite inclure dans ma fenêtre en plein milieu d'un texte

Vérifiez son contenu et mettez des espaces

VB:

"Vérification du carnet de ferrures terminé " & nbPB & " défauts trouvés. Voulez vous afficher ces erreurs ?"

Pour vérifier son contenu mettez un point d'arrêt sur la ligne (F9) et quand la macro s'arrête là, afficher la fenêtre "Variables locales" et parcourrez les variables.
Ou saisissez (point d'interrogation compris) dans la fenêtre exécution (CTRL+G) :
? nbPB
puis validez.

vgendron · 9 Février 2023

Bonjour
ton message attend une réponse de l'utilisateur "Yes or No"
il faut affecter cette réponse à une variable pour traiter cette réponse

donc au choix

Réponse = MsgBox("Vérification du carnet de ferrures terminé " & nbPB & " défauts trouvés. Voulez vous afficher ces erreurs ?", vbYesNo + vbInformation)

ou

if Réponse = MsgBox("Vérification du carnet de ferrures terminé " & nbPB & " défauts trouvés. Voulez vous afficher ces erreurs ?", vbYesNo + vbInformation)=vbyes then

sylvanu · 9 Février 2023

Bonjour S[1]t'Yor, Vgendron,
Pour les msgbox, deux liens forts intéressants :

Fonction MsgBox (Visual Basic pour Applications)

Référence de langage VBA pour Office

learn.microsoft.com

Cours VBA : les boîtes de dialogue

Comment créer et utiliser les boîtes de dialogue MsgBox et InputBox, comment définir les boutons, quelles sont les valeurs de retour...

www.excel-pratique.com

Hasco · 9 Février 2023

Bonjour,

C'est quoi nbPB ce ne serait pas plutôt VbLf ou VbCrLF respectivement Saut de ligne et Saut de ligne avec retour chariot

Et si vous mettez des parenthèses, alors if faut une variable pour recevoir la réponse Msgbox est alors une fonction et plus une méthode.

Dim Rep

Code:

Rep = MsgBox("voulez-vous trucchouette", vbYesNo)  = vbYes then
if Rep = vbyes then
else
end if

Ou sans variablen

VB:

If MsgBox("Voulez-vous machin", vbyesno, "demande") = vbyes then
else
end if

S[1]t'Yor · 9 Février 2023

vgendron à dit:
Bonjour
ton message attend une réponse de l'utilisateur "Yes or No"
il faut affecter cette réponse à une variable pour traiter cette réponse

donc au choix

ou

Bonjour
Merci pour ta réponse.
En écrivant le premier choix, j'obtiens ce message :

et apparement c'est sur la deuxième partie de la partie texte affiché.

S[1]t'Yor · 9 Février 2023

Hasco à dit:
Bonjour,

C'est quoi nbPB ce ne serait pas plutôt VbLf ou VbCrLF respectivement Saut de ligne et Saut de ligne avec retour chariot

Et si vous mettez des parenthèses, alors if faut une variable pour recevoir la réponse Msgbox est alors une fonction et plus une méthode.

Dim Rep

Code:

Rep = MsgBox("voulez-vous trucchouette, vbYesNo) = vbYes then if Rep = vbyes then else end if

Ou sans variablen

VB:

If MsgBox("Voulez-vous machin", vbyesno, "demande) = vbyes then else end if

nbPB c'est une variable calculé précédemment que je souhaite inclure dans ma fenêtre en plein milieu d'un texte

S[1]t'Yor · 9 Février 2023

sylvanu à dit:
Bonjour S[1]t'Yor, Vgendron,
Pour les msgbox, deux liens forts intéressants :

Fonction MsgBox (Visual Basic pour Applications)

Référence de langage VBA pour Office

learn.microsoft.com

Cours VBA : les boîtes de dialogue

Comment créer et utiliser les boîtes de dialogue MsgBox et InputBox, comment définir les boutons, quelles sont les valeurs de retour...

www.excel-pratique.com

Merci pour ces liens mais je les ais déjà parcouru avant de venir ici. Mais merci quand même

vgendron · 9 Février 2023

Hello Tous

Chez moi cette syntaxe ne provoque aucun message d'erreur
vérfie bien les parenthèses, guillemets.. etc

Sub test()
Réponse = MsgBox("Vérification du carnet de ferrures terminé " & nbPB & " défauts trouvés. Voulez vous afficher ces erreurs ?", vbYesNo + vbInformation)
End Sub

Hasco · 9 Février 2023

S[1]t'Yor à dit:
nbPB c'est une variable calculé précédemment que je souhaite inclure dans ma fenêtre en plein milieu d'un texte

Vérifiez son contenu et mettez des espaces

VB:

"Vérification du carnet de ferrures terminé " & nbPB & " défauts trouvés. Voulez vous afficher ces erreurs ?"

Pour vérifier son contenu mettez un point d'arrêt sur la ligne (F9) et quand la macro s'arrête là, afficher la fenêtre "Variables locales" et parcourrez les variables.
Ou saisissez (point d'interrogation compris) dans la fenêtre exécution (CTRL+G) :
? nbPB
puis validez.

S[1]t'Yor · 9 Février 2023

vgendron à dit:
Hello Tous

Chez moi cette syntaxe ne provoque aucun message d'erreur
vérfie bien les parenthèses, guillemets.. etc

Merci pour cette réponse.

Je ne comprends pas.... Ca ne marche pas chez moi

S[1]t'Yor · 9 Février 2023

Hasco à dit:
Vérifiez son contenu et mettez des espaces

VB:

"Vérification du carnet de ferrures terminé " & nbPB & " défauts trouvés. Voulez vous afficher ces erreurs ?"

Merci ca marche !! il fallait rajouter les espaces de part et d'autre de nbPB

Merci à tous et à toutes !!!!

Jacky67 · 9 Février 2023

S[1]t'Yor à dit:
Bonjour

J'ai un problème avec ma ligne de code MsgBox que voici :

VB:

MsgBox("Vérification du carnet de ferrures terminé "&nbPB&" défauts trouvés. Voulez vous afficher ces erreurs ?",vbYesNo+vbInformation)

Je ne comprend pas mon erreur.

Merci d'avance

CDT

S[1]t'Yor

Bonjour à tous
Et comme ceci

VB:

    If MsgBox("Vérification du carnet de ferrures terminé " & nbpb & " défauts trouvés. Voulez vous afficher ces erreurs ?", vbYesNo + vbInformation) = vbYes Then
        MsgBox "Votre réponse est Oui"
    Else
        MsgBox "Votre réponse est Non"
    End If

Oneida · 9 Février 2023

Bonjour a vous tous,

Pour les deux codes de Hasco, il manque une double cote
1/ "voulez-vous trucchouette,
2/ "demande)

Hasco · 9 Février 2023

Oneida à dit:
Pour les deux codes de Hasco, il manque une double cote

Corrigés

XL 2016 Problème syntaxe MsgBox

S[1]t'Yor

XLDnaute Junior

Hasco

vgendron

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Fonction MsgBox (Visual Basic pour Applications)

Cours VBA : les boîtes de dialogue

Hasco

XLDnaute Barbatruc

S[1]t'Yor

XLDnaute Junior

S[1]t'Yor

XLDnaute Junior

S[1]t'Yor

XLDnaute Junior

Fonction MsgBox (Visual Basic pour Applications)

Cours VBA : les boîtes de dialogue

vgendron

XLDnaute Barbatruc

Hasco

XLDnaute Barbatruc

S[1]t'Yor

XLDnaute Junior

S[1]t'Yor

XLDnaute Junior

Jacky67

XLDnaute Barbatruc

Oneida

XLDnaute Impliqué

Hasco

XLDnaute Barbatruc

Discussions similaires