MACRO Recap de donné sur un tableau

  • Initiateur de la discussion Initiateur de la discussion boubou95
  • 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 !

boubou95

XLDnaute Nouveau
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("A3😀74").Select
Selection.Copy
Sheets("Recap").Select
ActiveSheet.Paste
Range("K150").Select
Sheets("Centrale Gaz").Select
Selection.AutoFilter Field:=3, Criteria1:="<>"
Range("A3😀123").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("A3😀52").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("A3😀70").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Recap").Select
ActiveSheet.Paste
Range("K450").Select

Merci!
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
406
Réponses
4
Affichages
878
Réponses
2
Affichages
890
Retour