MsgBox et if

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:

---

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:

---

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.

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:

---

MonMessage = msgbox (mon_texte,vbexclamation)

---

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

Code:

---

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.

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:

---

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:

---

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 :roll:

Salut,

As tu éssayé tout simplement:

Code:

---

msgbox "blablabla", vbexclamation

---

Chez moi ça marche

Citation:

---

Envoyé par nicht

Salut,

As tu éssayé tout simplement:

Code:

---

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 :oops:

bonjour le fil le forum un autre code

Code:

---

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

---

bon effectivement je suis con de pas avoir essayé

Code:

---

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:

---

MsgBox("blabla",vbEclamation)

---

Merci.

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