[VB] Connaître la dernière colonne / ligne remplie d'une feuille Excel

Connaître la dernière colonne / ligne remplie d'une feuille Excel [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 16-03-2004 à 22:52:46    

Salut à tous,
 
je débute en VB (ça fait en gros 2h :D ), et je voudrais savoir la méthode la plus simple pour récupérer le numéro de colonne et de ligne tels, qu'après eux, plus rien n'est rempli dans la feuille Excel.
 
Je cherche donc les valeurs LigneDataFin et ColonneDataFin telles que si i > LigneDataFin et j > ColonneDataFin, la valeur de la cellule Cells(i,j) est nulle.
 
Voilà ce que j'ai écrit pour le moment :

Code :
  1. 'Constantes
  2. ColonneDataDebut = 2
  3. LigneDataDebut = 1
  4. 'Récupération de la dernière colonne de données
  5. ColonneDataFin = ColonneDataDebut
  6. FinTrouvee = 0
  7. j = ColonneDataDebut
  8. While FinTrouvee = 0
  9.     ValeurCourante = Worksheets("Data" ).Cells(LigneDataDebut,j).Value
  10.     If IsNull(ValeurCourante) Then
  11.         FinTrouvee = 1
  12.     End If
  13.     j = j + 1
  14. Wend
  15. ColonneDataFin = j


 
Quand je l'exécute dans un module, il me sort une erreur sur la ligne en bleu, disant :
'Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet.'
 
Donc je pense qu'il y a une exception lancée, inconnue ...
Pourtant j'ai des données sur 2 lignes et 3 colonnes.
 
Une idée ???


Message édité par Beegee le 16-03-2004 à 23:22:24
Reply

Marsh Posté le 16-03-2004 à 22:52:46   

Reply

Marsh Posté le 16-03-2004 à 23:09:40    

sur excel 2000  
colonnes de A à IV ya plus qu'à compter
lignes 1 à 65536
 
Pierg

Reply

Marsh Posté le 16-03-2004 à 23:21:54    

J'ai peut-être mal expliqué ...
 
je veux pas le nombre max de lignes / colonnes, mais la dernière colonne remplie (une valeur dans la 1ère ligne), et la dernière ligne remplie (même principe).

Reply

Marsh Posté le 17-03-2004 à 11:26:16    

permet d'avoir la dernière ligne remplie de ma colonne A
    ligne = Sheets("feuil1" ).Range("a65536" ).End(xlUp).Row

Reply

Sujets relatifs:

Leave a Replay

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