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

J

JM27

XLDnaute Barbatruc

• 2 Janvier 2021

• #2

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

VB:

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

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 2 Janvier 2021

• #3

Bonjour,
teste ceci

VB:

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

 

Vote positif 0 Vote négatif

Solution

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Janvier 2021

• #4

Bonjour OuiOuiNonNon,
Essayez :

VB:

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

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

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 2 Janvier 2021

• #5

Bonjour @OuiOuiNonNon, le fil,

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

VB:

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

 

Pièces jointes

• Tableau_02_01_2021.xlsm

  14.7 KB · Affichages: 5

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Janvier 2021

• #6

Bonjour le fil

Une autre façon de faire

VB:

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)

 

Vote positif 0 Vote négatif

O

OuiOuiNonNon

XLDnaute Nouveau

• 2 Janvier 2021

• #7

Merci pour toutes vos réponses

 

Vote positif 0 Vote négatif