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]

Re : Dernière colonne (à droite) non vide

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)

 

[Robert]

Re : Dernière colonne (à droite) non vide

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

 

[Robert]

Re : Dernière colonne (à droite) non vide

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...

 

[Robert]

Re : Dernière colonne (à droite) non vide

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...

 

[xavier44]

Re : Dernière colonne (à droite) non vide

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!