Copier/coller ligne

[dureiken]

Bonjour,

j'essaie de faire une macro qui copie une ligne et la colle juste au dessus les valeurs mais j'obtiens un code du style

    Rows("10:10").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Copy
    Rows("9:9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

avec l'enregistreur de macro

J'aurai voulu mettre un paramètre "tutu" dont je me sers juste avant pour trouver la derniere ligne du tableau.

Genre Rows(tutu).Select

Si vous avez une idée.

Merci d'avance

 

[Papou-net]

Re : Copier/coller ligne

Bonjour,

j'essaie de faire une macro qui copie une ligne et la colle juste au dessus les valeurs mais j'obtiens un code du style

    Rows("10:10").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Copy
    Rows("9:9").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

avec l'enregistreur de macro

J'aurai voulu mettre un paramètre "tutu" dont je me sers juste avant pour trouver la derniere ligne du tableau.

Genre Rows(tutu).Select

Si vous avez une idée.

Merci d'avance

Bonsoir dureiken,

Peut-être comme ceci :

dLg = Range("A65536").End(xlUp).Row
    Rows(dLg).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Copy
    Rows(dLg - 1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Je n'ai pas testé, mais ça devrait fonctionner.

Espérant avoir répondu.

Cordialement.

 

[mercant76]

Re : Copier/coller ligne

bonsoir,

tutu = Sheets("Tableau").Range("A" & Cells.Rows.Count).End(xlUp).Row

te donne la dernière ligne utilisée.

@+