Excel / VBA macro recherche et copie

Résolu
scorp57 -  
 lallo -
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
Configuration: Windows 2000
Internet Explorer 6.0

1 réponse

  1.
    LatelyGeek Messages postés 1774 Date d'inscription   Statut Membre Dernière intervention   550
     
    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
    1
    1. scorp57
       
      merci bcp g enfin reussi grace a ton exemple.
      0
    2. lallo
       
      Bonjour,

      je cherche à créer une macro qui me permettrait de créer, à partir d1 fichier excel, un pdf (Pdf Creator),
      Le nom du fichier pdf serait une concaténation d'une cellule A1;"-";B1 de la feuille imprimée.
      Le fichier pdf serait à envoyer toujours dans le même repertoire ex : "dossier1"

      Je souhaite que le fichier pdf reste ouvert pour visualisation et soit fermé manuellement.

      Est-ce possible ?

      Merci d'avance pour toute indication
      0