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

[Tophe2]

Bonjour le forum

Voilà suite à l'aide de bhbh pour la réalisation de ce code je souhaite l'appliquer dans un autre fichier, en modifiant ce qui doit l'être, mais à priori une erreur subsiste lors de ce changement car il n'extrait pas la liste suite aux critères.

Ne trouvant mon erreur ou oublie, lors l'adaptation si quelqu'un peut m'aider.
Le fichier est là:

Cordialement
et merci à bhbh
Christophe.

 

[Cousinhub]

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

 

[Tophe2]

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.