Inserer une ligne sur 2 et déplacer une cellule

[matsin]

Bonjour,

J'ai un fichier excel avec n ligne de données sur 6 colonnes
Je souhaiterais pouvoir insérer une ligne sur 2 et mettre la valeur de la derniere colonne dans la premiere cellule de la ligne insérer.

En résumé, ma nouvelle feuille devra disposer de n*2 ligne avec 5 colonnes

Exemple :

AVANT :

1 2 3 4 5 52
2 4 5 6 7 83

APRES

1 2 3 4 5
52
2 4 5 6 7
83

Je pense qu'une macro pourrait me venir en aide mais malheureusement je suis novice.

Merci par avance pour votre aide.

 

[Cousinhub]

Re : Inserer une ligne sur 2 et déplacer une cellule

Bonjour,

essaie avec ce code :

Sub transpos()
For i = [A65000].End(xlUp).Row + 1 To 2 Step -1
    Cells(i, 1).EntireRow.Insert
    Cells(i, 1) = Cells(i - 1, 6)
Next i
[F:F].ClearContents
End Sub

 

[matsin]

Re : Inserer une ligne sur 2 et déplacer une cellule

Merci beaucoup,

C'est vraiment super, cela marche très bien.

Bonne journée

 

[pierrejean]

Re : Inserer une ligne sur 2 et déplacer une cellule

bonjour matsin


Edit: Oublier SVP