Procédure non définie en vba

[rimbaut]

Bonjour à tous,

J'ai une erreur de compilation dans cette petite procédure écrite en vba :

 

Sub DisBonjour()

Msg = "Vous appelez vous " & Application.UserName & "?"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then

MsgBox "Dommage, j'ai tenté ma chance !"

 

Else

MsBox "Je dis je suis un devin !"

 

End If

 

End Sub

 

En effet, l'erreur qui s'affiche est " procédure non définie ". Je ne comprends pas pourquoi.

 

Si quelqu'un veut bien m'expliquer ce serait avec grand plaisir.

 

Merci d'avance

[sebdraluorg]

Salut,

 

Else
MsBox "Je dis je suis un devin !"

 

tu oublies un 'g' dans MsgBox

 

Sinon utilises plutot des variable typées c'est bcp plus claire et plus rapide

 

dim msg as string

dim Ans as long

etc...

 

++