VBA Filtre avancé plages variables

Bonjour,

Je travaille sur une macro ayant pour objectif de filtrer une base de données de taille variable avec une plage de critères de taille variable (Il s'agit d'une colonne commençant en B6 et se terminant en Bxxx où xxx est u numéro de ligne variable.

Ci-dessous le code que j'utilise actuellement mais qui ne fonctionne pas comme je le souhaiterais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Filtre_Avancé()     Workbooks("classeur1.xlsx").Sheets("Feuil1").Range("A4:AG2052").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Workbooks("Feuil1").Worksheets("Feuil2").Range("B5", ActiveSheet.Range("B5").End(xlDown)), unique:=False   Range("A4").Select     End Sub

---

1) Je ne parviens pas à ajouter le caractère variable lors de la sélection de la base de donnée dans le classeur 1. Sachant que la BDD commence toujours en A4.(Ligne d'en-tête)
2) Excel ne reconnait pas la zone de critères variables dans le classeur 2 feuille 2.

j'obtiens une erreur d'exécution 1004.

Auriez-vous une piste svp ?

Je vous en remercie par avance

Valentin

Bonjour,

Code:

---

Workbooks("Feuil1").Worksheets("Feuil2").Range("B5", ActiveSheet.Range("B5").End(xlDown))

---

Vous mélangez deux syntaxes possibles de la méthode Range.
L'erreur que vous obtenez est probablement liée au fait que, lorsque vous lancez votre macro, la feuille active n'est pas la feuille 2 du classeur Feuil1.
Au passage, vous avez vraiment un classeur qui s'appelle Feuil1 ou bien est-ce une coquille ?

Plusieurs corrections sont envisageables. Par exemple :

Code:

---

1 2 3 4

Dim Rng as Range Set Rng = Workbooks("Feuil1").Worksheets("Feuil2").Range("B5") Workbooks("classeur1.xlsx").Sheets("Feuil1").Range("A4:AG2052").AdvancedFilter Action:=xlFilterInPlace, _ CriteriaRange:= Range(Rng, Rng.End(xlDown)), Unique:=False

---

Pour le "caractère variable", je ne suis pas certain de comprendre votre besoin. S'agit-il de déterminer programmatiquement le numéro de la dernière ligne de votre tableau ?

Cdt

Salut
En L6 Workbooks("Feuil1") versus Workbooks("classeur1.xlsx"). :weird:
Pour l'aspect géométrie variable d'une plage

Code:

---

1 2 3

Dim Rng As Range Set Rng = Worksheets("Feuil1").Range(Cells(1, 1), Cells(Range("A" & Rows.Count).End(xlUp).Row, Cells(1, Columns.Count).End(xlToLeft).Column)) Debug.Print Rng.Address

---

Bonjour,
Je ne peux que vous conseiller l'usage des tableaux structurés qui ont par définition une plage dynamique. Cependant il est possible d'utiliser la propriété CurrentRegion pour obtenir la région courante d'une cellule

Exemple en utilisant le CodeName de la feuille

Code:

---

1 2 3 4 5

Sub t() Dim rngSource As Range Set rngSource = sht_DataBase.Range("B4").CurrentRegion MsgBox "Adresse des données " & rngSource.Address(External:=True) End Sub

---

A lire éventuellement

• Apprendre à utiliser les tableaux structurés Excel : création, manipulations et avantages
• VBA – CodeName d’une feuille Excel

Je vous remercie tous les trois pour votre vos réponses.
Voici le code mis à jour avec les noms de classeurs et feuilles ajustés.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub filtre_DV3()   Dim RngBDD As Range Dim Rng As Range   Set RngBDD = Worksheets("Feuil1").Range(Cells(4, 1), Cells(Range("A" & Rows.Count).End(xlUp).Row, Cells(4, Columns.Count).End(xlToLeft).Column)) Debug.Print RngBDD.Address   MsgBox (RngBDD.Address) 'Jusque là tout est bon, l'adresse de RngBDD est bonne.     Set Rng = Workbooks("Classeur2.xlsx").Worksheets("Feuil2").Range("B5") Workbooks("Classeur1.xlsx").Sheets("Feuil1").Range("RngBDD").AdvancedFilter Action:=xlFilterInPlace, _ CriteriaRange:=Range(Rng, Rng.End(xlDown)), Unique:=False   'Remplacer l'addresse brute par RngBDD, cela bloque.   End Sub

---

Les corrections de macro envoyées marchent individuellement en revanche comme expliqué brièvement dans le code, une fois que je remplace l'adresse brute par RngBDD alors le code ne fonctionne plus. J'ai essayé avec et sans guillemets sans voir de différence.

Qu'est ce que j'ai oublié de faire ou d'ajouter svp ?

Je me renseignerai dans un deuxième temps sur les tableaux. J'aimerai réussir dans un premier temps avec ces macros là :)

Merci d'avance

Les deux syntaxes les plus courantes pour utiliser Range :

1. Sht.Range(<String>)
2. Range(<Range>, <Range>)

Pour la 1-, Sht doit être un identificateur valide d'une feuille de calcul.
<String> est une chaîne de caractères (je ne traite pas ici du format L1C1...) qui, si l'on souhaite faire référence à une plage plutôt qu'à une cellule unique, contient deux références de cellule séparées par deux points ":".
Cette chaîne de caractères peut être obtenue par concaténation.

Pour la syntaxe 2-, chacun des <Range> représente un objet Range (idéalement, ne contenant chacun qu'une seule cellule, cela clarifie la syntaxe).
Ces deux objets Range doivent faire référence à des cellules situées sur la même feuille du même classeur.

Notez qu'il existe d'autres variantes pour la syntaxe de Range.

Bonjour Ben_L,

Je vous remercie pour votre message :)

Cordialement

Bonjour,
Problème résolu !
Il suffisait d'ajouter .address après rngBDD.
Cela fonctionne parfaitement.

Sujet résolu.

Merci et bonne journée :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Sub filtre_DV3()   Dim RngBDD As Range Dim Rng As Range   Set RngBDD = Worksheets("Cmj").Range(Cells(4, 1), Cells(Range("A" & Rows.Count).End(xlUp).Row, Cells(4, Columns.Count).End(xlToLeft).Column)) Debug.Print RngBDD.Address   MsgBox (RngBDD.Address) 'Jusque là tout est bon, l'adresse de RngBDD est bonne.     Set Rng = Workbooks("FT-FW_Dispatcher_Rules.xlsx").Worksheets("A002").Range("B5") MsgBox (Rng.Address)     Workbooks("CMJ_per_period_V4_.xlsx").Activate Worksheets("Cmj").Range(RngBDD.Address).AdvancedFilter Action:=xlFilterInPlace, _ CriteriaRange:=Range(Rng, Rng.End(xlDown)), Unique:=False   'Remplacer l'addresse brute par RngBDD.   End Sub

---