Copie Colonne dans dernière colonne sur autre feuille

Bonjour,

je suis novice sur VBA, j'aimerai copier la colonne " D "de la feuille 1 dans la dernière colonne libre de la feuille 2.

Merci d'avance de votre réponse

Cordialement

Nicolas

Salut Nico06410,

Essaye ceci:

Sub test()
dercol = Sheets("Feuil2").Cells(1, Sheets("Feuil2").Cells.Columns.Count).End(xlToLeft).Column
Sheets("Feuil1").Columns("D").Copy Sheets("Feuil2").Columns(dercol + 1)
End Sub

Bonjour et merci pour votre réponse rapide,

Cela ne fonctionne pas tout le temps, ça copie toujours dans la même colonne (la B) sur la feuille 2...

Correction, j'ai trouvé d'ou venais le probleme, car j'ai les lignes A1 et 2 Vide

Autre souci, lors de la copie avec votre formule (qui fonctionne), cela copie également la largeur des colonnes et ça me pose souci ...

Ce code réajuste toute les colonnes à la fin de la procédure

Sub test()
dercol = Sheets("Feuil2").Cells(1, Sheets("Feuil2").Cells.Columns.Count).End(xlToLeft).Column
Sheets("Feuil1").Columns("D").Copy Sheets("Feuil2").Columns(dercol + 1)
Sheets("Feuil2"..EntireColumn.AutoFit
End Sub

Merci pour votre réponse mais le code ne marche pas j'ai une erreur 438 ...

(meme en remplacent le . par )

Sheets("Feuil2").EntireColumn.AutoFit

Bonjour,

Dsl, je n'avais pas compris ta dernière demande.

Voici ce code qui colle sans la mise en forme:

Sub test()
dercol = Sheets("Feuil2").Cells(1, Sheets("Feuil2").Cells.Columns.Count).End(xlToLeft).Column
Sheets("Feuil1").Columns("D").Copy
Sheets("Feuil2").Columns(dercol + 1).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

bonjour

salut au passage Florian

avoir "besoin" de copier en dur des données est mauvais signe : mauvaise organisation de la saisie des données et de la suite des calculs

généralement on fait trop compliqué, il faut alors simplifier

à quoi sert le fichier ?

quelles sont les données ?

pourquoi ce "besoin" de copier ?

à te relire

amitiés à tous

Bonjour Florian,

merci pour ton code il fonctionne parfaitement.

JMD pour te répondre, je voulait juste copier une colonne de la feuille 1 à la 2 mais sans la mise en forme (couleurs et largeur de colonne)

Merci à vous 2 problème résolu !