Macro VBA : Filtre élaboré extraction sur plusieurs onglets

[bast0504]

Bonjour à tous

Je souhaiterais savoir comment je pourrais adapter la macro ci-dessous de manière à extraire sur plusieurs onglets les données pays selon une liste de critère définie dans l'onglet "critères"

Les données de chaque pays seront extraites par onglet par une macro

Merci par avance

Sub Macro1()
    Sheets("Base").Range("A1:D43").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Critères").Range("a1:A2"), CopyToRange:=Sheets("Abu Dhabi").Range("A1:D1"), Unique:=False
End Sub

 

[BOISGONTIER]

Re : Macro VBA : Filtre élaboré extraction sur plusieurs onglets

Bonjour,

cf PJ

JB

 

[a26]

Re : Macro VBA : Filtre élaboré extraction sur plusieurs onglets

Bonjour JB,
Merci pour la résolution du problème. C'est exactement ce que je voulais obtenir.
Cordialement,
a26

 

[bast0504]

Re : Macro VBA : Filtre élaboré extraction sur plusieurs onglets

Bonjour Forum,

La macro proposée par bhbh se bloque quand je veux filtrer une liste possédant des chaînes de plus de 31 caractères.

Comment je peux ajuster la macro de manière à ce que je ne sois plus bloqué par cette limitation.

Merci
CDT

 

[Cousinhub]

Re : Macro VBA : Filtre élaboré extraction sur plusieurs onglets

Bonsoir,

Effectivement, le nom d'un onglet ne peut dépasser 31 caractères...

modifie comme ceci :

...
...
ActiveSheet.Name = Left(It, 31)
...
...

Bonne soirée