Discussion :

[ValentinD78310]

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 :

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

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

[Ben_L]

Bonjour,

Code :

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

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 :

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

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

[hyperion13]

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

Code :

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

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

[Philippe Tulliez]

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 :

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

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

[ValentinD78310]

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 :

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

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

[Ben_L]

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.

[ValentinD78310]

Bonjour Ben_L,

Je vous remercie pour votre message

Cordialement