Dernière colonne

[baptbapt]

bonjour

Comment determiner la dernière colonne utilisé

je connais pour la dernière ligne, mais pa pour les colonnes


Merci

Dim dercolonne As Long
dercolonne = Cells(2, 90).End(xlUp).Row

 

[pierrejean]

Re : Dernière colonne

bonnjour baptbapt

teste

Dim dercolonne As Long
dercolonne = Cells(2, 256).End(xltoLeft).column

 

[Gorfael]

Re : Dernière colonne

bonnjour baptbapt

teste

Dim dercolonne As Long
dercolonne = Cells(2, 256).End(xltoLeft).column

Salut baptbapt, pierrejean et le forum
dercolonne = Range("IV2").End(xltoLeft).column
Dernière colonne utilisée en ligne 2
ou
dercolonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column
Colonne la plus à droite utilisée sur la feuille
A+

 

[Robert]

Re : Dernière colonne

Bonsoir le fil, bonsoir le forum,

Le problème avec Range("A1").SpecialCells(xlCellTypeLastCell) c'est que ça ne gère pas les cellules effacées. Si par exemple la colonne 20 a été editée puis effacée, Range("A1").SpecialCells(xlCellTypeLastCell).Column renverra toujours 20.

Difficile de savoir exactement les besoins de l'utilisateur mais je propose aussi :

dercolonne = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column

qui affiche la dernière colonne qui contient des données et non pas la dernière colonne qui a été utilisée.