Maxcayenne
XLDnaute Nouveau
Bonjour à tous,
Je me permets d'écrire un message sur le forum car j'ai un problème:
J'ai parcouru tous les forums pour résoudre mon problème mais en vain.
Voici ma demande:
Je souhaite appliquer un filtre sur une plage de cellule qui ne se trouve par sur l'active Sheet.
En effet j'ai crée une base de donnée masqué par le biais du paramètre "VeryHidden" et je souhaite que la colonne en I1 se filtre par ordre alphabétique.
J'ai trouvé un code permettant de réaliser cette opération cela étant, il applique la macro uniquement sur la l'active sheet.
Voici la base de code que j'utilise:
With Worksheets("BASE")
.AutoFilterMode = False
.Range("A:N").AutoFilter
Range("A:N").Sort Key1:=Range("I1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Ce code marche bien mais ne l'applique pas sur la feuille "Base" alors que mon bouton pour lancer la macro se trouve sur la feuille "RESULTAT".
J'espère avoir été clair.
Je vous remercie sincèrement de votre réponse.
Cordialement,
Maxime
Je me permets d'écrire un message sur le forum car j'ai un problème:
J'ai parcouru tous les forums pour résoudre mon problème mais en vain.
Voici ma demande:
Je souhaite appliquer un filtre sur une plage de cellule qui ne se trouve par sur l'active Sheet.
En effet j'ai crée une base de donnée masqué par le biais du paramètre "VeryHidden" et je souhaite que la colonne en I1 se filtre par ordre alphabétique.
J'ai trouvé un code permettant de réaliser cette opération cela étant, il applique la macro uniquement sur la l'active sheet.
Voici la base de code que j'utilise:
With Worksheets("BASE")
.AutoFilterMode = False
.Range("A:N").AutoFilter
Range("A:N").Sort Key1:=Range("I1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Ce code marche bien mais ne l'applique pas sur la feuille "Base" alors que mon bouton pour lancer la macro se trouve sur la feuille "RESULTAT".
J'espère avoir été clair.
Je vous remercie sincèrement de votre réponse.
Cordialement,
Maxime