Macro excel: pb de copier/coller dans filtre [Résolu/Fermé]
A voir également:
- Macro excel: pb de copier/coller dans filtre
- Macro excel: pb de copier/coller dans filtre ✓ - Forum - Programmation
- Macro excel vba et copier coller entre classeur ✓ - Forum - VB / VBA
- Macro excel vba et copier coller entre onglets ✓ - Forum - Excel
- Macro excel vba et copier coller entre classeur ✓ - Forum - VB / VBA
- [Excel] Macro pour copier coller avec filtre ✓ - Forum - Excel
5 réponses
melanie1324
- Messages postés
- 1505
- Date d'inscription
- vendredi 25 mai 2007
- Statut
- Membre
- Dernière intervention
- 31 janvier 2018
Bonjour,
Il est tout à fait possible d'introduire une variable mais la ou il faut l'introduire est :
actuellement ton code :
ActiveSheet.Range("$A$1:$J$36612").AutoFilter Field:=5, Criteria1:= _
"=*draguignan*", Operator:=xlAnd
signifie qu'il fltre sur draguignan.
rentres une varaible du style :
filtre= sheets("feuil1").cells(1,1) 'il faut que tu mets la cellule qui contient draguignan ou autre cells(ligne,colonne) et modifies le nom de feuille et réécris ton code comme ca :
ActiveSheet.Range("$A$1:$J$36612").AutoFilter Field:=5, Criteria1:= _
"=" & filtre, Operator:=xlAnd
Il est tout à fait possible d'introduire une variable mais la ou il faut l'introduire est :
actuellement ton code :
ActiveSheet.Range("$A$1:$J$36612").AutoFilter Field:=5, Criteria1:= _
"=*draguignan*", Operator:=xlAnd
signifie qu'il fltre sur draguignan.
rentres une varaible du style :
filtre= sheets("feuil1").cells(1,1) 'il faut que tu mets la cellule qui contient draguignan ou autre cells(ligne,colonne) et modifies le nom de feuille et réécris ton code comme ca :
ActiveSheet.Range("$A$1:$J$36612").AutoFilter Field:=5, Criteria1:= _
"=" & filtre, Operator:=xlAnd
Leon
Merci pour ta réponse, j'ai essayé ce code mais ça ne marche toujours pas, le critère de recherche dans le filtre devient "FALSE" et la macro se bloque...
melanie1324
- Messages postés
- 1505
- Date d'inscription
- vendredi 25 mai 2007
- Statut
- Membre
- Dernière intervention
- 31 janvier 2018
j'ai fait une erreur dans l'écriture, essaie comme ca :
ActiveSheet.Range("$A$1:$J$36612").AutoFilter Field:=5, Criteria1:= filtre, Operator:=xlAnd
ActiveSheet.Range("$A$1:$J$36612").AutoFilter Field:=5, Criteria1:= filtre, Operator:=xlAnd