Bonjour à tout le forum!!!
Voila je me suis essayé à faire un programme VBA qui me permettrait grace à un Userform de saisir des données transférées ensuite sur une feuille.
Pour éviter des saisies doubles, j'aimerais que l'utilisateur soit prévenu par un msgbox lorsqu'il rentre le même nom (d'un client par exemple) qu'un nom déja entré et présent sur la feuille.
J'ai ce programme qui fonctionne à moitié, à moitié car si je tape dans le textbox du USF trois lettre d'un mot déja présernt sur la feuille il le reconnait et me signale qu'il a déja été entré alors que ce n'est pas le même nom...
Exemple:
Dans la feuille:
Jeannot
Michel
Louis
Je tape dans mon USF un nouveau client: Jean
et avec mon prog il reconnait le début de jeannot et me signale que jean est déja entré....
Voici le code du bouton Valider du USF:
Private Sub Valider_click()
Dim LigH As String
With Sheets("Dossiers")
On Error Resume Next
LigH = .Range("A:A").Find(What:=Me.ES_nomCli).Row
On Error GoTo 0
If LigH <> "" Then
MsgBox ("Client déjà entré!" & ES_nomCli.Value)
Else
End If
End With
Merci pour toute aide
Voila je me suis essayé à faire un programme VBA qui me permettrait grace à un Userform de saisir des données transférées ensuite sur une feuille.
Pour éviter des saisies doubles, j'aimerais que l'utilisateur soit prévenu par un msgbox lorsqu'il rentre le même nom (d'un client par exemple) qu'un nom déja entré et présent sur la feuille.
J'ai ce programme qui fonctionne à moitié, à moitié car si je tape dans le textbox du USF trois lettre d'un mot déja présernt sur la feuille il le reconnait et me signale qu'il a déja été entré alors que ce n'est pas le même nom...
Exemple:
Dans la feuille:
Jeannot
Michel
Louis
Je tape dans mon USF un nouveau client: Jean
et avec mon prog il reconnait le début de jeannot et me signale que jean est déja entré....
Voici le code du bouton Valider du USF:
Private Sub Valider_click()
Dim LigH As String
With Sheets("Dossiers")
On Error Resume Next
LigH = .Range("A:A").Find(What:=Me.ES_nomCli).Row
On Error GoTo 0
If LigH <> "" Then
MsgBox ("Client déjà entré!" & ES_nomCli.Value)
Else
End If
End With
Merci pour toute aide