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

Fermé

ludo333 - 21 juin 2019 à 11:51
Mike-31 Messages postés 18384 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 9 avril 2025 - 21 juin 2019 à 19:05

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 !

A voir également:

Vba dernière cellule non vide d'une colonne
Dernière version ccleaner gratuit français - Télécharger - Nettoyage
Déplacer une colonne excel - Guide
Comment supprimer une page vide sur word - Guide
Formule somme excel colonne - Guide
Trier colonne excel - Guide

2 réponses

Réponse 1 / 2

Mike-31 Messages postés 18384 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 9 avril 2025 5 127
Modifié le 21 juin 2019 à 14:20

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

ludo333
Modifié le 21 juin 2019 à 18:51

Salut merci pour la formule. Le problème, c'est qu'une fois que j'ai sélectionné la dernière cellule de la colonne, je ne peux plus coller quelque chose qui vient d'une autre colonne, car ça annulerait la sélection !

En gros j'avais essayé ça :

Range("B2:B100").Select
Selection.Copy

Range("C65000").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

Mais ça ne marche parce que la copie de la colonne B s'annule une fois qu'on sélectionne d'autres cellules...

As-tu une solution ?

ludo333
21 juin 2019 à 18:52

Ah c'est bon, j'ai réussi grâce à ta 2ème formule !

Range(Range("B2"), Range("B1000").End(xlUp)).Copy

Range("C65000").End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

ça marche comme ça :)

Réponse 2 / 2

Mike-31 Messages postés 18384 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 9 avril 2025 5 127
Modifié le 21 juin 2019 à 19:34

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

Discussions similaires

Excel VBA : Derniere colonne utilisée

Bonjour,

Je cherche à trouver la dernière colonne utilisée dans un onglet Excel.
L'équivalent de la commande :
lasti = Range("A65536").End(xlUp).Row
Mais pour les colonnes :)

Merci d'avance !

le frigo ne marche pas....

Bonjour,
Je viens d'acheter un frigo d'occasion à un particulier depuis moins d'une semaine. Il avait l'air en très bon état. Mais quand je l'ai branché il n'y avait que la partie congélation qui fonctionnait. La partie réfrigérateur ne faisait pas de froid.
J'ai donc demandé un remboursement intégral au vendeur. Ce qui va peut-être se faire en fin de cette semaine.
Mais je voudrais savoir s'il y a des moyens légaux, des lois qui oblige cette personne à me rembourser.
Merci de votre réponse.

Configuration: Windows Vista / Firefox 4.0.1

Colorer une cellule quand une autre est non vide

Bonjour,

Je suis débutante mais j'aimerai colorer une cellule lorsqu'une autre est "non vide" et contient donc une date, plus précisement :

Dans la colonne B j'ai des noms - du texte. En G parfois des dates et parfois rien. Je voudrais que le texte en colonne B se colore en vert lorsqu'il y a une date de saisie dans la colonne G et qu'il reste en noir lorsqu'il n'y a rien en G.

J'espère ne pas être trop confuse dans mes explications...

D'avance, merci pour vos réponse

Cé.

Configuration: Windows 7 / Mozilla 11.0

Internat nourriture

Bonjour a tous,
Voila a l'internat on mange trop mal du coup pour "compenser" un minimum on mange des gateaux apero.. Mais je cherche un moyen de faire a manger dans ma chambre comme une bouilloire mais le probleme c'est qu'on peut faire que des pates ou du riz.
Donc si quelqu'un a une illumination merci de m'en faire part.