EXCEL : copier coller en insérant des lignes ?

[x'tof]

Bonjour,

J'ai une colonne de 1230 lignes. Chacune de ces lignes comporte une valeur différente.
Exemple :

Colonne A

Ligne 1 : A8
Ligne 2 : A9
Ligne 3 : B1
Ligne 4 : B3
...

A8, A9... n'étant pas des références de cellules, mais une valeur de mon tableau

Je voudrais dans un nouvel onglet parvenir au résultat suivant par une méthode la plus "automatique possible" :


Colonne A

Ligne 1 : A8
Ligne 2 : A8
Ligne 3 : A8
Ligne 4 : A8
Ligne 5 : A8
Ligne 6 : A8
Ligne 7 : A9
Ligne 8 : A9
Ligne 9 : A9
Ligne 10 : A9
Ligne 11 : A9
Ligne 12 : A9
Ligne 13 : B1

Autrement dit je vise à faire au plus vite un copier coller de cette longue colonne en insérant entre chaque ligne de la source 5 lignes qui comporteront la valeur de la ligne source.

Merci de votre ingéniosité 🙂

 

[abcd]

Re : EXCEL : copier coller en insérant des lignes ?

Bonjour et soit le bienvenu sur ce forum,

En Feuil2!A1 : =INDIRECT("Feuil1!A"&ENT((LIGNE()-1)/6)+1)
formule à copier vers le bas.

abcd

 

[Pierrot93]

Re : EXCEL : copier coller en insérant des lignes ?

Bonjour x 'tof, abcd

Une solution vba, qui permet de copier également le format des cellules :

Option Explicit
Sub test()
Dim i As Integer
For i = 2 To Sheets("Feuil1").Range("A65536").End(xlUp).Row
    With Sheets("Feuil2")
        Sheets("Feuil1").Range("A" & i).Copy .Range(.Range("A65536").End(xlUp).Offset(1, 0), .Range("A65536").End(xlUp).Offset(6, 0))
    End With
Next i
End Sub

Bonne journée
@+

 

[x'tof]

Re : EXCEL : copier coller en insérant des lignes ?

Merci de ton accueil et de ta réponse :

Lorsque je tape ton texte j'aboutis à #REF§ 🙁

Voici comment j'ai adapté ta formule sachant que ma colonne se trouve en A1 de l'onglet intitulé selection :

=INDIRECT(Selection!A1&ENT((LIGNE()-1)/6)+1)

Qu'ai-je loupé ?

PS : merci aussi à Pierrot93, mais pour l'heure je ne maitrise pas vba 🙁

 

[x'tof]

Re : EXCEL : copier coller en insérant des lignes ?

En ajoutant les " " cela va mieux 😎

Il a été nécessaire que j'ajoute 10 lignes à ma source pour qu'il ne manque aucune valeur !

Merci encore de ton aide qui va me faire gagner un temps très précieux !

 

[abcd]

Re : EXCEL : copier coller en insérant des lignes ?

Re,

ll faut adapter la fonction LIGNE() à la mise en page, à savoir la ligne dans laquelle tu veux copier la première ligne.

Si tu commences à écrire la formule, par exemple en ligne 10, alors LIGNE()-9
Tu peux également remplacer ce LIGNE()-9 par LIGNES($1:1)

Si tu ne t'en sors pas, mets un petit exemple en pièce jointe, ce sera plus facile pour moi de te l'expliquer, et pour toi de le comprendre.

abcd

 

[x'tof]

Re : EXCEL : copier coller en insérant des lignes ?

Non je m'en suis sorti, mais ton complément d'information me permettra de pouvoir le refaire une autre fois.

Merci encore