existe t il une commande cells(....).End(xlleft).c

[ThomasR]

Bonjour le forum,

je cherche un moyen de faire

Sheets(1).Range('A65000').End(xlUp).Row

mais pour les colonnes

D'avance merci
Thomas®

 

[PascalXLD]

Re:existe t il une commande cells(....).End(xlleft

Bonjour

C'est xltoleft ou xltoright en fonction si tu pars colonne A ou IV

Bon courage

 

[ThomasR]

Re:existe t il une commande cells(....).End(xlleft

Bonjour Pascal76, le forum,

merci pour ta reponse

peux tu me confirmé ce code

sheets(1).Range('IV1').End(xltoleft ).Column

d'avance merci

PS : le nombre que je vais obtenir peut il être utilisé directement dans

un Cells(1, i)

ou faut il faire un + 1 ?

 

[PascalXLD]

Re:existe t il une commande cells(....).End(xlleft

Re

Par exemple

Dim colonneref As Byte

colonneref = Sheets(1).Range('IV1').End(xlToLeft).Column

Le colonneref te donne la dernière colonne où il y a une valeur sur la ligne 1

Donc si tu veux ecrire dans la colonne d'après il faut faire

Dim colonneref As Byte

colonneref = Sheets(1).Range('IV1').End(xlToLeft).Column +1

cells(1,colonneref)='toto'

Bon courage

 

[ThomasR]

Re:existe t il une commande cells(....).End(xlleft

re,

Merci,

je vais enfin pouvoir faire des macro en 2d (lol)

@+
Thomas®