excel / VBA macro recherche et copie Résolu/Fermé

Question

Bonjour, 
je suis stagiaire et doit faire un projet sur excel mias je connais rien au macro. 
Dans la premiere feuille excel j'ai une liste d'informations sur des moteurs (20 moteurs differents au total ) 
des relevés sont effectué toutes les X semaines et les informations sont mis a la suite dans cette premiere feuille 
je souhaiterai que toute les lignes contanent les informations du moteurs 1 soit copiés dans l'onglet 2 les informations du moteurs 2 dans l'onglet 3 ainsi de suite . les numeros des moteurs sont placés les un en dessous des autres dans la colonne 1. comment puis-je faire ??? 
merci d'avance

LatelyGeek · Answer

Sub Moteurs()
'
'Sélection de la ligne d'entêtes
    Range("A1:K1").Select 
'Filtrage sur Moteur 1, s'il est en première colonne (Field:=1)
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="Moteur1" 
'Sélection et copie des lignes extraites
    Selection.CurrentRegion.Select
    Selection.Copy
'Sélection de la feuille Moteurs 1 et copie en A1
    Sheets("Moteurs1").Select
    Range("A1).Select
    ActiveSheet.Paste
'Retour à la feuille principale
    Sheets("TousLesMoteurs").Select
'Filtrage sur Moteur 1, s'il est en première colonne (Field:=1)
    Selection.AutoFilter Field:=1, Criteria1:="Moteur2" 
'Sélection et copie des lignes extraites
    Selection.CurrentRegion.Select
    Selection.Copy
'Sélection de la feuille Moteurs 2 et copie en A1
    Sheets("Moteurs2").Select
    ActiveSheet.Paste
End Sub

Excel / VBA macro recherche et copie

1 réponse