Problème définition dernière ligne

Résolu
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   -  
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Comme d'habitude, j'utilise la ligne suivante pour déterminer ma dernière ligne :

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row


Ma macro ne marchant pas, je me pose la question de cette définition de dernière ligne.

Je fais donc une nouvelle macro :

Sub TEST()

DL = Cells(Application.Rows.Count, 1).End(xlUp).Row

MsgBox(DL)

End Sub


Ce qui me retourne la valeur 4988.

Je ne comprend pas, cette cellule est vide, alors je fais une nouvelle macro :

Sub TEST()

MsgBox(Range("A4988").Value)

End Sub


Ce qui me retourne rien du tout dans la MsgBox.

Je suis coincé. Une idée?

Le fichier : https://www.transfernow.net/?utm_source=partagefichierscom&utm_medium=download

Edit : Il semble que le problème soit la table "Tableau3". Comment trouver la dernière cellule non vide de cette table?

1 réponse

  1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,

    Il semble que le problème soit la table "Tableau3".
    En effet.
    Comment trouver la dernière cellule non vide de cette table?
    Comme ceci :

    DL = Cells(Application.Rows.Count, 1).End(xlUp).Row
    DL = Cells(DL, 1).End(xlUp).Row


    De cette manière, tu restes toujours dynamique, même si ton tableau grossit...
    0
    1. Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   65
       
      Bien vu ! J'étais presque arrivé à ça...

      Merci beaucoup !
      0