Dernière cellule utilisé

Bonjour à tous,
J'ai une autre question aujourd'hui. J'ai une colonne avec des milliers
d'information (+ de 8000 cellule avec des infos). Ma macro recherche si le
mot a été déjà incrit et si non ajoute la nouvelle donnée à la fin de la
recherche. Mon problème est le suivant.: la macro que j'utilise est trop
lente et ne va pas directement en va de la colonne mais descent le long de
la
colonne ce qui augment considérablement le temps d'execution (surtout
quand
j'ai de nombreuse information a vérifier)

J'utilise la fonction suivante
Do
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell)

Merci pour votre aide
--
Cordialement,
Philippe B.

Cells(Rows.count, activecell.column).end(xlup).select

Cordialement,
--
AP

"Philippe B." <PhilippeB@discussions.microsoft.com> a écrit dans le
message de news: 0F085F9D-DB01-4CC2-A08D-6C43D17F92A9@microsoft.com...

Bonjour à tous,
J'ai une autre question aujourd'hui. J'ai une colonne avec des milliers
d'information (+ de 8000 cellule avec des infos). Ma macro recherche si
le
mot a été déjà incrit et si non ajoute la nouvelle donnée à la fin de la
recherche. Mon problème est le suivant.: la macro que j'utilise est trop
lente et ne va pas directement en va de la colonne mais descent le long
de la
colonne ce qui augment considérablement le temps d'execution (surtout
quand
j'ai de nombreuse information a vérifier)

J'utilise la fonction suivante
Do
ActiveCell.Offset(1, 0).Select
Loop Until IsEmpty(ActiveCell)

Merci pour votre aide
--
Cordialement,
Philippe B.

Oups!
Cells(Rows.count, activecell.column).end(xlup)(2).select