msgbox qui fait planter

[meldja]

Bonjour,
J'ai une MsgBox qui s'exécute à partir d'un bouton (boite à outils controle) et qui fait planter l'applic Excel.
Je suis obligé de sortir avec Ctrl + Shif + suppr, plus rien ne répond.
Je ne peux donc pas vous envoyer le fichier, par contre, je transmets le code (pourtant très simple) :

Private Sub CommandButton1_Click()
CommandButton1 = MsgBox("bonjour ", vbOKOnly)
End Sub

Etant débutant, je suis en train d'apprendre et je teste un peu au pife, peut être y a-t-il un truc à ne pas faire dans ce code ???
Merci d'avance

 

[joss56]

Re : msgbox qui fait planter

Salut Meldja, le forum

Private Sub CommandButton1_Click()
MsgBox "bonjour ", vbOKOnly
End Sub

Modifie ton code ainsi, ça devrait fonctionner
A+

 

[CB60]

Re : msgbox qui fait planter

Bonjour
Cela devrais suffire

Private Sub CommandButton1_Click()
MsgBox "bonjour "
End Sub

 

[meldja]

Re : msgbox qui fait planter

Re,
Au début, j'avais essayé un peu comme vous dites sauf que j'avais mis des paranthèses après msgbox et ça ne marchait pas. Alors j'ai modifié avec le nom du bouton = msg et ça plantait.
Là maintenant, c'est bon. C'est incroyable comme c'est compliqué.
Merci encore et bonne journée

 

[Dull]

Re : msgbox qui fait planter

Salut Meldja, joss56, Bruno , le Forum

une autre façon et si tu tiens vraiment à tes parenthèses 😉

Option Explicit
Private Sub CommandButton1_Click()
Dim Message as String
Message = MsgBox("bonjour ", vbOKOnly + vbInformation)
End Sub

Bonne Journée

 

[joss56]

Re : msgbox qui fait planter

re salut à tous

Meldja, c'est pas si compliqué!
tu mets des parenthèses si tu veux récupérer le choix de l'utilisateur: oui, non, annuler auquel cas tu stockes la réponse de l'utilisateur dans une variable:

MaReponse=msgbox("Ton nom")

Dans ce cas, tu peux lancer des instructions en fonction du choix de l'utilisateur.
Si tu veux simplement afficher un message en cliquant sur un bouton

Sub CommandButton1_Click()
msgbox "Salut"
End sub

Pas besoin de paranthèses...
A+

Joss

 

[myDearFriend!]

Re : msgbox qui fait planter

Bonjour

La MsgBox s'utilise en tant que Méthode ou en tant que Fonction (c'est là toute la différence).

A toutes fins utiles, je tente d'expliquer ces 2 modes d'utilisation dans cet article : Utilisation des MsgBox

Cordialement,

 

[joss56]

Re : msgbox qui fait planter

Merci Didier de ces précisions.
Bonne journée
Joss