MACRO FILTRE AUTOMATIQUE

[MANU]

Bonjour,

Voici mon problème ?!?
Description Macro = Faire un filtre automatique d'une colonne en fonction du mot inscrit dans une cellule.
Ex = Cellule A1 = Fleur
Filtre automatiquement toute les cellules contenant fleur en colonne B1:B100

J'ai essayé mais le pb c'est que dans l'option personnalisée de mon filtre automatique le copier coller ne marche pas lorsque je change fleure par plante.

MERCI BEAUCOUP

MANU DE MONTPELLIER

 

[Charly2]

Bonsoir MANU, le forum,

Je ne comprends pas bien ta demande : tu veux un filtre automatique ou un filtre élaboré ?

Amicalement
Charly

 

[Dan]

Bonsoir,

Je suppose que c'est ceci ton pb :

En A1 tu as une valeur et tu veux effectuer un filtre automatique dans une série de données en tenant compte de la valeur de A1.

Sub selectioncopy()
Dim nFiltre As String
nFiltre = Worksheets('feuil1').Range('A1').Value
Range('première cellule de ta base de données').Select
Selection.AutoFilter Field:=1, Criteria1:=nFiltre

Le reste de ta macro...

End Sub

Si pb n'hésite pas

😉