VBA : sélectionner la dernière cellule d'une colonne Fermé

Question

Bonjour,

J'aimerais créer un code VBA qui copie/colle toutes les valeurs de la colonne A pour les mettre dans la colonne C, puis qui copie/colle toutes les valeurs de la colonne B pour les mettre en-dessous de la dernière valeur de la colonne C.

En fait, la formule en soi n'est pas très compliquée, mais il me manque juste la formule qui puisse sélectionner la dernière cellule d'une colonne qui est pourvue d'une valeur. Comme ça je peux imbriquer les valeurs de deux colonnes dans une seule.

Merci d'avance !

Mike-31 · Answer

Bonjour,

plusieurs possibilités, exemple tu veux copier colonne A à partir de la cellule A2 à la dernière cellule non vide

Range(Range("A2"), Range("A65000").End(xlUp)).Select 
ou encore
Range([A2], [A65000].End(xlUp)).Select

ou sans passer par select ce qui est mieux
Range(Range("A2"), Range("A65000").End(xlUp)).Copy 
 
Range([A2], [A65000].End(xlUp)).Copy

Mike-31 · Answer

Re,

regarde comme cela pour copier les valeurs de la colonne A puis colonne B à la suite colonne C


Range(Range("A2"), Range("A65000").End(xlUp)).Copy
Range("C65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Range(Range("B2"), Range("B65000").End(xlUp)).Copy
Range("C65000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False 

Plus technique tu peux faire sans passer par Select en deux ligne de code 
Range(Range("A2"), Range("A65000").End(xlUp)).Copy Destination:=Range("C65000").End(xlUp).Offset(1, 0)Range(Range("B2"), Range("B65000").End(xlUp)).Copy Destination:=Range("C65000").End(xlUp).Offset(1, 0)

et encore plus court
Range([A2], [A65000].End(xlUp)).Copy Destination:=[C65000].End(xlUp).Offset(1, 0)Range([B2], [B65000].End(xlUp)).Copy Destination:=[C65000].End(xlUp).Offset(1, 0)
mais tu n'as aucune protection pour éviter de copier plusieurs fois les même données

VBA : sélectionner la dernière cellule d'une colonne

2 réponses

Discussions similaires