Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
XL 2019copie une série de lignes n fois dans une autre feuille selon valeur d'une case de la ligne
Fraichement arrivé sur votre site, me voici déjà avec une colle en ce qui me concerne!
Je souhaiterai retravailler une liste actuellement sous cette forme.
Essai 1
1
2
Essai 2
2
5
Essai 3
3
6
Essai 4
4
3
Vers cette forme =>
Essai 1
1
2
Essai 1
1
2
Essai 2
2
5
Essai 2
2
5
Essai 2
2
5
Essai 2
2
5
Essai 2
2
5
Essai 3
3
6
Essai 3
3
6
Essai 3
3
6
Essai 3
3
6
Essai 3
3
6
Essai 3
3
6
Essai 4
4
3
Essai 4
4
3
Essai 4
4
3
Oui je sais, c'est bizarre comme démarche en gros, pendant que certains condense et synthétise pour regrouper les données ben moi je décide de faire compliquer ...
Bref j'ai déjà commencer à travailler sur un truc mais je n'arrêtes pas décrasser les données sur la feuille 2
Je vous joints le fichier Excel, la macro copier1 donne presque satisfaction c'est à partir de la deuxième que ça coince et donc je ne parle même pas d'une éventuelle suite ...
Pour ne pas être en reste, voici un document Word comprenant le code commenté de fpinheiro- dupliquer ligne- v2 comm .xlsm (un peu moins de ligne de commentaires que @soan )
Tu peux voir que "Feuil2" est entièrement vide ;
va sur "Feuil1" ; fais Ctrl e ➯ travail effectué
Note bien qu'après exécution de la macro, tu es sur "Feuil2" ;
si tu retourne sur "Feuil1" pour faire de nouveau Ctrl e, alors
les mêmes lignes de résultat seront en dessous, à partir de
la ligne 17.
Merci pour votre retour, c'est exactement ça ... mais il ya un hic ...
C'est que vos codes à tous les deux sont juste parfait et que du coup je me rends compte que je suis loin de votre niveau ...
Donc problème, je ne sais pas comment l'adapter à mon véritable cas car j'ai un peu simplifier mon exemple ...
Ce qui est rageant c'est que je butte juste sur une histoire de différence de mise en page et de nombre de colonne ... bref.
je vous retransmets mon fichier Excel qui ressemble plus à la réalité et les lignes colorés en bleu sont les lignes que je veux recopier dans une feuille 2 et la colonne en jaune correspond au valeur n fois à prendre en compte ...
Pour information je pense que ma liste de la feuille 1 ne dépassera jamais 100 lignes mais au cas où prévoir 300 lignes ou bien une valeur variable que je pourrais reconnaitre facilement.
Si vous pouvez me décortiquer votre code également, je pourrais ainsi peut être en apprendre d'avantage et éventuellement réussir à me débrouiller sans trop vous embêter ;-)
En tous cas merci beaucoup à vous deux et j'ai hâte d'avoir votre retour
Tu as écrit : « Merci pour votre retour, c'est exactement ça »
Merci beaucoup ! ça fait toujours plaisir quand le demandeur confirme que la solution
proposée lui convient ! (ça prouve aussi qu'on n'a pas travaillé pour rien ! )
Tu as écrit : « mais il y a un hic ... je me rends compte que je suis loin de votre niveau ... »
mais non, mais non, je suis sûr qu'avec un p'tit peu d'entraînement, tu es à deux doigts
de rejoindre notre niveau. (enfin, presque ... pas vrai, mapomme ? )
Tu as écrit : « Donc problème, je ne sais pas comment l'adapter à mon véritable cas
car j'ai un peu simplifié mon exemple ... »
Euh... je dirais plutôt que tu as beaucoup simplifié ton exemple ! c'est pourquoi ton
fichier initial est loin d'être représentatif !!! triple résultat : le code VBA de départ ne
convient plus pour ton vrai fichier ; tu n'arrives pas à l'adapter ; et ça nous fait faire
du travail en plus pour le faire à ta place ! c'est des constatations, pas un reproche !
(c'est valable pour tout demandeur qui ne fournit pas un fichier représentatif ; et en
particulier quand la structure est différente du vrai fichier !) ; dans les commentaires
de mon code VBA, tu verras que j'ai souligné toutes les différences entre ton fichier
initial et le nouveau fichier (qui a cette fois la même structure que ton vrai fichier).
Tu as aussi écrit : « Si vous pouvez me décortiquer votre code également, je pourrai
ainsi peut-être en apprendre davantage et éventuellement réussir à me débrouiller
sans trop vous embêter ;-) »
Ben t'en écris des choses ! à défaut d'être à not' niveau pour programmer en VBA,
j'peux t'garantir que t'as l'niveau pour être écrivain ! j'crois bien qu'ça va être toi
l'prochain Victor Hugo ! bon, trêve de plaisanterie, c'est parce que t'as écrit ça que
j'ai bien détaillé mon code VBA ; et c'est très bien de ta part de chercher à apprendre
davantage, pour ensuite arriver à te débrouiller par toi-même ! on pourra alors prendre
quelques vacances ; à nos frais, car c'est pas payé par le site XLD ; enfin, j'crois pas... peut-être en rêve ?
en plus des congés payés, j'aurais bien aimé aussi un 13ème mois, plus la cantine gratuite, plus des stock-
options, plus le joli parachute doré que s'offrent certains patrons (même s'ils sont responsables d'avoir
fait couler leur boîte) ; enfin, bref ! bon, j'te rassure : tu ne nous embête pas. (ou si peu )
Tu peux voir que "Feuil2" est vide, à part une ligne d'en-têtes que j'ai rajoutée ;
va sur "Feuil1" ; fais Ctrl e ➯ travail effectué (et tu es bien sur "Feuil2")
Ci-joint, ton fichier adapté, avec un code VBA très documenté (j'suis l'Victor Hugo du VBA,
même si Microsoft le sais pas) ; voici le même code VBA, sans les commentaires :
VB:
Option Explicit
Sub Essai()
Application.ScreenUpdating = 0: Worksheets("Feuil1").Select
Dim cel As Range, nlm&, dlg&, lg1&, lg2&, n As Byte, i As Byte
nlm = Rows.Count: dlg = Cells(nlm, 7).End(3).Row
With Worksheets("Feuil2")
lg2 = .Cells(nlm, 1).End(3).Row + 1
For lg1 = 7 To dlg
Set cel = Cells(lg1, 1): n = cel.Offset(, 6)
If n > 0 Then
For i = 1 To n
cel.Resize(, 13).Copy .Cells(lg2, 1): lg2 = lg2 + 1
Next i
End If
Next lg1
.Select
End With
End Sub
Pour ne pas être en reste, voici un document Word comprenant le code commenté de fpinheiro- dupliquer ligne- v2 comm .xlsm (un peu moins de ligne de commentaires que @soan )
J'suis surpris ! j'croyais qu'le fichier version v2 de ton post #5
était déjà largement commenté ! (j'l'ai pas téléchargé,
mais comme ce post #5 était sous le post #4...)
j'croyais qu'le fichier version v2 de ton post #5
était déjà largement commenté ! (j'l'ai pas téléchargé,
mais comme ce post #5 était sous le post #4...)
ah, d'accord ! donc faudra mettre un panneau : « ne demandez pas de code commenté
à mapomme le dimanche : il fait la grasse matinée (ou il est parti à la pêche) ! »
Je vous cache pas que j'ai été rattraper grave par le boulot cette semaine mais en tous cas vos fichiers sont parfait.
Super les commentaires, j'ai plus ka lire à tête reposé et à digérer tous ça
Franchement vous assurez trop grave mais je suis aussi très très largué… donc j'ai du boulot de compréhension et de décorticage.
Sinon désolé aussi pour l'erreur de débutant et le fichiers non représentatif de départ … on ne m'y reprendra plus (ct ma première demande et je pensais pas avoir non plus un niveau aussi poukrave … ;-))
Bref merci pour tous, merci beaucoup … et à très bientôt
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.
, 
