Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Couper x lignes dès que la ligne commence par le mot "Lieux" en Ai ?

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion beoper
  • 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 !

S'inscrire
B

beoper

XLDnaute Junior
Bonjour à tous,

J'aimerais créer une macro qui ferait la chose suivante :

En commençant par le bas : Couper x lignes dès que la ligne commence par le mot "Lieux" en Ai.
Puis coller ces x lignes dans le bon onglet "1", ou "2"... si la ligne i est égale à la ligne 1,2.. de l'onglet "Liste_entetes".

Merci d'avance 😉

ps: ci-joint le fichier avant le tri : "avant_tri.xls" et le fichier avec les résultats souhaités "apres_tri"
 

Pièces jointes

Trier par date Trier par votes
Re : Couper x lignes dès que la ligne commence par le mot "Lieux" en Ai ?

Bonjour Efgé,

Merci beaucoup pour votre réponse. çà fonctionne nickel pour l'exemple que j'ai donné. 😉

Mais en fait ce que je n'ai pas précisé (je m'en excuse) c'est que :
- j'ai 20 onglets avec à chaque fois une entête différente et on pas 2.
- Et que j'ai également plus de 10000 lignes.

nb: Au maximum il y a dans l'onglet "atrier" 12 colonnes au total et au minimum 4 colonnes.
[Et au maximum il y a 51 lignes pour chaque ligne commençant par "Lieux" (ligne "Lieux" incluse).]

J'arrive à modifier le début de votre macro comme suit mais pour la reste je suis bloqué.

Code: 
Sub atest()
Dim i&
Dim FDest As Worksheet
Dim EnTete
Sheets("Liste_entetes").Rows(1).Copy Sheets("[B]1[/B]").Cells(1, 1)
Sheets("Liste_entetes").Rows(2).Copy Sheets("[B]2[/B]").Cells(1, 1)
Sheets("Liste_entetes").Rows(2).Copy Sheets("[B]3[/B]").Cells(1, 1)
Sheets("Liste_entetes").Rows(2).Copy Sheets("[B]4[/B]").Cells(1, 1)
...etc...
Sheets("Liste_entetes").Rows(2).Copy Sheets("[B]20[/B]").Cells(1, 1)
With Sheets("atrier")


Merci d'avance 😉
Bien cordialement
 
Vote positif 0 Vote négatif
Re : Couper x lignes dès que la ligne commence par le mot "Lieux" en Ai ?

Re_ Sur quoi peut on s'appuyer pour faire la différence de destination des lignes ? _ Mets un fichier avec les différents types d'enregistrements à copier et leurs destinations _ D'autre part, vu ta macro du post précédent, il semble que toutes les feuilles aient le même en tête saur la première _ A te re lire _ Cordialement
 
Vote positif 0 Vote négatif
Re : Couper x lignes dès que la ligne commence par le mot "Lieux" en Ai ?

Re,

Efgé à dit:
Re_ Sur quoi peut on s'appuyer pour faire la différence de destination des lignes ? _ Mets un fichier avec les différents types d'enregistrements à copier et leurs destinations _
Cliquez pour agrandir...

Voilà j'ai rajouté des couleurs pour que cela soit plus clair (enfin j'espère !) : en vert les 3 cellules d'entête qui se répètent de partout [donc on peut s'appuyer sur la cellule "Lieux" en A(i)].
Et j'ai rajouté un onglet (oui je ne suis pas encore à 20 mais l'idée est là amha car il y a le nombre min et max de chaque colonne - toutefois merci de me dire si cela ne suffit pas et je corrigerais).


D'autre part, vu ta macro du post précédent, il semble que toutes les feuilles aient le même en tête saur la première _ A te re lire _ Cordialement
Cliquez pour agrandir...

Oups! erreurs de ma part ! J'essaie de corriger mais je ne suis pas sûr de ce que je fais !


Merci d'avance,
Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Couper x lignes dès que la ligne commence par le mot "Lieux" en Ai ?

Re_ je change tout _ Création des feuilles au fur et à mesure avec les en têtes qui se trouvent dans la feuille à trier quelque soit le nombre de feuilles final et même si les tableaux ne sont pas dans le bon ordre _ Après je ne sais plus... Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Couper x lignes dès que la ligne commence par le mot "Lieux" en Ai ?

Re,
Merci beaucoup .😉

Désolé mais je vois que mon exemple n'était pas encore fidèle ! ;(
En effet j'ai également des lignes d’entêtes qui ont le même nombre de colonnes.
J'ai rajouté des données dans l'onglet "atrier" à partir de la ligne 94 et de la ligne 218 (un nouvel entête cf. couleur rose).

Encore avec mes excuses et merci d'avance 😉
Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Couper x lignes dès que la ligne commence par le mot "Lieux" en Ai ?

Re_ Désolé du retard, réunion.... _ Une nouvelle mouture, qui crée les feuilles avec le nom du quatrième champs de chaque tableau_ Avec une fonction (d'Isabelle, que je salut) qui supprime les caractères interdits dans les noms de feuilles (au cas ou...) _ Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Couper x lignes dès que la ligne commence par le mot "Lieux" en Ai ?

Whaou ! Voyons pas besoin de s'excuser ! Merci beaucoup pour votre aide précieuse Efgé. 😉
Merci aussi à Isabelle. 😉
Encore mille mercis. 😉
Cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
763
Nel'
N
Y
  • Question Question
XL 2019 macro de recherche par mot et déplacement de la ligne dans un autre onglet
Réponses
2
Affichages
851
yenakisoncon
Y
R
  • Question Question
Microsoft 365 VBA - rechercher une ligne en fonction de 2 critères sur 2 colonnes différentes
Réponses
9
Affichages
1 K
sylvanu
M
  • Question Question
Microsoft 365 Tri de colonnes avec 3 critères, remplissage de lignes vides avec formule + ventilation vers autre onglet
Réponses
8
Affichages
2 K
marinehaye
M
R
  • Question Question
XL 2013 Si une colonne contient le mot x, copier la ligne vers une autre feuille Répondre
2
Réponses
25
Affichages
6 K
roki
R
  • Résolu(e)
XL 2013 Copier par VBA la ligne filtrée dans le bas du tableau
Réponses
5
Affichages
2 K
LEIYAZ
L
  • Résolu(e)
XL 2010 Automatiser par VBA la décomposition d'une ligne d'un fichier en 3 lignes sur un autre onglet
Réponses
7
Affichages
2 K
Lordchris
L
N
  • Question Question
XL 2016 Automatiser la mise en page d'un planning de travail sous excel (par VBA ?)
2
Réponses
17
Affichages
2 K
Pounet95
P
N
  • Question Question
insertion d'un nombre variable de données dans une boucle
2
Réponses
17
Affichages
3 K
ninajams
N
W
  • Résolu(e)
Comment renvoyer d'autres occurrences que la 1ère ?
Réponses
12
Affichages
2 K
WIsh_
W
M
  • Question Question
XL 2016 Rechercher un mot dans une colonne et copier coller les lignes dans une autre feuille excel
Réponses
5
Affichages
3 K
Lolote83
L
I
  • Question Question
XL 2016 Extraire données d'une colonne en fonction de la ligne du dessous
2
Réponses
23
Affichages
3 K
Staple1600
B
  • Question Question
XL 2016 [RESOLU] [VBA] Copier une ligne sur base d'une valeur x et coller/insérer x fois en-dessous
Réponses
5
Affichages
3 K
Jacky67
L
  • Question Question
Mettre des infos de lignes dans un autre onglet sur plusieurs lignes
Réponses
4
Affichages
1 K
LPandre
L
P
  • Question Question
Remplacer une ligne par X lignes sous conditions
Réponses
3
Affichages
671
pierrejean
M
  • Question Question
Macro repeter tant que en codage VBA
Réponses
3
Affichages
1 K
Dranreb
B
  • Question Question
VBA- Supprimer lignes si commence par..puis les lignes suivantes si....
Réponses
2
Affichages
1 K
Birone
B
F
  • Question Question
Optimisation de macro et correction de MEF conditionnel
Réponses
4
Affichages
1 K
fredd
F
F
  • Question Question
Suppression de lignes sous conditions
Réponses
4
Affichages
1 K
Robert
I
  • Question Question
[Resolu] Mise en forme conditionnelle et insertion de ligne
Réponses
1
Affichages
10 K
Iscape
I
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…