tri et recopie automatique en fonction critere

[arvin]

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

 

[Cousinhub]

Re : tri et recopie automatique en fonction critere

Bonjour,
plutôt que ton code, peux-tu joindre un fichier exemple, avec les filtres que tu désires

 

[arvin]

Re : tri et recopie automatique en fonction critere

bonjour, oui tu as raison
merci de ton aide

 

[arvin]

Re : tri et recopie automatique en fonction critere

bonjour et bon 1er mai

as tu réussi à m'aider ?

merci

 

[arvin]

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

 

[cbea]

Re : tri et recopie automatique en fonction critere

Bonsoir arvin

Voici une solution.

 

[arvin]

Re : tri et recopie automatique en fonction critere

merci beaucoup

 

[arvin]

Re : tri et recopie automatique en fonction critere

et désolé du retard je regarde ce soir et te tiens au courant
super

 

[arvin]

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

 

[pierrejean]

Re : tri et recopie automatique en fonction critere

bonjour arvin

Mes hommages cbea

Une version differente

 

[cbea]

Re : tri et recopie automatique en fonction critere

Bonjour arvin, pierrejean,

Voici une autre version.

 

[arvin]

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

 

[arvin]

Re : tri et recopie automatique en fonction critere

merci encore mais il manque le regroupement de la feuille multiple
peux tu m'aider
merci

 

[cbea]

Re : tri et recopie automatique en fonction critere

Bonjour arvin,

Voici une nouvelle version.

 

[arvin]

Re : tri et recopie automatique en fonction critere

super merci ça a l'air de marcher je te tiens au courant
merci beaucoup