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

rouillld · 25 Janvier 2011

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 · 25 Janvier 2011

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

Bonjour,

essaye ceci :

Code:

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

bon après midi
@+

rouillld · 25 Janvier 2011

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 · 25 Janvier 2011

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

Re,

modifie ainsi :

Code:

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

@+

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

rouillld

Guest

Pierrot93

XLDnaute Barbatruc

rouillld

Guest

Pierrot93

XLDnaute Barbatruc

Discussions similaires

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

rouillld

Guest

Pierrot93

XLDnaute Barbatruc

rouillld

Guest

Pierrot93

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency