Creer une Boucle dans une macro Excel pour copiage de fichier

Question

J'ai un fichier de base compilant pour chaque onglet des données afférent à des dossiers différents. En gros j'ai 5 onglets avec dans chacun 200 lignes réservées pour le dossier1, puis en dessous 200 lignes pour le dossier 2, etc jusqu'au dossier 34 et pareil pour chaque onglet. J'ai construit une macro qui enregistre dans X fichiers différents les données correspondantes à chaque dossier. Pour le dossier 1 Elle copie les lignes de chaque onglet et enregistre ca dans un fichier. puis passe au dossier suivant. telle qu'elle est là elle fonctionne (COL I - Listing Macro). je la construis d'apres qq formules et une liste qui indique quelle plage de ligne est réservé pour chaque dossier, chaque onglet (LISTE). Du coup ma macro initiale fait d'abord appel un modele initial servant de receptacle à ces données, mais là évidement cela ne marchera pas sans lui. Vous pourrez peut etre zapper cette étape. Mon souci en fait est ailleurs. Elle est trop longue, j'ai32 dossiers différent et pour chacun beaucoup de commandes qui se répetent. Si je passe à 50 voire 100 dossier j'ai un gros probleme et elle se met en erreur. (même en selectionnant les oui/non) Comment pourrais-je créer une boucle sachant que je me réfère aux données d'une matrice contenue dans "LISTE" ? Merci beaucoup Didier...

paritec · Answer

Ta macro faites avec l'enregistreur de macro, de 1100 lignes !!!!!! je n'ai pas le courage de la refaire propre, mais une certitude tu pourrais déjà la réduire considérablement, car tous tes select sont pratiquement tous inutile du moins sur le début de la macro 200 lignes que j'ai regardé Par contre tu parles d'utiliser ta macro dans une boucle, mais si j'ai compris c'est juste pour que le cadrage soit différent??? a+ Papou...

dhany · Answer

Bonjour Didier , paritec , une macro de 1100 lignes, rien qu'ça ? moi non plus, j'aime pas trop les macros roman-fleuve ! dhany...

paritec · Answer

Re Bonjour Didi75 le forum

juste pour exemple, mais dans ton code il faut que les deux classeurs soient déjà ouvert, pas nécessairement bon vu ce que tu veux traiter, il vaudrait mieux les ouvrir, uniquement lorsque tu en as besoin.

a+

Papou

le code ci-dessous

Workbook("Calcul Cadrages TVA DidierD 06 v3.xlsm").Sheets("HA intraco  par taux").Rows("4:124").Copy
    Workbook("Modele cadrage DD.xlsx").Sheets("HA intraco  par taux").Range("A4").PasteSpecial Paste:=xlPasteValues

fait exactement la même chose que celui ci-dessous en plus rapide

Windows("Calcul Cadrages TVA DidierD 06 v3.xlsm").Activate
    Sheets("HA intraco  par taux").Select
    Rows("4:124").Select
    Selection.Copy
    Windows("Modele cadrage DD.xlsx").Activate
    Sheets("HA intraco  par taux").Select
    Range("A4").PasteSpecial Paste:=xlPasteValues

dhany · Answer

Bonjour Didier , je te propose ce code VBA : &#91;P3:P31&#93;.Copy: &#91;P35&#93;.PasteSpecial xlPasteValues ou en plus court : &#91;P3:P31&#93;.Copy: &#91;P35&#93;.PasteSpecial -4163 dhany...

dhany · Answer

Merci pour ton retour ! bonne continuation ! dhany...

dhany · Answer

Bonjour Didier , j'ai regardé le post de ton autre sujet « Copier coller selection dans nouveaux classeur » ; en fait, j'préfère éviter les sujets avec plus d'un classeur (sauf exceptions) ; j'espère qu'un autre intervenant pourra t'aider ; bonne chance ! je mets ici le lien sur ton autre sujet, pour ceux qui seraient intéressés : https://forum.excel-pratique.com/viewtopic.php?p=706822#p706822 dhany...

dhany · Answer

Comme ceci : Rows("115:139").Delete les crochets sont pour un Range, du genre &#91;D5&#93; ou &#91;D5:G10&#93; , pas pour une ligne comme tu supprimes des lignes entières , Shift:=xlUp est inutile ! enfin, c'est inutile de faire une sélection des lignes à supprimer dhany...

paritec · Answer

Si tu sors le code de son contexte cela ne marche plus c'est tout à fait normal. a+ Papou...