Brudy
XLDnaute Junior
Bonjour à vous tous,
J'ai réussis à trouver une macro de filtre élaboré qui me plait. Mais elle comporte un seul critère.
Je n'arrive pas à retranscrire la macro sur mon fichier.. alors pour en rajouter un deuxième
Est ce que quelqu'un pourrait me dire ce qui cloque sur mon fichier ?
(Il y'a plusieurs macro, une pour valider/trier par ligne réalisée par Theze, une autre macro enregistré pour enregistrer en pdf et la troisième, celle du tri)
Le code module :
Code sur feuille :
J'ai réussis à trouver une macro de filtre élaboré qui me plait. Mais elle comporte un seul critère.
Je n'arrive pas à retranscrire la macro sur mon fichier.. alors pour en rajouter un deuxième
Est ce que quelqu'un pourrait me dire ce qui cloque sur mon fichier ?
(Il y'a plusieurs macro, une pour valider/trier par ligne réalisée par Theze, une autre macro enregistré pour enregistrer en pdf et la troisième, celle du tri)
Le code module :
VB:
Sub filtre()
Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"crit"), CopyToRange:=Range("extrait"), Unique:=False
Range("b3").Activate
End Sub
Code sur feuille :
VB:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("b3")) Is Nothing Then
Call filtre
End If
End Sub
Pièces jointes
Dernière édition: