Excel VBA : Derniere colonne utilisée
Résolu/Fermé
Eaheru
Messages postés
197
Date d'inscription
mercredi 23 juin 2010
Statut
Membre
Dernière intervention
12 mars 2018
-
Modifié par Eaheru le 26/09/2011 à 15:34
Darnc - 21 déc. 2017 à 16:23
Darnc - 21 déc. 2017 à 16:23
Bonjour,
Je cherche à trouver la dernière colonne utilisée dans un onglet Excel.
L'équivalent de la commande :
Mais pour les colonnes :)
Merci d'avance !
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 !
A voir également:
- Vba dernière colonne non vide
- Coeur vide ✓ - Forum Réseaux sociaux
- Dernière version ccleaner gratuit français - Télécharger - Nettoyage
- Déplacer une colonne excel - Guide
- Formule somme excel colonne - Guide
- Trier colonne excel - Guide
8 réponses
chossette9
Messages postés
4239
Date d'inscription
lundi 20 avril 2009
Statut
Contributeur
Dernière intervention
12 septembre 2014
1 308
26 sept. 2011 à 15:39
26 sept. 2011 à 15:39
Bonjour,
sur le même principe que ce que vous avez marqué, Range("IV1").End(xltoLeft).Column vous ramènera la dernière colonne utilisée.
Cependant, les notions A65536 et IV1 ne sont compatibles qu'avec les versions d'Excel jusqu'à 2003. Pour les Suivantes, les références seraient A1048576 et XFD1.
Du coup, voici les codes pour récupérer la dernière ligne et la dernière colonne, pour toutes les versions :
Merci à pijaku et à son astuce.
Cordialement.
sur le même principe que ce que vous avez marqué, Range("IV1").End(xltoLeft).Column vous ramènera la dernière colonne utilisée.
Cependant, les notions A65536 et IV1 ne sont compatibles qu'avec les versions d'Excel jusqu'à 2003. Pour les Suivantes, les références seraient A1048576 et XFD1.
Du coup, voici les codes pour récupérer la dernière ligne et la dernière colonne, pour toutes les versions :
pour la dernière ligne : derlig = Range("A" & Rows.Count).End(xlUp).Row pour la dernière colonne dercol = Cells(1,Cells.Columns.Count).End(xltoLeft).Column
Merci à pijaku et à son astuce.
Cordialement.
26 sept. 2011 à 15:41
9 févr. 2015 à 15:19
21 déc. 2017 à 16:23