Discussion :

[helpme1978]

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

[BlueMonkey]

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 :

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

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

[helpme1978]

salut

je suis nul dans vba excel

comment ajouterez le code dans le fichier prob et merci