[urgent] probleme avec VBA sous excel 98: Trouver la derniere ligne

probleme avec VBA sous excel 98: Trouver la derniere ligne [urgent] - VB/VBA/VBS - Programmation

Marsh Posté le 23-10-2003 à 09:43:58    

Salut, desole, j aime pas user de la balise [urgent], mais la c est le cas
 
bon, explication du probleme :
 
J ai fais des macro sous Excel XP, et losrque je passe le fichier sous Excel 97, j ai des problemes:
 
actuellement, c est sur :
 

Code :
  1. LastRow& = FirstWB.ActiveSheet.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row


J ai trouvé ca sur pas mal de site Web, cela permmet normallement a connaitre la derniere ligne d un tableau. Ca marche bien sous Office 2000 et XP, mais pas sous 97.  
 
Une idee ?
 
PS : FirstWB etant un Workbook


Message édité par Z_cool le 23-10-2003 à 10:10:28

---------------
#mais-chut
Reply

Marsh Posté le 23-10-2003 à 09:43:58   

Reply

Marsh Posté le 23-10-2003 à 10:12:03    

Bouhhh, c est mega urgent.


---------------
#mais-chut
Reply

Marsh Posté le 23-10-2003 à 10:37:37    

Personne ne sait  ou tout le monde s en fout ?

Reply

Marsh Posté le 23-10-2003 à 11:08:51    

derniereligne=activecell.end(xldown).row
ou premiereligne.end(xldown).row


Message édité par Atman le 23-10-2003 à 11:09:53
Reply

Marsh Posté le 23-10-2003 à 11:53:20    

Atman a écrit :

derniereligne=activecell.end(xldown).row
ou premiereligne.end(xldown).row


 
ca me donne la derniere des derniere cellule du tableau (~65000)

Reply

Marsh Posté le 23-10-2003 à 12:02:09    

Bon, je crois ke je viens de trouver.
 
 
c est en fait, ke ma macro etait activé a partir d un boutton et il faut semble t il absolument que ce soit une cellule d activé avant l appel a la foncion

Reply

Marsh Posté le 23-10-2003 à 12:18:36    

En fait,ma ligne de macro ne marche que si tu selectionne une des lignes  du tableau et que ton tableau ne contienne pas de ligne vide
celle ci est mieux mais tu dois selectionner ton tableau en entier avant de la lancer:
 
derniereligne =selection.row + selection.row.count -1


Message édité par Atman le 23-10-2003 à 12:19:18
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed