erreur msgbox erreur ATTENDU := [Résolu]

[Prof_Matches]

Bonjour,

j'ai un truc tout bête concernant MSGBOX :

Code :

1
2
3
4
5
6
7
8
Sub test_message()
Dim style
 
style = vbOKOnly
 
MsgBox ("corps du message",style)
 
End Sub

J'ai un message d'erreur :

Erreur de compilation:
Attendu:=

Est-ce que quelqu'un aurait une idée ?

[Prof_Matches]

OK j'ai trouvé sur le net :

Msgbox renvoi une réponse, donc pour pouvoir l'exploiter il faut rajouter :

Dim reponse as string

[jfontaine]

Bonjour,

Retires les parentheses.

Code :

MsgBox "corps du message",style

On utilise les parenthèses quand on attend en retour l'information du bouton utilisé.
Dans ce cas

Code :

1
2
3
4
5
if MsgBox ("oui ou non ?",vbYesNo) = Vbyes then
    Msgbox "reponse oui"
else
    Msgbox "réponse non"
end if

[Prof_Matches]

merci Jérôme,
je ne connaissais pas l'importance des parenthèses.

[AlainTech]

Bonjour,

Il y a un bon truc pour savoir quand les mettre ou pas.

Si l'éditeur ajoute un espace avant, il vaut mieux les retirer.
S'il n'y a pas d'espace, elles sont nécessaire.