XL 2019 Excel VBA - Problème pour trouver la dernière ligne d'un tableau

[OuiOuiNonNon]

Bonjour à tous,
J'ai un problème avec la petite macro que j'ai effectué.

Sub Macro()
      DL = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
      DC = Feuil1.Cells(1, Cells.Columns.Count).End(xlToLeft).Column
      MsgBox DL
End Sub

(DL = Dernière Ligne et DC = Dernière Colonne)

Il trouve bien la bonne dernière colonne mais ne trouve pas la bonne dernière ligne du tableau bleu (il trouve 27 alors qu'il devrait trouver 6).
Je met ci-joint le fichier en question.

 

[JM27]

Bonjour
Nomal
DL = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
va chercher la dernière ligne documentée de la feuille de calcul (colonne 1) donc la 27

Sub Macro()
      DL = Feuil1.Cells(2, 1).End(xlDown).Row
      DC = Feuil1.Cells(1, Cells.Columns.Count).End(xlToLeft).Column
      MsgBox DL
End Sub

 

[M12]

Bonjour,
teste ceci

DL = Range("A2").End(xlDown).Row

Feuil1.Cells(Rows.Count, 1).End(xlUp).Row te donne la dernière ligne remplie depuis le bas en remontant donc ligne 27

 

[sylvanu]

Bonjour OuiOuiNonNon,
Essayez :

PL = Range("A2").End(xlDown).Row

PL Première ligne, car DL est correcte elle vaut bien 27.

 

[soan]

Bonjour @OuiOuiNonNon, le fil,

ton fichier en retour ; fais Ctrl e ➯ ce message :

Option Explicit

Sub Macro()
  Dim DC%, DL&
  DC = Cells(1, Columns.Count).End(1).Column
  DL = [A2].End(4).Row
  MsgBox "Dernière colonne : " & DC & vbLf & vbLf _
    & "Dernière ligne du 1er tableau : " & DL
End Sub

soan

 

[Staple1600]

Bonjour le fil

Une autre façon de faire

Sub AutreFaçon()
With [A1].CurrentRegion
PL = .Rows.Count: DC = .Columns.Count
End With
MsgBox "Dernière ligne: " & PL & Chr(13) _
& "Dernière colonne: " & DC, vbInformation, "Visitez ma région"
End Sub

Qui ne fonctionne que sur le fichier exemple (tel qu'agencé sur le fichier exemple du message#1)

 

[OuiOuiNonNon]

Merci pour toutes vos réponses