fonction Find en VBA

[cloclo57]

Bonjour a tous .

Je rencontre un petit probleme dans la boucle Find ci dessous.
Elle me trouve que 2 fois le medecin dans ma base de donnée alors qu'il y est inscrit 3 fois , je n'arrive pas a trouver pourquoi .
Quelqu'un peut il m'aider . Merci d'avance

For Each cal2008 In Sheets

selection.Find(What:=medecin, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True).Activate

Range("D50").Value = ActiveCell.Value
tarif = ActiveCell.Offset(0, 1)
Range("E50").Value = tarif

rep = MsgBox("Recherche du suivant", vbYesNo, "Recherche")
If rep = vbNo Then Exit Sub

Rows("50:50").insert Shift:=xlDown
tarif = ""

Next

 

[Guest]

Re : fonction Find en VBA

Dans l'aide excel (F1 sur find) il y a un excelent exemple pour ce genre de procédure

 

[cloclo57]

Re : fonction Find en VBA

Merci de ta reponse , mais j'ai deja utilisé l'aide et je ne trouve toujours pas