Discussion :

[Ministic]

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 :

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

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

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.

[Jean-Philippe André]

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

Code :

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

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 :

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

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

[Ministic]

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