Dernière colonne (à droite) non vide

[xavier44]

Bonsoir,
Ma recherche dans les posts n'a rien donné , alors voila ma question:
Le code suivant
lastcolumn = Range("IV1").End(xlToLeft).Column me renvoi la dernière col pour la ligne 1.
Y a t-il un moyen de trouver la dernière colonne sur N ligne ?

abc
abcde
ab
abde
Lastcolumn = 5
Merci pour votre aide

[pierrejean]

bonjour xavier44

il y a une solution avec une boucle

a tester

for n=x to y
lastcolumn = Range("IV" & n).End(xlToLeft).Column 
if lastcolum>dercolumn then dercolumn=lastcolumn
next n
msgbox(dercolumn)

[jmps]

Bonsoir Xavier, Pierrejean,

En plus court mais en plus long :

MsgBox Mid(ActiveSheet.UsedRange.Address(ReferenceStyle:= xlR1C1), InStrRev(ActiveSheet.UsedRange.Address(ReferenceSt yle:=xlR1C1), "C") + 1)

Tordu mais ça a l'air de marcher....

Bonne soirée.

EDIT : Y'a un espace en trop dans ReferenceStyle. A virer.

[Robert]

Bonsoir le fil, bonsoir le forum,

Plus court encore ! mais avec un mais...

Si tu es sûr que les données commencent dans la colonne A :

Lastcolumn = ActiveSheet.UsedRange.Columns.Count

[jmps]

Salut mon Robert,

Ouais... Ca a l'air de marcher mais qui, de nos jours, utilise encore la colonne A ?

Moi je commence toujours mes tableaux en colonne C. Rien que pour faire m... tes codes VBA .

[Robert]

Bonsoir le fil, bonsoir le forum,

Tiens José, je croyais que t'avais décidé de plus polluer... De toutes manières je sais que tu commences à faire C. Mais puisque t'en fait à C moi je le fais l'A... Oui bof ! Mais depuis qiue j'ai arrrêté de boire c'est plus comme avant...

[jmps]

Arf !

Je pollue pas. C constructif mon truc...

T'as arrêté de boire à quelle heure ?

[Robert]

Bonsoir le fil, bonsoir le forum,

C'est vraiment dégueulasse ce que tu fais José. Il y en a plein qui le croyais (que j'avais arrêté de boire, sot ! Pas que t'étais constructif... pfff). Et toi, voilà que tu vends la mèche...

[jmps]

Me refais pas le coup du Saudade hein ?

Je te quitte sinon.

Big bisous amigo. Heu non... Poignées de mains. Oui les deux.

[xavier44]

Bonsoir le fil et merci pour vos réponses
Je me suis tourné vers la boucle de Pierrejean:
For ind = 1 To lastrow
dercolumn = Range("IV" & ind).End(xlToLeft).Column
If dercolumn > lastcolumn Then lastcolumn = dercolumn
Next ind
Je cherchais qq chose de très concis mais le code de Robert:
Lastcolumn = ActiveSheet.UsedRange.Columns.Count
me renvoi 26 alors que la cinquième colonne est totalement vide!

pour le reste j'étais pas au courant!