Pb d'exécution de la macro (critère de recherche)

Re : Pb d'exécution de la macro (critère de recherche)

Re-, le forum

remplace la macro Sub Chirurgien_Salle() par celle-ci :

Sub Chirurgien_Salle()
Sheets("Recherche1").Select
On Error GoTo fin
Range("b2:w" & [b65000].End(xlUp).Row).Delete Shift:=xlUp '.ClearContents
[AA1] = "Formule"
[AA2].FormulaR1C1 = "=AND(Essai!RC[-23]=""" & chir & """,Essai!RC[-20]=" & sal & ",Essai!RC[-10]=""" & prog & """)"
Sheets("Essai").Range("c1:r3000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("AA1:AA2"), CopyToRange:=Range("c1:r3000"), Unique:=False
fin:
[AA1] = ""
[AA2] = ""
End Sub

Les différences :
tu vois que """ & chir & """ est entre 3 guillements (c'est du texte)
par contre " & sal & " n'a qu'un guillemet, c'est du numérique
de plus la zone d'extraction et de destination n'étaient pas bien définies
Bon courage

Re : Pb d'exécution de la macro (critère de recherche)

Bonsoir bhbh

Merci pour ton aide sur ce code
Tu expliques pour 3 " si du texte puis 1 " si numérique ET pour 2 " (date ou autre ??)

Je vais desuite essayer ...

Cordialement
Christophe.