Aide sur la condition "select case"

Bonjour,

J'essai d'utilisé la condition "select case" que je ne connaissais pas auparavant mais elle ne fonctionne qu'a moitié :/ voici mon bout de code :

Code:

---

1 2 3 4

Select Case CHOIX = MsgBox("Vous n'avez saisi aucun nom ou avez cliquez sur annuler, voulez vous abandonner l'ajout d'une machine ?", vbYesNo, "Ajout d'une machine - Nom") Case Yes Exit Sub End Select

---

Le cas "Yes" marche mais mes cas "No" ou "Else" ne veulent rien savoir ils me stoppe la "Sub" sans autre forme de procés...

Help please :calim2:

PS : le cas Yes actuel est sur "exit sub" mais j'ai déja essayé d'y mettre autre chose comme une MsgBox par exemple et cela fontionne.

salut,
si tu veux prendre en compte le resultat de la MsgBox, 2 approches :
- une variable qui prend le resultat :

Code:

---

1 2 3 4 5 6 7

CHOIX = MsgBox("Vous n'avez saisi aucun nom ou avez cliquez sur annuler, voulez vous abandonner l'ajout d'une machine ?", vbYesNo, "Ajout d'une machine - Nom")   Select Case CHOIX Case vbYes Exit Sub Case VbNo End Select

---

- directement le resultat dans le select case

Code:

---

1 2 3 4 5 6

Select Case MsgBox("Vous n'avez saisi aucun nom ou avez cliquez sur annuler, voulez vous abandonner l'ajout d'une machine ?", vbYesNo, "Ajout d'une machine - Nom") Case vbYes Exit Sub Case VbNo End Select

---

A verifier avec le Case Else :ccool:

Merci pour l'info ;)
J'ai pris la seconde de tes options et cela fonctionne parfaitement, merci bien pour la rapidité. :ccool: