Dernière Cellule

Salut,

'pour se rendre à la dernière ligne
sub DerniereLigne()

i=1

do until cells(i,1).value=""

i=i+1

loop

cells(i,1).select

end sub

ça te va ?

-----Message d'origine-----
Bonjour à tous
Sur un grand tableau + de 5000 lignes, comment se rendre
via une macro à la

dernière cellule (et ce pour saisir des données et
éviter de prendre

l'ascenceur)

Merci


.

Bonjour,

Pour la colonne A :
Range("a65000").end(xlup)(2).select

Camille

-----Message d'origine-----
Bonjour à tous
Sur un grand tableau + de 5000 lignes, comment se rendre
via une macro à la

dernière cellule (et ce pour saisir des données et éviter
de prendre

l'ascenceur)

Merci


.

Salut,

Pour la premiere colonne

Sub lastRow()

Range("a65536").End(xlUp).Offset(1).Select

End Sub

hth,
padbra

"Pascal" <Zork.NOSSWEN@tropcurieurx.com> a écrit dans le message de news:
uN#vyNHxDHA.2568@TK2MSFTNGP09.phx.gbl...

Bonjour à tous
Sur un grand tableau + de 5000 lignes, comment se rendre via une macro à
la

dernière cellule (et ce pour saisir des données et éviter de prendre
l'ascenceur)

Merci

hum hum,
Salut emcy,
Et si il y a une cellule vide dans sa colonne ??

padbra

"Emcy" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 08d901c3c477$b5ff0fd0$a101280a@phx.gbl...
Salut,

'pour se rendre à la dernière ligne
sub DerniereLigne()

i=1

do until cells(i,1).value=""

i=i+1

loop

cells(i,1).select

end sub

ça te va ?

-----Message d'origine-----
Bonjour à tous
Sur un grand tableau + de 5000 lignes, comment se rendre
via une macro à la

dernière cellule (et ce pour saisir des données et
éviter de prendre

l'ascenceur)

Merci


.

C'est parfait
Merci Emcy

"Emcy" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:08d901c3c477$b5ff0fd0$a101280a@phx.gbl...
Salut,

'pour se rendre à la dernière ligne
sub DerniereLigne()

i=1

do until cells(i,1).value=""

i=i+1

loop

cells(i,1).select

end sub

ça te va ?

-----Message d'origine-----
Bonjour à tous
Sur un grand tableau + de 5000 lignes, comment se rendre
via une macro à la

dernière cellule (et ce pour saisir des données et
éviter de prendre

l'ascenceur)

Merci


.

Regardes la solution d'Elimac

-----Message d'origine-----
hum hum,
Salut emcy,
Et si il y a une cellule vide dans sa colonne ??

padbra

"Emcy" <anonymous@discussions.microsoft.com> a écrit
dans le message de

news: 08d901c3c477$b5ff0fd0$a101280a@phx.gbl...
Salut,

'pour se rendre à la dernière ligne
sub DerniereLigne()

i=1

do until cells(i,1).value=""

i=i+1

loop

cells(i,1).select

end sub

ça te va ?

-----Message d'origine-----
Bonjour à tous
Sur un grand tableau + de 5000 lignes, comment se rendre
via une macro à la

dernière cellule (et ce pour saisir des données et
éviter de prendre

l'ascenceur)

Merci


.

.

Bonjour à tous,
Et pourquoi pas sans macro : <CTRL><FIN>

Ou si on veut malgré tout la même action avec VBA :
LIG=celles.specialcells(xllastcell).row
(ce qui renvoie le numéro de la dernière ligne saisie)
Puis : Range("A" & LIG).select
(ou tout mettre en une seule instruction).
;-))
DL

-----Message d'origine-----
Bonjour à tous
Sur un grand tableau + de 5000 lignes, comment se rendre
via une macro à la

dernière cellule (et ce pour saisir des données et éviter
de prendre

l'ascenceur)

Merci


.

LIGÎlles.specialcells(xllastcell).row
(ce qui renvoie le numéro de la dernière ligne saisie)

Ca c'est vraiment pas garanti du tout !

AV

Range("a65000").end(xlup)(2).select

...end(xlup)(3)
me parait plus sur ;-) (cellules vides)

AV

Bonjour à tous
Sur un grand tableau + de 5000 lignes, comment se rendre via une macro à la
dernière cellule (et ce pour saisir des données et éviter de prendre
l'ascenceur)

Merci


Range("a65000").End(xlup).Offset(1).Select

sélectionnera la première cellule libre depuis le bas de la feuille dans
la colonne A