MACRO FILTRE AUTOMATIQUE

M

MANU

Guest
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
 

Dan

XLDnaute Barbatruc
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.

Code:
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

;)
 

Discussions similaires

Statistiques des forums

Discussions
288 581
Messages
1 893 168
Membres
169 777
dernier inscrit
Bazilecr
Haut Bas