dernière colonne vide

13GIBE59

XLDnaute Accro

• 25 Octobre 2009

• #2

Re : dernière colonne vide

Bonjour 46MNO

Essaie :

Code:

xlg = Range("A" & Cells.Column.Count).End(xlRight).Column

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 25 Octobre 2009

• #3

Re : dernière colonne vide

Bonjour à tous

Peut-être :

Code:

[COLOR="DarkSlateGray"]Sub toto()
Dim xlg
   xlg = Cells(1, Columns.Count).End(xlToLeft).Column
End Sub[/COLOR]

ROGER2327
#1979

 

Vote positif 0 Vote négatif

4

46MNO83

Guest

• 25 Octobre 2009

• #4

Re : dernière colonne vide

merci du fond du coeur
la solution de Roger fonctionne à merveille
pour la solution de J-Bernard
j'ai une erreur de compilation : qualificateur incorrect et le 1er ".Column" est bleui
si je mets un .Columns, c'est pire j'ai erreur d'exécution 1004
Merci encore pour votre savoir pour des réponses rapides

 

Vote positif 0 Vote négatif

4

46MNO83

Guest

• 26 Octobre 2009

• #5

Re : dernière colonne vide

Salut Jean-Marcel
Je te remercie pour ces 2 formules qui sont au top
C'est super

 

Vote positif 0 Vote négatif

4

46MNO83

Guest

• 4 Novembre 2009

• #6

Re : dernière colonne vide

Salut Jran-Marcel, salut le forum
longtemps absent, réponse tardive de ma part
Merci mille fois pour toutes ces informations qui vont me faciliter le travail

 

Vote positif 0 Vote négatif