Discussion :

[gilles06]

Bonjour,

J'ai du mal a comprendre pourquoi je n'arrive pas a trouver tj la derniere ligne avec la commande :

Code :

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

1
2
ActiveCell.SpecialCells(xlLastCell).Select
lastligne = ActiveCell.Row

Le resultat n'est pas identique suivant les feuilles (voir fichier attache entre sheet1 et sheet2) l'active cell n'est pas au meme endroit, il y a une ligne de difference, pourquoi ? et comment trouver a coup sur la derniere ligne ?

Merci

[ouskel'n'or]

En effet, xlLastCell donne la dernière ligne de ta plage de donnée après enregistrement du fichier.
Si tu supprimes une ligne sans enregistrer le classeur ensuite, tu as une ligne de trop.
Regarde ici les diverses méthode que tu peux utiliser, il y en aura certainement une qui te conviendra

[gilles06]

Re-Bonjour,

Je ne comprends tj pas, et je n'arrive pas a obtenir la derniere ligne, avec la simple commande "Ctrl-end". La 1ere feuille m'enoie sur la ligne en dessous de la derniere et sur la 2eme feuille elle m'envoie sur la derniere ligne. J'ai essaye toutes les methodes indiquees et aucunes ne me donne la derniere bonne ligne. Pourquoi ?

[ouskel'n'or]

L'URL que je t'ai passé traite de la dernière ligne renseignée, pas de la dernière ligne formatée, ni de la dernière colonne.
A quoi te sert cette manipe ? Que veux-tu obtenir ?

[gilles06]

J'ai un workbook avec plusieures feuilles de longueurs differentes (nb de lignes) et je scan chacune de ces feuilles jusqu'a la derniere ligne de chacune d'elle afin de recupre certaines infos et ce avec la meme macro. D'ou la dependance avec la derniere ligne car j'ai une do-loop.

[ouskel'n'or]

Et donc, tu récupères les lignes renseignées, c'est bien ça ?

[gilles06]

oui , jusqu'a la derniere de chaque tableau. Le probleme est que si je fait un test de cell vide, ca ne marche pas car je peux avoir des lignes de cells vide a l'interieur de mon tableau.

Mais pourquoi la commande Ctrl-end ne donne pas le meme resultat sur chacune des 2 feuilles ?

[martel]

dans ton cas je préconise ceci :
Range(Col 65536).End(xlUp)
Donne la dernière ligne de la feuille pour la colonne
Pour connaître la dernière ligne absolue renseignée de la colonne A
Code :

Code :

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

1
2
 
    DerniereLigne = Range("A65536").End(xlUp).Row

MAIS , car il y a un mais biensur, tu es limité a savoir sous quelle version de excel tu lances la macro, car excel 2003 ligne maximum est de 65.536 alors que Excel 2007 ligne maximum approx 1.048.576

en partant du bas puis en remontant jusqu'à la première non vide, cela t'évite les soucis des trous vide dans ton tableau.

PS : pour ta question de CTRL-END qui ne te donne pas le même résultat tout le temps, c'est parce que une cellule VIDE ne veut pas dire la même chose pour excel, il se peut qu'il y a des "restes" "crasses" genre, mis en forme, ou bien une donnée qui s'y trouvait puis supprimée ne pas toujours considérée comme cellule Vide, en tout cas c'est du vécu.

bonne chance

[ouskel'n'or]

Pour être compatible 2003/2007, utilise

Code :

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

    DerniereLigne = Cells(Columns(NoCol).Cells.Count, NoCol).End(xlUp).Row

L'inconvénient de la méthode, tout comme celle qui utilise
DerniereLigne = Range("A65536").End(xlUp).Row, est que tu as la dernière ligne d'une colonne donnée, ici, la colonne A. Il est donc nécessaire de préciser la colonne la plus longue si les lignes sont inégale et surtout si la colonne désignée risque de ne pas être la plus longue. Et quand on ne peut le prévoir, je fais ça dans une boucle.

Code :

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

1
2
3
4
5
For NoCol = 1 to DerniereColonne 'dernière colonne de ta plage
    If DerniereLigne <  Cells(Columns(NoCol).Cells.Count, NoCol).End then
         DerniereLigne = Cells(Columns(NoCol).Cells.Count, NoCol).End
    endif
Next

A toutes fins utiles

[gilles06]

Oui , merci a vous deux. Vous avez raison, ca depend de la longueur de la collonne. Je vais donc faire une boucle (comme preconiser par ouskel'n'or) afin de trouver a coup sur la derniere ligne.

Merci a vous deux

[gilles06]

Je corrige ton code, car il ne fonctionnait pas, il y manquait qq chose (si tu veux bien):

Code :

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

1
2
3
4
5
For NoCol = 1 to DerniereColonne 'dernière colonne de ta plage
    If DerniereLigne <  Cells(Columns(NoCol).Cells.Count, NoCol).End(xlUp).Row then
         DerniereLigne = Cells(Columns(NoCol).Cells.Count, NoCol).End(xlUp).Row
    endif
Next

Merci a tous

[ouskel'n'or]

Je corrige ton code, car il ne fonctionnait pas, il y manquait qq chose (si tu veux bien):

Code :

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

1
2
3
4
5
For NoCol = 1 to DerniereColonne 'dernière colonne de ta plage
    If DerniereLigne <  Cells(Columns(NoCol).Cells.Count, NoCol).End(xlUp).Row then
         DerniereLigne = Cells(Columns(NoCol).Cells.Count, NoCol).End(xlUp).Row
    endif
Next

Merci a tous

Je veux bien !