Macro pour Inserer des lignes dans un fichier excel

[supsonic]

Bonjour à tous,
je suis debutant en vba et je rencontre un problème pour creer une macro,
j'ai un fichier de 800 lignes à peu prés, et il me faut dupliquer chaque lignes du fichier 22 fois (donc me retrouver avec 23 fois la même ligne...)
à la main je vais passer la journée,
si quelqu'un a une solution je suis preneur
d'avance un grand merci !!

 

[phlaurent55]

Re : Macro pour Inserer des lignes dans un fichier excel

Bonjour supsonic, et bienvenue sur le forum

voir exemple en pièce jointe

à+
Philippe

 

[Robert]

Re : Macro pour Inserer des lignes dans un fichier excel

Bonjour Supsonic et bienvenu, bonjour Philippe, bonjour le forum,

Philippe a été plus rapide... J'envoie quand même ce bout de code :

Sub Macro1()
Dim dl As Long 'déclare la variable dl (Dernière Ligne)
Dim y As Byte 'déclare la variable y (incrément)

Application.ScreenUpdating = False 'masque les changements à l'écran
dl = Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne dl
For x = dl To 1 Step -1 'boucle 1 : inversée de la dernière ligne à la première
    For y = 1 To 22 'boucle 2 : 22 fois
        Rows(x).Copy 'copie la ligne x
        Rows(x).Insert shift:=xlShiftDown 'l'insère en décalant vers le bas
    Next y 'prochaine fois de la boucle 2
Next x 'prochaine ligne de la boucle 1
Application.ScreenUpdating = True 'Affiche les changements à l'écran
End Sub

 

[phlaurent55]

Re : Macro pour Inserer des lignes dans un fichier excel

Re, Bonjour Robert

Philippe a été plus rapide...

........ mais ton code est plus rapide que le mien

à+
Philippe

 

[supsonic]

Re : Macro pour Inserer des lignes dans un fichier excel

Un grand grand merci !!!!
vous m'avez fait gagner une journée de travail !!!!!!!
c'est juste parfait !!!

Bonjour supsonic, et bienvenue sur le forum

voir exemple en pièce jointe

à+
Philippe

 

[supsonic]

Re : Macro pour Inserer des lignes dans un fichier excel

Merci egalement de m'avoir repondu si vite, ca m'a beaucoup aidé
je peux retourner au boulot
et encore merci !!!!