Discussion :

[Chicard]

Salut,

j'ai une msgbox qui m'affiche un texte et je voudrait lui rajouter le symbole d'avertissement. En regardant l'aise, j'ai fait ceci (ça marche pas):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox (mon_texte,vbexclamation)

donc soit il me manque des paramètre pour que l'exécution fonctionnne soit mettre el msgbox dans une variable. Il se peut que cela soit autre chose.

J'ai une petite quetion aussi sur le if. En C++ (parce que je connait celui-là) on peut faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 //ceci est du code en C++
if blablabla
           condition1
          else if blablabla2.....

apparament en VBA cela ne fonctionne pas. Est-ce vrai où alors c'est que j'ai merdé quelque part.

[Fvandermeulen]

Bonjour,
Concernant la MsgBox, ne me demande pas pourquoi, mais dans ce genre de cas je l'affecte à une "variable" et ça passe, donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonMessage = msgbox (mon_texte,vbexclamation)

Pour ce qui est du If et else if je pense que ceci toi te convenir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
If blablabla then
   Condition1
         else condition2
End if

Mais comme j'y connais rien en C++, ...
Sans quoi tu peux imbriquer les if tout simplement.

En espérant avoir pu t'aider.

[nicht]

Salut,

As tu éssayé tout simplement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 msgbox "blablabla", vbexclamation

Chez moi ça marche

[Fvandermeulen]

Salut,

As tu éssayé tout simplement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 msgbox "blablabla", vbexclamation

Chez moi ça marche

Ha ben alors ça c'est débile ! Je pensais avoir tout essayé, comment j'ai pu raté ça

[laetitia]

bonjour le fil le forum un autre code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Mess()
Dim x As Integer
 x = MsgBox("blabla", vbYesNo + vbCritical + vbDefaultButton2, "ATTENTION !!!")
 If x = vbYes Then
 'action1
 Else
 'action2
 End If
 End Sub

[Chicard]

bon effectivement je suis con de pas avoir essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "blabla", vbExclamation

car ça marche hyperbien. Comme quoi des parenthèses ça fait chier car je l'avais fait mais comme ça et ça passait pas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox("blabla",vbEclamation)

Merci.

Par contre faire des if imbriqués apparament ça passe pas, c'était pour la culture personnelle.

[Krovax]

Je ne connais pas le C du coup j'ai du mal a comprendre ce que tu demande mais voila ce que j'ai trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Select Case MsgBox("mon_texte", vbYesNo + vbExclamation)
    Case vbYes
        'procédure si click sur Oui
    Case vbNo
        'procédure si click sur non
end select

sinon j'ai aussi utilisé une variable test

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

test = MsgBox("mon_texte", vbExclamation)

et là ca marche, je ne sais pas pourquoi, l'icone Attention et un seul bouton la variable test semble rester vide...

Sinon plus d'info dans cette aide sur les message box
http://fring.developpez.com/vba/excel/msgbox/

edit : "grillé" c'est le même réulstat