Trouver la dernière ligne d'une feuille en VBA et formule

[MJ13]

Bonjour à tous.


Sur une feuille Excel, si on supprime des données, et que l'on va chercher la dernière ligne où il y a une valeur ou texte, on a un problème car il trouve par rapport à la dernière ligne où était inscrit le texte éffacé(ouf!).

Voir le fichier

Donc comment peut on avoir le numéro de la dernière ligne remplie en VBA en priorité mais en formule cela peut-être intéressant?

Merci de votre aide.

 

[PMO2]

Re : Trouver la dernière ligne d'une feuille en VBA et formule

Bonjour,

Essayez avec le code suivant qui indique la dernière ligne et la dernière colonne

Sub pmo_derniere_cellule()
Dim S As Worksheet
Dim R As Range
Set S = ActiveSheet
Set R = S.Cells.Find(what:="*", after:=S.[iv65536], _
  SearchOrder:=xlByRows, searchdirection:=xlPrevious)
MsgBox "Dernière ligne = " & R.Row
Set R = S.Cells.Find(what:="*", after:=S.[iv65536], _
  SearchOrder:=xlByColumns, searchdirection:=xlPrevious)
MsgBox "Dernière colonne = " & R.Column
End Sub

Cordialement.

PMO
Patrick Morange

 

[ERIC S]

Re : Trouver la dernière ligne d'une feuille en VBA et formule

Bonsoir à essayer et adapter

'recherche sur les 100 premières colonnes par exemple
lignefin = 1
For i = 1 To 100
If lignefin < Cells(65536, i).End(xlUp).Row Then lignefin = Cells(65536, i).End(xlUp).Row
Next
MsgBox lignefin


Bonsoir Patrick🙂

 

[MJ13]

Re : Trouver la dernière ligne d'une feuille en VBA et formule

Bonjour Patrick, Eric

Merci pour vos solutions qui fonctionnent à merveille.

Bon Week-end.