[Macro]Copier des données de Feuille a Feuille

Le 13/11/2014 à 11:48

Bonjour.

Je suis un petit nouveau sur le VBA

Pour ma formation on ma demande d'automatisé un tableau.

Je fais un Export de notre logiciel que je Colle en dans la Colonne M qui va jusqu’à AW ( tous ce qui es avant M son mes Fonctions )

Mes tableaux son de 12K lignes a 32K ( Max je pense )

Dans ma Colonne B j'ai le Secteur ( la Zone ) je dois copier les lignes des secteurs X en Feuille X

Exemple :

Zone 1 sélection de toute les Lignes Zone 1 et les copier dans la Feuille zone 1 en A15 les une âpres les autres ( Copier simplement Valeur )

Je dois vraiment copier de A --> AW

Actuellement je fais des Boucles Forcées ... Avec des filtres .

Filtre Zone 1 Auto Sélection de A:Aw22000.

Sauf que pour mon tableau quand j'ai trop de ligne il me copie pas tous ,donc mes resultas seront faux dans mon tableau de synthèse s'il y me manque des lignes

Je suis vraiment un débutant ( les 3/4 de ma Macro Actuelle c'est du enregistré :'( )

Si vous avez une solution je vous écoute

Merci par avance

Sub Macro1()

'

' Macro1 Macro

'

'

Sheets("Ajusteage Ebavurage").Select

Range("A15:AU22000").Select

Selection.ClearContents

Sheets("Controle").Select

Range("A15:AU22000").Select

Selection.ClearContents

Sheets("Controle Final").Select

Range("A15:AU22000").Select

Selection.ClearContents

Sheets("Divers").Select

Range("A15:AU22000").Select

Selection.ClearContents

Sheets("Fraisage").Select

Range("A15:AU22000").Select

Selection.ClearContents

Sheets("Magasin").Select

Range("A15:AU22000").Select

Selection.ClearContents

Sheets("Montage").Select

Range("A15:AU22000").Select

Selection.ClearContents

Sheets("Procédés Spéciaux").Select

Range("A15:AU22000").Select

Selection.ClearContents

Sheets("Rectif denture").Select

Range("A15:AU22000").Select

Selection.ClearContents

Sheets("Rectification").Select

Range("A15:AU22000").Select

Selection.ClearContents

Sheets("Taillage").Select

Range("A15:AU22000").Select

Selection.ClearContents

Sheets("Taillage Conique").Select

Range("A15:AU22000").Select

Selection.ClearContents

Sheets("Tournage").Select

Range("A15:AU22000").Select

Selection.ClearContents

Sheets("Synthése").Select

Sheets("Export").Select

ActiveSheet.Range("$A$1:$AW$22000").AutoFilter Field:=3, Criteria1:= _

"Ajustage / ébavurage"

Range("A1:AW22000").Select

Selection.Copy

Sheets("Ajusteage Ebavurage").Select

Range("A15").Select

ActiveSheet.Paste

Sheets("Export").Select

Application.CutCopyMode = False

ActiveSheet.Range("$A$1:$AW$22000").AutoFilter Field:=3, Criteria1:= _

"Contrôle"

Range("A1:AW22000").Select

Selection.Copy

Sheets("Controle").Select

Range("A15").Select

ActiveSheet.Paste

Sheets("Export").Select

Application.CutCopyMode = False

ActiveSheet.Range("$A$1:$AW$22000").AutoFilter Field:=3, Criteria1:= _

"Contrôle final"

Range("A1:AW22000").Select

Selection.Copy

Sheets("Controle Final").Select

Range("A15").Select

ActiveSheet.Paste

Sheets("Export").Select

Application.CutCopyMode = False

ActiveSheet.Range("$A$1:$AW$22000").AutoFilter Field:=3, Criteria1:= _

"Divers"

Range("A1:AW22000").Select

Selection.Copy

Sheets("Divers").Select

Range("A15").Select

ActiveSheet.Paste

Sheets("Export").Select

Application.CutCopyMode = False

ActiveSheet.Range("$A$1:$AW$22000").AutoFilter Field:=3, Criteria1:= _

"Fraisage"

Range("A1:AW22000").Select

Selection.Copy

Sheets("Fraisage").Select

Range("A15").Select

ActiveSheet.Paste

Sheets("Export").Select

Application.CutCopyMode = False

ActiveSheet.Range("$A$1:$AW$22000").AutoFilter Field:=3, Criteria1:= _

"Magasin"

Range("A1:AW22000").Select

Selection.Copy

Sheets("Magasin").Select

Range("A15").Select

ActiveSheet.Paste

Sheets("Export").Select

Application.CutCopyMode = False

ActiveSheet.Range("$A$1:$AW$22000").AutoFilter Field:=3, Criteria1:= _

"Montage"

Range("A1:AW22000").Select

Selection.Copy

Sheets("Montage").Select

Range("A15").Select

ActiveSheet.Paste

Sheets("Export").Select

Application.CutCopyMode = False

ActiveSheet.Range("$A$1:$AW$22000").AutoFilter Field:=3, Criteria1:= _

"Procédés spéciaux"

Range("A1:AW22000").Select

Selection.Copy

Sheets("Procédés spéciaux").Select

Range("A15").Select

ActiveSheet.Paste

Sheets("Export").Select

Application.CutCopyMode = False

ActiveSheet.Range("$A$1:$AW$22000").AutoFilter Field:=3, Criteria1:= _

"Rectif denture"

Range("A1:AW22000").Select

Selection.Copy

Sheets("Rectif denture").Select

Range("A15").Select

ActiveSheet.Paste

Sheets("Export").Select

Application.CutCopyMode = False

ActiveSheet.Range("$A$1:$AW$22000").AutoFilter Field:=3, Criteria1:= _

"Rectification"

Range("A1:AW22000").Select

Selection.Copy

Sheets("Rectification").Select

Range("A15").Select

ActiveSheet.Paste

Sheets("Export").Select

Application.CutCopyMode = False

ActiveSheet.Range("$A$1:$AW$22000").AutoFilter Field:=3, Criteria1:= _

"Taillage"

Range("A1:AW22000").Select

Selection.Copy

Sheets("Taillage").Select

Range("A15").Select

ActiveSheet.Paste

Sheets("Export").Select

Application.CutCopyMode = False

ActiveSheet.Range("$A$1:$AW$22000").AutoFilter Field:=3, Criteria1:= _

"Taillage conique"

Range("A1:AW22000").Select

Selection.Copy

Sheets("Taillage conique").Select

Range("A15").Select

ActiveSheet.Paste

Sheets("Export").Select

Application.CutCopyMode = False

ActiveSheet.Range("$A$1:$AW$22000").AutoFilter Field:=3, Criteria1:= _

"Tournage"

Range("A1:AW22000").Select

Selection.Copy

Sheets("Tournage").Select

Range("A15").Select

ActiveSheet.Paste

Sheets("Export").Select

Application.CutCopyMode = False

Sheets("Ajusteage Ebavurage").Select

Rows("15:15").Select

Selection.AutoFilter

Sheets("Controle").Select

Rows("15:15").Select

Selection.AutoFilter

Sheets("Controle Final").Select

Rows("15:15").Select

Selection.AutoFilter

Sheets("Divers").Select

Rows("15:15").Select

Selection.AutoFilter

Sheets("Fraisage").Select

Rows("15:15").Select

Selection.AutoFilter

Sheets("Magasin").Select

Rows("15:15").Select

Selection.AutoFilter

Sheets("Montage").Select

Rows("15:15").Select

Selection.AutoFilter

Sheets("Procédés Spéciaux").Select

Rows("15:15").Select

Selection.AutoFilter

Sheets("Rectif denture").Select

Rows("15:15").Select

Selection.AutoFilter

Sheets("Rectification").Select

Rows("15:15").Select

Selection.AutoFilter

Sheets("Taillage").Select

Rows("15:15").Select

Selection.AutoFilter

Sheets("Taillage Conique").Select

Rows("15:15").Select

Selection.AutoFilter

Sheets("Tournage").Select

Rows("15:15").Select

Selection.AutoFilter

Sheets("Export").Select

Sheets("temps").Select

ActiveSheet.PivotTables("Tableau croisé dynamique10").PivotCache.Refresh

Sheets("temps").Select

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Secteur"). _

ClearAllFilters

ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("Secteur"). _

CurrentPage = "Ajustage / ébavurage"

ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Secteur"). _

ClearAllFilters

ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields("Secteur"). _

CurrentPage = "Contrôle"

ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Secteur"). _

ClearAllFilters

ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Secteur"). _

CurrentPage = "Contrôle final"

ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("Secteur"). _

ClearAllFilters

ActiveSheet.PivotTables("Tableau croisé dynamique5").PivotFields("Secteur"). _

CurrentPage = "Divers"

ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Secteur"). _

ClearAllFilters

ActiveSheet.PivotTables("Tableau croisé dynamique6").PivotFields("Secteur"). _

CurrentPage = "Fraisage"

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 6

ActiveWindow.ScrollColumn = 7

ActiveWindow.ScrollColumn = 8

ActiveWindow.ScrollColumn = 9

ActiveWindow.ScrollColumn = 10

ActiveWindow.ScrollColumn = 11

ActiveWindow.ScrollColumn = 12

ActiveWindow.ScrollColumn = 13

ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("Secteur"). _

ClearAllFilters

ActiveSheet.PivotTables("Tableau croisé dynamique7").PivotFields("Secteur"). _

CurrentPage = "Magasin"

ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("Secteur"). _

ClearAllFilters

ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("Secteur"). _

CurrentPage = "Montage"

ActiveSheet.PivotTables("Tableau croisé dynamique9").PivotFields("Secteur"). _

ClearAllFilters

ActiveSheet.PivotTables("Tableau croisé dynamique9").PivotFields("Secteur"). _

CurrentPage = "Procédés spéciaux"

ActiveSheet.PivotTables("Tableau croisé dynamique10").PivotFields("Secteur"). _

ClearAllFilters

ActiveSheet.PivotTables("Tableau croisé dynamique10").PivotFields("Secteur"). _

CurrentPage = "Rectif denture"

ActiveWindow.ScrollColumn = 14

ActiveWindow.ScrollColumn = 15

ActiveWindow.ScrollColumn = 16

ActiveWindow.ScrollColumn = 17

ActiveWindow.ScrollColumn = 18

ActiveWindow.ScrollColumn = 19

ActiveWindow.ScrollColumn = 20

ActiveWindow.ScrollColumn = 21

ActiveWindow.ScrollColumn = 22

ActiveWindow.ScrollColumn = 23

ActiveSheet.PivotTables("Tableau croisé dynamique11").PivotFields("Secteur"). _

ClearAllFilters

ActiveSheet.PivotTables("Tableau croisé dynamique11").PivotFields("Secteur"). _

CurrentPage = "Rectification"

ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotFields("Secteur"). _

ClearAllFilters

ActiveSheet.PivotTables("Tableau croisé dynamique12").PivotFields("Secteur"). _

CurrentPage = "Taillage"

ActiveSheet.PivotTables("Tableau croisé dynamique13").PivotFields("Secteur"). _

ClearAllFilters

ActiveSheet.PivotTables("Tableau croisé dynamique13").PivotFields("Secteur"). _

CurrentPage = "Taillage conique"

ActiveWindow.ScrollColumn = 24

ActiveSheet.PivotTables("Tableau croisé dynamique14").PivotFields("Secteur"). _

ClearAllFilters

ActiveSheet.PivotTables("Tableau croisé dynamique14").PivotFields("Secteur"). _

CurrentPage = "Tournage"

Sheets("Synthése").Select

Le 13/11/2014 à 12:46

Bonjour,

Ce serait mieux de poster ton fichier (avec données non confidentielles) je pense

Crdlt

Le 13/11/2014 à 13:30

Voila j'ai fais mon possible j'ai remplacé les choses importante pas TEST

Le principe marche un peu il y a juste un soucis sur la copie quand il y a trop de ligne il me copie pas tous.

On ma dit de faire ligne par ligne :

ligne 1 Zone 1 ----> feuille Zone 1

ligne 2 Zone 5 ----> Feuille Zone 6

tous sa Copier a partir de A16 car en A15 j'ai mon Filtre

( Impossible de Ajouter mon fichier je vous l'héberge )

http://www.fichier-xls.fr/2014/11/13/aleas-tp-ta-15-09-2014-pour-vba/

http://xls.lu/2i29

Le 13/11/2014 à 15:53

Si vous avez des questions ou j'ai pas étais clair hésitez pas surtout.

Le 13/11/2014 à 19:01

Un petit up

( Oui demain vendredi j’espère finir ce fichier avant de repartir en cours ;s c'est pour sa que je suis un peu pressé désolé )

Le 14/11/2014 à 13:16

Re

Voici le code corrigé.

Sub Miseajour()
'Dan - 14/11/2014
Dim dlg As Long
Dim i As Byte

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("Ajusteage Ebavurage").Range("A15:AU" & Sheets("Ajusteage Ebavurage").Range("C" & Sheets("Ajusteage Ebavurage").Rows.Count).End(xlUp).Row).Clear
Sheets("Controle").Range("A15:AU" & Sheets("Controle").Range("C" & Sheets("Controle").Rows.Count).End(xlUp).Row).Clear
Sheets("Controle Final").Range("A15:AU" & Sheets("Controle Final").Range("C" & Sheets("Controle Final").Rows.Count).End(xlUp).Row).Clear
Sheets("Divers").Range("A15:AU" & Sheets("Divers").Range("C" & Sheets("Divers").Rows.Count).End(xlUp).Row).Clear
Sheets("Fraisage").Range("A15:AU" & Sheets("Fraisage").Range("C" & Sheets("Fraisage").Rows.Count).End(xlUp).Row).Clear
Sheets("Magasin").Range("A15:AU" & Sheets("Magasin").Range("C" & Sheets("Magasin").Rows.Count).End(xlUp).Row).Clear
Sheets("Montage").Range("A15:AU" & Sheets("Montage").Range("C" & Sheets("Montage").Rows.Count).End(xlUp).Row).Clear
Sheets("Procédés Spéciaux").Range("A15:AU" & Sheets("Procédés Spéciaux").Range("C" & Sheets("Procédés Spéciaux").Rows.Count).End(xlUp).Row).Clear
Sheets("Rectif denture").Range("A15:AU" & Sheets("Rectif denture").Range("C" & Sheets("Rectif denture").Rows.Count).End(xlUp).Row).Clear
Sheets("Rectification").Range("A15:AU" & Sheets("Rectification").Range("C" & Sheets("Rectification").Rows.Count).End(xlUp).Row).Clear
Sheets("Taillage").Range("A15:AU" & Sheets("Taillage").Range("C" & Sheets("Taillage").Rows.Count).End(xlUp).Row).Clear
Sheets("Taillage Conique").Range("A15:AU" & Sheets("Taillage Conique").Range("C" & Sheets("Taillage Conique").Rows.Count).End(xlUp).Row).Clear
Sheets("Tournage").Range("A15:AU" & Sheets("Tournage").Range("C" & Sheets("Tournage").Rows.Count).End(xlUp).Row).Clear

With Sheets("Export")
.Select
dlg = .Range("C" & .Rows.Count).End(xlUp).Row
.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Ajustage / ébavurage"
.Range("A1:AW" & dlg).Copy Sheets("Ajusteage Ebavurage").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Contrôle"
.Range("A1:AW" & dlg).Copy Sheets("Controle").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Contrôle final"
.Range("A1:AW" & dlg).Copy Sheets("Controle Final").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Divers"
.Range("A1:AW" & dlg).Copy Sheets("Divers").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Fraisage"
.Range("A1:AW" & dlg).Copy Sheets("Fraisage").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Magasin"
.Range("A1:AW" & dlg).Copy Sheets("Magasin").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Montage"
.Range("A1:AW" & dlg).Copy Sheets("Montage").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Procédés spéciaux"
.Range("A1:AW" & dlg).Copy Sheets("Procédés spéciaux").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Rectif denture"
.Range("A1:AW" & dlg).Copy Sheets("Rectif denture").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Rectification"
.Range("A1:AW" & dlg).Copy Sheets("Rectification").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Taillage"
.Range("A1:AW" & dlg).Copy Sheets("Taillage").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Taillage conique"
.Range("A1:AW" & dlg).Copy Sheets("Taillage conique").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Tournage"
.Range("A1:AW" & dlg).Copy Sheets("Tournage").Range("A15")
End With

Sheets("Ajusteage Ebavurage").Rows("15:15").AutoFilter
Sheets("Controle").Rows("15:15").AutoFilter
Sheets("Divers").Rows("15:15").AutoFilter
Sheets("Fraisage").Rows("15:15").AutoFilter
Sheets("Magasin").Rows("15:15").AutoFilter
Sheets("Montage").Rows("15:15").AutoFilter
Sheets("Procédés Spéciaux").Rows("15:15").AutoFilter
Sheets("Rectif denture").Rows("15:15").AutoFilter
Sheets("Rectification").Rows("15:15").AutoFilter
Sheets("Taillage").Rows("15:15").AutoFilter
Sheets("Taillage Conique").Rows("15:15").AutoFilter
Sheets("Tournage").Rows("15:15").AutoFilter

With Sheets("temps")
.Select
For i = 2 To .PivotTables.Count
.PivotTables("Tableau croisé dynamique" & i).PivotCache.Refresh
Next
End With
Sheets("Synthése").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Ton fichier a plein de souci que je suis en train de corriger. Le poids était de 65.7 Mo !! . Avec les corrections il redescend à 15Mo. Mais il reste des choses à faire. Je reviens vers toi une fois terminé

Crdlt

Le 14/11/2014 à 13:23

Re Dan

Oui le fichier est tres tres lourd elas ^^

Tu arrives a descebdre a 15 mo Oo impatient de voir ceci.

Pourrais-tu me dire mes erreurs en globale ?

Je pense que deja avoir enregistré la macro etait pas me top top a faire .

Car pour etre sur de bien faire j ai fais etape par etape déjà.

J ai essayé de lire ce que tu avais fais j ai pas tous compris je crois . La macro cherche ligne par ligne c est un if ( une boucle) ?

Le 14/11/2014 à 15:21

re

Vois ce lien pur récupérer le fichier. Si souci dis moi

Lien :

Si ok, clique sur le V vert à coté du bouton EDITER lors de ta réponse afin de cloturer le fil

Edit : Nouveau lien :

Le 14/11/2014 à 16:55

heu pour la Copie c'est good mais mon tableau dans chaque page ne se mets plus a jours tu sais les Min - Max j'avais des fonction impotente dedans qui reparté sur la feuille synthèse

Le 17/11/2014 à 08:24

re

Ton fichier en retour -->

Attention que dans les feuille en G4, la formule n'est pas toujours la même. La formule est parfois = somme(X:X) et des fois = Temps!..

Le fichier est toujours assez lourd en poids avec 8Mo mais c'est mieux que les 65Mo du début

Crdlt

Le 17/11/2014 à 09:19

Salut Dan

Deja merci a toi on avance pas mal sur le tableau.

C est vrai que j ai fais pas mal de modification sur le tableau donc il est possible que j ai zape des truc .

Dans chaque feuilles de zone il y a la synthèse les mini et max et moyenne son pris dans le TCD dans la feuille temps. Seulement pour le temps reel ( temps passé ) Pour le temps a loué j ai utilisé un fonction poyr trie les multi temps.explication:

Si il y a une phase ( operation ) que l on fait en 3 fois 3×10h sur mes 3 ligne j aurais 30h donc si tu fais simplement la sommes sa te fais 90 ce qui est faut voila pk j ai utilisé la fonction si .

Je suis pas en salle info la j y serrais a 13h donc je repasserais apres avoir prus connaissance du nouveau tableau

Meric encore

Le 17/11/2014 à 14:10

Re Dan

Je viens de regarder le Fichier j'ai toujours le même souvis la Ligne 4 de chaque secteur saute j'ai plus les Chiffres et Fonction son suprimé ( Les syntheses de chaque secteur ) et j'ai pas de filtrre sur "controle final"

J'ai regarde un peu ta macro je comprends pas pourquoi sa suprime la Ligne 4 car sa colle bien en Ligne 15 :/

Le 17/11/2014 à 21:27

re

J'ai regarde un peu ta macro je comprends pas pourquoi sa suprime la Ligne 4 car sa colle bien en Ligne 15 :/

Parce que tu n'as probablement pas de données dans ta feuille au moment de la suppression des données dans cette même feuille

Remplace la macro par celle ci-dessous

Sub Miseajour()
'Dan - 14/11/2014
Dim dlg As Long
Dim i As Byte

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

For i = 1 To Sheets.Count

    Select Case Sheets(i).Name

        Case Is = "Ajusteage Ebavurage", "Controle", "Controle Final", "Divers", "Fraisage", "Magasin", "Montage", "Procédés Spéciaux", "Rectif denture", "Rectification", "Tailage", "Taillage Conique", "Tournage"
            If Range("C15") <> "" Then Sheets(i).Range("A15:AU" & Sheets(i).Range("C" & Sheets(i).Rows.Count).End(xlUp).Row).Clear

        Case Else
End Select
Next

With Sheets("Export")
.Select
dlg = .Range("C" & .Rows.Count).End(xlUp).Row
.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Ajustage / ébavurage"
.Range("A1:AW" & dlg).Copy Sheets("Ajusteage Ebavurage").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Contrôle"
.Range("A1:AW" & dlg).Copy Sheets("Controle").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Contrôle final"
.Range("A1:AW" & dlg).Copy Sheets("Controle Final").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Divers"
.Range("A1:AW" & dlg).Copy Sheets("Divers").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Fraisage"
.Range("A1:AW" & dlg).Copy Sheets("Fraisage").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Magasin"
.Range("A1:AW" & dlg).Copy Sheets("Magasin").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Montage"
.Range("A1:AW" & dlg).Copy Sheets("Montage").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Procédés spéciaux"
.Range("A1:AW" & dlg).Copy Sheets("Procédés spéciaux").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Rectif denture"
.Range("A1:AW" & dlg).Copy Sheets("Rectif denture").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Rectification"
.Range("A1:AW" & dlg).Copy Sheets("Rectification").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Taillage"
.Range("A1:AW" & dlg).Copy Sheets("Taillage").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Taillage conique"
.Range("A1:AW" & dlg).Copy Sheets("Taillage conique").Range("A15")

.Range("$A$1:$AW$" & dlg).AutoFilter Field:=3, Criteria1:="Tournage"
.Range("A1:AW" & dlg).Copy Sheets("Tournage").Range("A15")
End With

Sheets("Ajusteage Ebavurage").Rows("15:15").AutoFilter
Sheets("Controle").Rows("15:15").AutoFilter
Sheets("Controle Final").Rows("15:15").AutoFilter
Sheets("Divers").Rows("15:15").AutoFilter
Sheets("Fraisage").Rows("15:15").AutoFilter
Sheets("Magasin").Rows("15:15").AutoFilter
Sheets("Montage").Rows("15:15").AutoFilter
Sheets("Procédés Spéciaux").Rows("15:15").AutoFilter
Sheets("Rectif denture").Rows("15:15").AutoFilter
Sheets("Rectification").Rows("15:15").AutoFilter
Sheets("Taillage").Rows("15:15").AutoFilter
Sheets("Taillage Conique").Rows("15:15").AutoFilter
Sheets("Tournage").Rows("15:15").AutoFilter

With Sheets("temps")
.Select
For i = 2 To .PivotTables.Count
.PivotTables("Tableau croisé dynamique" & i).PivotCache.Refresh
Next
End With
Sheets("Synthése").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

Pour le souci du filtre automatique, il manquait une ligne de code.

Crdlt

Le 17/11/2014 à 23:26

Re Dan j'ai toujours la même soucis regarde les Synthèses dans Ajustage Ebavurage et les autres secteurs il y a la ligne C16 qui saute j'ai plus les Synthèses des Feuilles :/

Le 18/11/2014 à 08:05

re

Dans la feuille Ajustage Ebavurage, en B4 tu dois avoir =C16 au lieu de =C15

Te suffit de la changer pour que la feuille Synthèse ne mentionne plus "secteur" en A3.

Je suppose que c'est de cela dont tu parles car mis à part ce souci le fichier fonctionne

Le 18/11/2014 à 14:00

Salut Dan Alors un gros merci pour tous ce que tu as fais pour moi =)

Tu viens de me faire gagné un temps enorme merci encore a toi. J'ai regarde la sur les pc en cours sa fais correctement ce que je voulais je vais essaye la semaine pro au travail et je te tiendrais au courant en Mp si il y a des tite modif a faire =)

Je mets comme probleme reglé un grand Merci a toi !

Rechercher des sujets similaires à "macro copier donnees feuille"