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