Msgbox avec OUI et NON au lieu de OK

[Cougar]

Bonjour le forum,

J'ai un msgbox qui apparaît pour confirmer un ajout dans une liste. J'aimerais que l'utilisateur ait l'option OUI pour ajouter l'item et NON pour revenir à mon userform.

Est-ce que le msgbox est bien ou qu'est-ce qui serait mieux... un outre userform ?

Mavar = TxtPièce.Value
If TxtPièce.Value = '' Then
MsgBox ('Il faut indiquer un numéro de pièce !')
Exit Sub
End If
If TxtNomPièce.Value = '' Then
MsgBox ('Quel est le nom de la pièce !')
Exit Sub
End If
If Mavar = '' Then
MsgBox 'Vous devez saisir un numéro !', vbExclamation, _
'Numéro ?'
TxtPièce.SetFocus
Exit Sub
End If
If MsgBox('Est-ce bien le numéro ' & Mavar & _
' que vous voulez ?', vbQuestion, 'Numéro correct ?') = vbYes Then 'ici l'utilisateur devrait avoir l'option OUI ou NON
Else: Exit Sub
End If

Merci

 

[MichelXld]

bonjour Cougar

tu peux remplacer vbQuestion par vbYesNo


bon apres midi
MichelXld

 

[Hervé]

Bonjour cougar,

tu peux essayer comme ceci :

If MsgBox('Est-ce bien le numéro ' & Mavar & _
' que vous voulez ?', vbYesNo + vbQuestion, 'Numéro correct ?') = vbNo Then Exit Sub'ici l'utilisateur devrait avoir l'option OUI ou NON

salut

EDITION : oups , bonjour michel.

Message édité par: Hervé, à: 17/07/2005 14:18

 

[Cougar]

Bonjour MichelXld, Hervé, le forum,

Le tout fonctionne merveilleusement bien.

Merci