Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

j'ai un peu avancé mais cela bloque , voici le code :

Sub tri()

' création d'une feuille nouvelle nommée : toto
Sheets.Add
ActiveSheet.Name = "toto"

' recopie du titre des données situées en A1 de la feuil1
Range("A1").Select
ActiveCell.FormulaR1C1 = "=Feuil4!RC"
Range("A1:B1").FillRight

' choix critère
Range("D15").FormulaR1C1 = InputBox("Choisissez votre critère", "Choix critère")

' sélection des données par filtre
Sheets("toto").Select
Sheets("Feuil4").Range("B15:AJ622").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("B1:B2"), CopyToRange:=Range("A4"), Unique:=False

End Sub
 
Re : tri et recopie automatique en fonction critere

bonjour, en fait j'ai essayé d'appliquer la macro en fonction de mon projet mais je n'y arrive pas les lignes sont completement décalé
peux tu m'aider ?
merci
 

Pièces jointes

Re : tri et recopie automatique en fonction critere

bonjour et merci pour ta proposition : par contre il me signale que l'indice ne correspond pas : erreur à la ligne suivante "If x(0) = coll(n) Then"
bizarre
qu'en penses tu ?
merci
 
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
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…