dernière colonne vide

[46MNO83]

Salut à tous
Sur le forum j'ai trouvé une formule facile pour vous pour avoir la dernière cellule occupée d'une colonne
xlg = Range("A" & Cells.Rows.Count).End(xlUp).Row
et c'est super
Je cherche la formule pour avoir la dernière cellule occupée d'une ligne
plutôt que d'utiliser la boucle
col=1
Do While Cells(1, col) <> ""
col = col + 1
Loop
merci à tous

 

[13GIBE59]

Re : dernière colonne vide

Bonjour 46MNO

Essaie :

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

 

[ROGER2327]

Re : dernière colonne vide

Bonjour à tous

Peut-être :

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

ROGER2327
#1979

 

[46MNO83]

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

 

[46MNO83]

Re : dernière colonne vide

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

 

[46MNO83]

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