Excel / VBA macro recherche et copie
Résolu/Fermé
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
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
A voir également:
- Excel / VBA macro recherche et copie
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Si et excel - Guide
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Copie cachée - Guide
1 réponse
LatelyGeek
Messages postés
1758
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2023
550
22 févr. 2008 à 19:55
22 févr. 2008 à 19:55
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
'
'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 mars 2008 à 12:54
25 avril 2008 à 21:24
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