Vba - Copier-coller des lignes au-dessus d'une sélection

[rouillld]

Bonjour à toutes et à tous,

Dans un fichier Excel, je souhaite obtenir l'action suivante (toute simple) à l'aide d'un code vba :
- copier les lignes 7,8,9
- coller ces lignes au-dessus de la ligne ou cellule sélectionnée (je suppose qu'il faut utiliser la fonction ActiveCell...)

Désolé, je n'arrive pas à envoyer le fichier exemple, malgré ses 36 ko.

Merci d'avance pour vos réponses.

 

[Pierrot93]

Re : Vba - Copier-coller des lignes au-dessus d'une sélection

Bonjour,

essaye ceci :

Rows("7:9").Copy Rows(ActiveCell.Row - 3)

bon après midi
@+

 

[rouillld]

Re : Vba - Copier-coller des lignes au-dessus d'une sélection

Merci pour ta réponse,

C'est quasiment ça, mais j'aurais dû préciser copier et insérer au lieu de copier et coller.

J'imagine qu'il faut utiliser Insert Shift:=xlDown comme avec l'enregistreur... Mais je n'y arrive pas.

Quelqu'un peut-il m'aider ?

 

[Pierrot93]

Re : Vba - Copier-coller des lignes au-dessus d'une sélection

Re,

modifie ainsi :

With ActiveCell
    Rows(.Row - 3 & ":" & .Row - 1).Insert xlDown
    Rows("7:9").Copy Rows(.Row - 3)
End With

@+