Formule SpecialCells( xlCellTypeLastCell )

**qltmi** · 17/02/2008, 13h05

Bonjour,
je voudrai trouver la dernière la ligne contenant des données d'une feuille Excel.
J'ai vu qu'il existait plusieurs façon de trouver ça, comme se mettre sur la dernière cellule et remonter, ou faire une boucle du début pour vérifier le contenu de chaque cellule.
Moi, j'ai décidé d'utiliser la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LastRow = Rows.SpecialCells(xlCellTypeLastCell).Row

Cependant, j'ai l'impression que si on copie une ligne dans une autre ligne (par exemple 200), puis qu'on supprime cette ligne par la suite, si la dernière ligne actuelle est 190, la formule précédente va nous donner 200. De même, si on a mis de la couleur après la ligne 190, cette formule va nous donner un chiffre supérieur à 190. Comment résoudre ce problème.? J'espère avoir été assez clair.
Merci de votre aide.

**ouisansdoute** · 17/02/2008, 15h05

Bonjour,

Pour qu'un fichier ne contienne plus de lignes fantôme il faut supprimer les lignes vides (Edition supprimer la ligne et non pas touche suppr) puis enregistrer le fichier.

Dans ce cas le Ctrl+fin t'amène à la dernière ligne réelle (dernière ligne contenant une valeur, une formule ou un format.

Cette méthode ne fonctionne pas s'il y a des lignes vides avec une couleur (ce qui est une indication de format particulier)

**qltmi** · 17/02/2008, 16h06

bonjour

en fait je dois appliqué la macro à tous un ensemble de fichier, sans les ouvrir si possible, donc je ne peux pas faire de supprimer dans les fichiers...
pourrait tu me dire comment on fait le ctr+fin dans une macro?
Merci de ton aide.

**Nad-Dan** · 17/02/2008, 19h17

Bonsoir,

J'aime pas trop ce genre de code mais en supposant que la colonne A est celle de référence, tu peux utiliser -->

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A3").End(xlDown)(2).Select

On part de la cellule A3 et on sélectionne la dernière cellule vide dans cette colonne.

Amicalement

Dan

**qltmi** · 17/02/2008, 21h03

Bonsoir,

j'ai essayé ta formule mais il y a un problème quand il a une ligne vide qui n'est pas la dernière.
Merci

**Pierre Fauconnier** · 17/02/2008, 22h54

Bonsoir

Pour sélectionner la dernière, il faut partir du bas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("a" & rows.count).end(xlup)

renvoie la dernière cellule utilisée en A, sauf si la dernière cellule utilisée en A est sur la dernière ligne de la feuille (65536 pour les XL<07 et 1048576 pour XL07), ce qui est quand même rare... Si on veut créer un code propre, il faudra tester cette possibilité.

Ok?

**Nad-Dan** · 18/02/2008, 12h50

Bonjour,

Si tu veux sélectionner la dernière cellule pleine, utilise ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A3").End(xlDown)(1).Select

Amicalement

Dan

**Pierre Fauconnier** · 18/02/2008, 17h37

Salut Nad-Dan

Ton code ne renvoie la dernière cellule pleine que s'il n'y a aucune cellule vide entre A3 et la dernière cellule de la colonne...

De plus, le (1) est inutile, puisque

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
dim Cellule as range
...
Cellule

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
dim Cellule as range
...
cellule(1)

pointent vers la même cellule...

La solution la plus simple est de remonter de la dernière cellule de A, comme le montre mon code.

Ok?

**Nad-Dan** · 18/02/2008, 18h12

Bonsoir,

Pierre, si j'avais du écrire ce code je l'aurais fait comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A65536").end(xlup)

car comme je l'ai dit avant, je n'aime pas le genre de code tel que je l'ai proposé.

Je ne suis pas devant son fichier mais ma proposition est faite au vu de ce qui est dit au début de ce fil lorsque l'on sous entend qu'il y a une ligne vide au milieu du tableau.

Cela étant, mes interventions sur ce fil ne sont pas pour critiquer ce que tu proposes.

Dan

**Pierre Fauconnier** · 18/02/2008, 18h20

Bonsoir Dan,

Je n'interviens pas non plus pour critiquer ce que tu proposes

.

C'est justement parce que tu dis:

Envoyé par Nad-Dan

Je ne suis pas devant son fichier mais ma proposition est faite au vu de ce qui est dit au début de ce fil lorsque l'on sous entend qu'il y a une ligne vide au milieu du tableau.

que je ne comprends pas ce que tu proposes, puisque dans ce cas, ton code ne renvoie pas la dernière cellule utilisée.

Ou alors, je n'ai rien compris de ceci:

Envoyé par qltmi

j'ai essayé ta formule mais il y a un problème quand il a une ligne vide qui n'est pas la dernière.
Merci

**Nad-Dan** · 18/02/2008, 18h47

re,

Pierre (cela te le sais) mais juste pour notre demandeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A3").End(xlDown)(2).Select

renvoie la première cellule vide dans la colonne A

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A3").End(xlDown)(1).Select

renvoie la dernière cellule pleine dans la colonne A (edition : et ce, avant la première cellule vide) où le 1 peut être enlevé comme tu le précises. Je l'ai juste laissé pour la compréhension du 2 par rapport au 1.

Si j'avais dû écrire ce code je l'aurais fait comme toi ou comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
derlig = Range("A65536").End(xlUp).Row
Range("A" & derlig).Select

Avec le select si on veut sélectionner la cellule.

Cela étant salut à toi l'homme de Theux. Pour ma part je suis de Liège.

Dan

**Pierre Fauconnier** · 18/02/2008, 20h12

Re,

Je ne suis pas d'accord avec toi lorsque tu dis

Envoyé par Nad-Dan

...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A3").End(xlDown)(1).Select

renvoie la dernière cellule pleine dans la colonne A où le 1 peut être enlevé comme tu le précises. Je l'ai juste laissé pour la compréhension du 2 par rapport au 1....

Ce code renvoie la dernière cellule pleine ...avant la première cellule vide, ce qui veut dire qu'il peut y avoir des pleines en dessous de celle renvoyée par le code, et donc il ne renvoie pas la ...Der des der.

Ce n'est peut-être qu'une question de terminologie, mais je pense que cela a son importance...

Cela étant, les valeureux 600 franchimontois viendront délivrer les liégeois du joug de Charles le Téméraire cette année, puisqu'une nouvelle marche des 600 est organisée en septembre 2008...

Amicales salutations du Pays de Franchimont

**qltmi** · 18/02/2008, 20h32

Bonsoir,
merci à vous deux, le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

range("a" & rows.count).end(xlup)

marche très bien même s'il y a la couleur après la dernière ligne...
Ou sinon, une question pour Dan-nan parce que je n'ai pas très compris, pourquoi tu dis

je n'aime pas le genre de code tel que je l'ai proposé

?
Merci pour vos aides

**Nad-Dan** · 18/02/2008, 22h48

re,

Pierre,

Ce code renvoie la dernière cellule pleine ...avant la première cellule vide, ce qui veut dire qu'il peut y avoir des pleines en dessous de celle renvoyée par le code, et donc il ne renvoie pas la ...Der des der.

ben je suis bien d'accord avec toi là dessus. (Je vais d'ailleurs le préciser en éditant mon post);

qltmi,

je n'aime pas le genre de code tel que je l'ai proposé

Le code que j'utilise dans mes macros est très souvent le troisème que j'ai proposé dans mon dernier post :

Range("A65536").End(xlUp)

A bientôt

Dan