Discussion :

[tomtiiti]

Bonjour,

Je me retrouve une nouvelle fois devant un problématique

J'ai un fichier excel, dedans il y a une feuilleA avec plain de données comprenant des titres.
Une deuxième feuilleB ou dans les cellules A1=toto et A2 babar (toto et babar étant des titre pour le filtre)

Je voudrais pour dans ma macro, exécuter une boucle qui exécuterais un filtre automatique de la colonne B:B de la feuille A et dont le critère de filtre sera une variable que fera référence aux contenue de la cellule A1 de ma feuilleB.
Et faire une boucle jusqu'a qu'il trouve une cellule Ax vide.
j'ai essayer plusieurs chose en critères mais rien ne marche, même en déclarant une variables, je mi prend mal.

Code :

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

1
2
3
4
5
Sheets("feuilleB").Select
    Columns("B:B").Select
    Selection.AutoFilter
    ActiveSheet.Range("$B$1:$B$107194").AutoFilter Field:=1, Criteria1:= _
        "Ma variable"

------------------------------
petite reformulation

j'ai donc trouvé ceci :

Code :

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

1
2
3
4
5
6
7
 Dim mavariable As String
    Sheets("liste").Select
    mavariable = Range("A1").Value
    Sheets("Regroupement").Select
    Columns("B:B").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$C$9").AutoFilter Field:=2, Criteria1:=mavariable

//dans la cellule A1 il y à "Gem/" , et cela marche très bien.
Mais je voudrais mettre dans la cellule A1 "Gem" et que ce se soit aps égal à "mavariable" mais que cela contienne "mavariable"

Merci beaucoup pour votre aide et bonne journée !!

[Marc-L]

Bonjour,

je ne comprends rien car pas besoin de boucle pour effectuer un simple filtre !
Une explication claire & exhaustive est nécessaire …

_________________________________________________________________________________________________________

Je suis Paris, Berlin, Nice, Bruxelles, Charlie, …

[tomtiiti]

j'ai une macro, dans cette macro je voudrais faire un filtre auto sur la colonne B:B de la feuilleB avec comme critère de filtre une variable.
Cette variable fera référencement a la cellule A1 de la feuilleA; une fois filtrè je vais copier les données et les exporter.
Puis je vais refaire un filtre avec lla même variable mais la qui fera référence a la cellule A2 de la feuilleA.


Et je ne sais pas si cela est possible mais j'aimerais aussi admettons que dans mes possibilité de filtre sur ma colonne B:B il y ai "carambar/malabar" pouvoir filtré sur "ambar" et que cela soit pris dedans
j’espère avoir été plus clair merci de ton aide.

[bboy-eazy]

Bonjour,

A première vu, si j'ai tout bien compris, voir du coté des filtres élaborés ici

[tomtiiti]

pas tout à fait.

J'ai une colonne avec plusieurs données.
J'enregistre une macro, qui vas filtrer ma colonne : Filtre -> "contient : gem "et sa me retourne cela :
petite reformulation

j'ai donc trouvé ceci :

Code :

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

1
2
3
4
5
6
7
  Dim mavariable As String
    Sheets("liste").Select
    mavariable = Range("A1").Value
    Sheets("Regroupement").Select
    Columns("B:B").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$C$9").AutoFilter Field:=2, Criteria1:=mavariable

//dans la cellule A1 il y à "Gem/" , et cela marche très bien.
Mais je voudrais mettre dans la cellule A1 "Gem" et que ce se soit aps égal à "mavariable" mais que cela contienne "mavariable"


Et a la fin de mon code je voudrais que sa fasse une boucle "A1,A2,A3...." jusuqu'a qu'une cellule "An" soit vide


merci quand même pour ton aide !!

[joe.levrai]

Bonjour,

visiblement tu as mal enregistré ta macro ? Les joker "*" sont là pour ça

Si on veut chercher les mot contenant "aut"

Code :

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

1
2
3
Dim Chaine
Chaine = "*aut*"
ActiveSheet.Range("$A$1:$C$9").AutoFilter Field:=2, Criteria1:=Chaine

[tomtiiti]

merci beaucoup joe!!

j'ai donc mi ca :

Code :

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

1
2
3
4
5
6
7
8
9
'Dim Chaine
    'Windows("MODOP.xlsx").Activate
    'Sheets("Exploitant").Select
    'Chaine = Range("A2").Value
    'Windows("Regroupement.xlsx").Activate
    'Sheets("Regroupement").Select
    'Columns("B:B").Select
   ' Selection.AutoFilter
    'ActiveSheet.Range("$A$1:$C$9").AutoFilter Field:=2, Criteria1:=Chaine

Maintenant je voudrais pouvoir faire une boucle jusqu’à ce que la cellule "An" soit vide ( ou un compte mais je ne sais pas faire non plus) merci pour votre aide en tout cas super, j’espère que vous pourrez me donner un dernier coup de pouce