créer un msgbox de validation de saisie

salut
je veux créer un message de validation de saisie des données ligne par ligne dans la feuille encaissement des ventes surtout la colonne E

ce message contient par exemple :
intituler : valider est continuez ? et deux boutons OUI et NON
si "oui" donc la saisie est correcte

si "non" la saisie est incorrecte donc implique effacement automatique de ligne saisie


vous trouverez le fichier ci-joint

cordialement

Bonsoir,

Plutôt qu'un simple Oui, Non, je pense qu'une fenêtre YesNoCancel conviendrait mieux ici :
Yes : la ligne est validée, on passe à la suivante
No : la ligne est supprimée, on passe à la suivante
Cancel : on arrête la boucle de validation.

Code:

---

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

Private Sub Worksheet_Change(ByVal Target As Range) '... Rows(i).Select 'sélectionne la ligne à valider Select Case MsgBox("Valider la ligne <" & i & "> ?", vbYesNoCancel + vbQuestion, "Validation / Suppression") Case vbYes Case vbNo Application.EnableEvents = False Rows(i).EntireRow.Delete Application.EnableEvents = True i = i - 1 Case Else Exit For '... End Select End Sub

---

salut

je suis nul dans vba excel

comment ajouterez le code dans le fichier prob et merci