Microsoft 365 MACRO VBA - Extraire des listes à partir d'une boucle

[chris6999]

Bonjour

Un cas un peu complexe (pour moi..) que je souhaite vous soumettre car je suis confrontée à la limite de mes connaissances.

J'ai un fichier avec 3 onglet :
Liste : liste où se trouve les éléments que je souhaite extraire et exporter vers la feuille Fichier. Chaque ligne est référencée avec un code qui va me permettre de grouper cette extraction
CONCATENER : Liste des codes de référence sur laquelle je souhaite boucler pour créer mes listes
Fichier : fichier de destination des données extraites pour le même code référence

Le principe est le suivant :

Pour chaque références renseignées dans l'onglet CONCATENER (j'ai pu préalablement en définir le nombre dans un code précédent)
Je définie la plage à extraire : première ligne où figure le code référence examiné jusqu'à dernière ligne où figure le code référence examiné (Colonne D à J)
Je colle cette plage en A11 de ma feuille fichier.
J'exporte une copie de cette feuille pour l'enregistrer en tant que nouveau fichier

Je passe à la seconde référence et je procède à la même opération

Puis à la troisième... jusqu'à ce que toutes les références aient été balayées

Ce qui m'intéresse c'est surtout la partie boucle sur les références
Je pense pouvoir gérer celui qui permet d'exporter les valeurs de la plage et de générer chaque fichier

Je ne vois pas ce que je pourrais utiliser pour faire ça..

Si quelqu'un peut m'aider j'en serais très reconnaissante

Nb: je mets un fichier test en PJ

 

[sylvanu]

Bonjour Chris,
Un essai en PJ avec ce que j'ai compris.
1- Le nom de fichier utilisé est du genre Code_date, par ex : Code 8990101_2024_03_14.xlsx
2- Ils sont enregistrés dans le même dossier que le fichier courant
3- J'ai mis le code traité dans le statusbar pour suivre la progression.
On obtient un truc du genre :

 

[chris6999]

Bonjour Chris,
Un essai en PJ avec ce que j'ai compris.
1- Le nom de fichier utilisé est du genre Code_date, par ex : Code 8990101_2024_03_14.xlsx
2- Ils sont enregistrés dans le même dossier que le fichier courant
3- J'ai mis le code traité dans le statusbar pour suivre la progression.
On obtient un truc du genre :
Regarde la pièce jointe 1192862

Bonjour et merci Sylvanu je vais étudier tout ça
Bonne journée

 

[chris6999]

Bonjour Chris,
Un essai en PJ avec ce que j'ai compris.
1- Le nom de fichier utilisé est du genre Code_date, par ex : Code 8990101_2024_03_14.xlsx
2- Ils sont enregistrés dans le même dossier que le fichier courant
3- J'ai mis le code traité dans le statusbar pour suivre la progression.
On obtient un truc du genre :
Regarde la pièce jointe 1192862

Bonjour

Je viens de tester et cela fonctionne comme je l'attendais.

Bonjour et merci Sylvanu je vais étudier tout ça
Bonne journée

Sylvanu

J'ai essayé tant bien que mal à adapter ton code à mon projet réel et je crois que cela ne s'est pas trop mal passé.
En revanche j'ai un petit problème avec ta proposition que je souhaiterais corriger:
L'export de la feuille "Liste" prend toutes les lignes pour le code à partir de la ligne 11
Or dans mon projet réel je dois partir d'une variable qui constitue la ligne de départ.
Je pense comprendre que la définition de la plage d'export se trouve à ce niveau du code mais je n'arrive pas à le modifier :
DL = .[A65500].End(xlUp).Row
tablo = .Range("A11:J" & DL)

Mon point de départ n'est pas A11 mais cells(premlig, "A")
premlig étant ma ligne de départ

Comment procéder pour modifier la définition de ma plage?
Ne comprenant pas trop comment fonctionne la macro (c au dessus de mon petit niveau de bricoleuse)
je ne sais pas si il suffit juste de modifier ce morceau ou revoir tout le code...

Je remets ton fichier modifié pour que cela soit plus compréhensible.

J'espère que tu pourras m'aider sans que cela soit trop compliqué pour toi.

Merci par avance
Bonne soirée

 

[Valtrase]

Bonjour,
Testes comme ceci peut-être

        tablo = .Range("A" & premlig & ":J" & DL) '!!!!!!!!!!! ligne variable premlig

 

[chris6999]

Bonjour,
Testes comme ceci peut-être

        tablo = .Range("A" & premlig & ":J" & DL) '!!!!!!!!!!! ligne variable premlig

Bonjour et merci cela fonctionne nickel
Bonne journée