Copier/Coller

[maval]

Bonjour
Je suis à la recherche d'un code pour copier une colonne et la coller sur une autre feuille.
Je suis passé par l’enregistreur et sa ma donné ceci.

 Range("A5:A58").Select
    selection.Copy
    Sheets("transpose_lien").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("A5").Select
    ActiveSheet.Paste

Alors que moi j'aimerai coller une liste de nom dans ma colonne "A" de ma première feuille, et que sa colle directement la même liste dans la colonne"A" de ma deuxième feuille

je vous remercie

Cordialement

Max

 

[Roland_M]

bonjour,

à adapter

Sheets("Feuil1").Range("A5:A58").Copy Destination:=Sheets("Feuil2").Range("A5")
Application.CutCopyMode = False

 

[Lolote83]

Salut,
Cela est certainement du au fait que tu as des formules qui alimentent tes données en A5:A58 de ta première feuille.
Pour cela, il est peut être souhaitable de ne coller que les valeurs
Vite fait, cela pourrait donner ceci. Pas testé !!!


Sub CopieColle()
Range("A5:A58").Copy
Sheets("transpose_lien").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

OUPS!! pas raffraichi ROLAND_M ...
@+ Lolote83

 

[Lolote83]

Re salut,
Un peut plus court, comme ceci
Sub CopieColle2()
Range("A5:A58").Copy
Sheets("transpose_lien").Range("A5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

@+ Lolote83

 

[maval]

Bonjour Roland M, Lolote83,

Je vous remercie Nickel.

Bonne journée.