Bonjour, je suis débutant sur Excel...
Mon fichier est un classeur qui contient une page Recap et sept pages contenant des produits: Ref-Designations - Quantités- et Unités.
Je souhaite que les produits de colonne "quantités" soit reporté sur ma page "Recap"
Mon script contient une erreur "1004" => Selection.AutoFilter Field:=3, Criteria1:="<>"et je ne trouve pas la solution.
Voici une partie du script:
'
' TRIER Macro
' Macro enregistrée le 30/05/2012
'
' Touche de raccourci du clavier: Ctrl+t
'
Sheets("Recap").Select
Rows("18:323").Select
Selection.Clear
ActiveWindow.SmallScroll Down:=-24
Columns("K:N").Select
Selection.Clear
Range("K50").Select
Sheets("MATERIEL SI").Select
Selection.AutoFilter Field:=3, Criteria1:="<>"
Range("A374").Select
Selection.Copy
Sheets("Recap").Select
ActiveSheet.Paste
Range("K150").Select
Sheets("Centrale Gaz").Select
Selection.AutoFilter Field:=3, Criteria1:="<>"
Range("A3123").Select
Selection.Copy
Sheets("Recap").Select
ActiveSheet.Paste
Range("K250").Select
Sheets("GROUPE D'AIR ET DE VIDE").Select
Selection.AutoFilter Field:=3, Criteria1:="<>"
Range("A352").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recap").Select
ActiveSheet.Paste
Range("K350").Select
Sheets("Stock Cryo-Bio").Select
Selection.AutoFilter Field:=3, Criteria1:="<>"
Range("A370").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recap").Select
ActiveSheet.Paste
Range("K450").Select
Merci!
Mon fichier est un classeur qui contient une page Recap et sept pages contenant des produits: Ref-Designations - Quantités- et Unités.
Je souhaite que les produits de colonne "quantités" soit reporté sur ma page "Recap"
Mon script contient une erreur "1004" => Selection.AutoFilter Field:=3, Criteria1:="<>"et je ne trouve pas la solution.
Voici une partie du script:
'
' TRIER Macro
' Macro enregistrée le 30/05/2012
'
' Touche de raccourci du clavier: Ctrl+t
'
Sheets("Recap").Select
Rows("18:323").Select
Selection.Clear
ActiveWindow.SmallScroll Down:=-24
Columns("K:N").Select
Selection.Clear
Range("K50").Select
Sheets("MATERIEL SI").Select
Selection.AutoFilter Field:=3, Criteria1:="<>"
Range("A374").Select
Selection.Copy
Sheets("Recap").Select
ActiveSheet.Paste
Range("K150").Select
Sheets("Centrale Gaz").Select
Selection.AutoFilter Field:=3, Criteria1:="<>"
Range("A3123").Select
Selection.Copy
Sheets("Recap").Select
ActiveSheet.Paste
Range("K250").Select
Sheets("GROUPE D'AIR ET DE VIDE").Select
Selection.AutoFilter Field:=3, Criteria1:="<>"
Range("A352").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recap").Select
ActiveSheet.Paste
Range("K350").Select
Sheets("Stock Cryo-Bio").Select
Selection.AutoFilter Field:=3, Criteria1:="<>"
Range("A370").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recap").Select
ActiveSheet.Paste
Range("K450").Select
Merci!
Dernière édition: