Re : Reconnaitre mot dans feuille
Oui tu as raison je mérite d'être grondé...
Merci j'avais tout essayé avec "lookin" et tout mais je pensais pas qu'il fallait garder le "What:="
Merci beaucoup tototiti ça marche bien!
J'ai toutefois une autre question dans le genre
Mon programme arpès avoir tester si la valeur est ou non dans la feuille renvoi un msgbox l'indiquant à l'utilisateur.
Serait'il possible que si l'utilisateur veuille modifier le client (si c'est le meme client mais qui change d'age par exemple) le nom de l'ancien et ses données soient effacées et remplacé par les nouvelles données?
j'ai mis ce code:
With Sheets("Dossiers")
On Error Resume Next
LigH = .Range("A:A").Find(What:=Me.ES_nomCli, LookAt:=xlwhole).Row
On Error GoTo 0
If LigH <> "" Then
MsgBox "Voulez vous enregistrer les modifications du dossier suivant" & ES_nomCli.value), vbyesno
If vbYes Then
.Range("A" & LigH).EntireRow.Delete
Else: Exit Sub
End If
End If
End With
Et à la suite j'ai le programme qui enregistre la saisie mais lorsque je clique sur le oui du message box il efface l'ancien (ça ça marche) mais n'enregistre pas le nouveau!
Code qui suit:
DerLig = Sht.Range("A" & Rows.Count).End(xlUp).Row + 1
Sht.Range("A" & DerLig).Value = ES_nomCli.Value
(J'ai simplifié mon programme)
Pourquoi n'enregistre t'il pas le nouveau dossier?
Merci