Insertion de 4 Lignes en dessous de chaque ligne en copiant la ligne
Bonjour, si qqun pouvait m'aider ça serait très très cool car je n'arrive pas du tout à m'en sortir avec l'enregistreur de macros
Voici m'a problématique que j'illustrerai avec un doc excel pour vous montrer ce que je n'arrive pas à faire
J'ai un tableau A1:K2355 et on me demande de transposer les données G à K en lignes, le travail à la main peut me prendre 2 semaines...
Si vous pouvez m'aider, il faudrait une macro qui est capable d'insérer 4lignes entre chaque ligne et copier la ligne du dessus pour ensuite transposé les 5 valeurs de G à K. Je ne sais pas si je suis très clair je joins un fichier excel avec le avant après.
Par avance je remercie tout le monde
Bonjour,
à tester,
Sub test()
For i = Cells(Rows.Count, 2).End(xlUp).Row + 1 To 4 Step -1
Range("A" & i & ":K" & i + 3).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B" & i - 1 & ":G" & i - 1).AutoFill Destination:=Range("B" & i - 1 & ":G" & i + 3), Type:=xlFillDefault
Next
End SubJe ne sais pas comment vous remercier c'est incroyablement parfait !!!!
Je vous souhaite une très très bonne soirée