VBA - Problème dernière ligne non vide

Bonjour,

J'aimerai copier une ligne de ma feuille et la coller en valeur sur la dernière ligne écrite.

Range("C6:AY6").Select
    Selection.Copy
    Range("C456541").End(xlUp).Row 1
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

J'ai essayé ce code mais ça ne fonctionne pas..

Bonjour,

essayez ceci :

Range("C6:AY6").Copy
Range("C" & Range("C" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues

Mais surtout vous faites cela dans quel but ?

@ bientôt

LouReeD

Bonjour LooReed, YassFrk

Place toi sur une cellule de la ligne que tu souhaites déplacer sur la dernière ligne vide, et exécute la macro suivante. Changes le nom de feuille si besoin dans le code

Sub CopierCollerLigneActive()
    Dim DerniereLigne As Long

    ' Sélectionner toute la ligne de la cellule active
    ActiveCell.EntireRow.Select

    ' Trouver la dernière ligne non vide de la colonne A
    DerniereLigne = Sheets("Feuil1").Cells(Sheets("Feuil1").Rows.Count, "A").End(xlUp).Row + 1

    ' Copier la ligne sélectionnée et coller à la dernière ligne
    Selection.Copy
    Rows(DerniereLigne & ":" & DerniereLigne).PasteSpecial Paste:=xlPasteValues

    ' Supprimer le mode de copie
    Application.CutCopyMode = False
End Sub