tri et recopie automatique en fonction critere

  • Initiateur de la discussion Initiateur de la discussion arvin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

arvin

XLDnaute Occasionnel
bonjour, j'ai un souci avec cette macro : l'idée est de recopie sur des feuilles créees (le mieux serait qu'il les cree avec la macro) le résultat d'un filtre
4 critères sont nécessaire , le premier fonction mais pas les autres , pourquoi ???

merci de votre réponse


Sub Tri_recopie()
'

Rows("14:14").Select -> c'est à partir de cette ligne que le tri commence
Selection.AutoFilter
Selection.AutoFilter Field:=4, Criteria1:="=*toto*", Operator:=xlAnd
Cells.Select
Selection.Copy
Sheets("toto").Select
Application.CutCopyMode = False
Sheets("feuille d'origine").Select
Selection.Copy
Sheets("toto").Select -> le mieux serait qu'il cree cette feuille
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-9 -> ??????
ActiveSheet.Paste
Cells.Select -> pour annuler le filtre sur la feuille d'origine
Selection.AutoFilter


Rows("14:14").Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="=*tata*", Operator:=xlAnd
Cells.Select
Selection.Copy
Sheets("tata").Select
Application.CutCopyMode = False
Sheets("feuille d'origine").Select
Selection.Copy
Sheets("tata").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-9
ActiveSheet.Paste
Cells.Select
Selection.AutoFilter


Rows("14:14").Select
Selection.AutoFilter
Selection.AutoFilter Field:=8, Criteria1:="=*titi*", Operator:=xlAnd
Cells.Select
Selection.Copy
Sheets("titi").Select
Application.CutCopyMode = False
Sheets("feuille d'origine").Select
Selection.Copy
Sheets("titi").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-9
ActiveSheet.Paste
Cells.Select
Selection.AutoFilter


Rows("14:14").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:="=*tutu*", Operator:=xlAnd
Cells.Select
Selection.Copy
Sheets("tutu").Select
Application.CutCopyMode = False
Sheets("feuille d'origine").Select
Selection.Copy
Sheets("tutu").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-9
ActiveSheet.Paste
Cells.Select
Selection.AutoFilter

End Sub
 
Re : tri et recopie automatique en fonction critere

super cela fonctionne nickel : serait il possible d'avoir un onglet aasm40 et un autre aasm 10 + 20 +30 ?
si tu dois tout refaire laisse je vais essayer d'adapter le truc
merc encore et à bentôt
 
Notre forum d’entraide est 100 % gratuit et le restera.
Aucune formation payante, aucun fichier à acheter, rien à vendre. Mais comme tout site, nous devons couvrir nos frais pour continuer à vous accompagner.
Soutenez-nous en souscrivant à un compte membre : c’est rapide, vous choisissez simplement votre niveau de soutien et le tour est joué.

Je soutiens la communauté et j’accède à mon compte membre

Discussions similaires

Réponses
1
Affichages
372
Réponses
6
Affichages
673
Réponses
4
Affichages
830
Retour