Discussion :

[Accessifiante]

Bonjour,

J'ai pêché ce code dans un exemple de tableau donné par JBoigontiers dans ce forum et il y a une toute petite modification que je n'arrive pas à faire, à ma grande honte.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Extrait()
  [A8:AC1000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[M1:M2], CopyToRange:=[A3:AC3]
End Sub

Je voudrais changer la zone de collage qui doit être dans une autre feuille du classeur, nommée Filtre. J'ai essayé d'insérer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheet ("Filtre").select

VBA se fâche tout rouge avec le code tout en rouge

Quelle douce prose faut-il écrire pour l'amadouer dans ce cas ? Pouvez-vous m'aider silvouplé ?

[Kimy_Ire]

Bonjour Accessifiante,

Sans en savoir trop, as-tu essayé ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Extrait()
  [A8:AC1000].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[M1:M2], CopyToRange:=Worksheets("Filtre").Range("A3:AC3")
End Sub

Cordialement,
Kimy

[Accessifiante]

Ça marche Kimy ! Merci beaucoup !