Bonjour, je viens vers vous car je rencontre un problème avec ma macro.
Mon fichier excel est composé de divers contact avec des informations, qui sont triés par feuilles (par villes).
J'essaye de créer une macro qui aille chercher dans chacune des feuilles de mon classeur les cellules dont le texte correspond à des critères définis.
J'ai donc créer le code suivant:
Sub Macro1()
'
' Macro1 Macro
'
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
Range("B:Q").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Critères").Range("D1:G2"), _
CopyToRange:=Sheets("FILTRER").Range("C2:R2"), _
Unique:=False
Next
End Sub
Cela ne fonctionne pas. N'étant pas une experte en VBA, est-ce que quelqu'un aurait la solution?
Mon fichier excel est composé de divers contact avec des informations, qui sont triés par feuilles (par villes).
J'essaye de créer une macro qui aille chercher dans chacune des feuilles de mon classeur les cellules dont le texte correspond à des critères définis.
J'ai donc créer le code suivant:
Sub Macro1()
'
' Macro1 Macro
'
Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
Range("B:Q").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Critères").Range("D1:G2"), _
CopyToRange:=Sheets("FILTRER").Range("C2:R2"), _
Unique:=False
Next
End Sub
Cela ne fonctionne pas. N'étant pas une experte en VBA, est-ce que quelqu'un aurait la solution?