MSGBox et IF-Then-Else

Bonjour à tous,

Je fais encore appelle à votre aide... Je sèche sur des conditions que je souhaite placer en VBA mais j'ai toujours une erreur d'instruction.

Je souhaite via un double clique copier une ref d'une liste vers un sous-formulaire, cela marche très bien mais je voulais éviter que l’utilisateur écrase une donnée déjà entrée dans le SF.

Pour cela, je veux vérifier que si le champ n'est pas vide alors un MSGBOX s'affiche et l'utilisateur peut valider son action. Et là, c'est le drame !!!

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Liste1_DblClick(Cancel As Integer)   If Not IsNull(Fille26!id_prod) Then   MsgBox("Voulez-vous vraiment remplacer le produit ?", vbQuestion + vbYesNo, "Remplacer matière première") = vbNo _ Exit Sub   Else Fille26!id_prod = Me.Liste1.Column(0)   End If     End Sub

---

Bonjour,

Je traiterai la condition dans l'autre sens

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Liste1_DblClick(Cancel As Integer)   If IsNull(Fille26!id_prod) Then Fille26!id_prod = Me.Liste1.Column(0) Else If MsgBox("Voulez-vous vraiment remplacer le produit ?", vbQuestion + vbYesNo, "Remplacer matière première") = vbYes Then Fille26!id_prod = Me.Liste1.Column(0) End If End If   End Sub

---

Cordialement.

Un grand merci !!

Je ne pensais pas qu'il était possible de faire comme ça.

Je cherche avec ElseIf.

Çà marche parfaitement.