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
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