Dernière colonne

pierrejean

XLDnaute Barbatruc

• 13 Août 2007

• #2

Re : Dernière colonne

bonnjour baptbapt

teste

Code:

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

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 13 Août 2007

• #3

Re : Dernière colonne

pierrejean à dit:

bonnjour baptbapt

teste

Code:

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 13 Août 2007

• #4

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 :

Code:

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.

 

Vote positif 0 Vote négatif