trouver le numéro de la dernière ligne d'une plage ou adresse

[calabok]

Bonjour à tous,

comment extraire le numéro de la dernière ligne d'une plage du genre

MaFeuilleSet.Cells(65536, 1).End(xlUp).CurrentRegion

ou dans une adresse

MonAdress = MaFeuilleSet.Cells(65536, 1).End(xlUp).CurrentRegion.Address

MonAdress renvoi : "$A$3:$FG$221"
ici la dernière ligne est 221

j'ai trouvé en moyen empirique qui est de chercher la 1 er occurrence de $ depuis la droite et de prendre les chiffres à gauche une fois trouvé.

Merci

 

[job75]

Re : trouver le numéro de la dernière ligne d'une plage ou adresse

Bonjour calabok, bienvenue sur XLD,

Pas sûr que l'utilisation de CurrentRegion soit la meilleure chose, mais c'est vous qui décidez.

Voyez cette macro :

Sub test()
Dim plage As Range, MonAdress As String

Set plage = MaFeuilleSet.Cells(65536, 1).End(xlUp).CurrentRegion
MsgBox [COLOR="Red"]plage.Row + plage.Rows.Count - 1[/COLOR]

MonAdress = MaFeuilleSet.Cells(65536, 1).End(xlUp).CurrentRegion.Address
MsgBox [COLOR="red"]Mid(MonAdress, InStrRev(MonAdress, "$") + 1, 7)[/COLOR]

End Sub

A+

 

[Staple1600]

Re : trouver le numéro de la dernière ligne d'une plage ou adresse

Bonjour


Je partage l'avis de Job (que je salue au passage)

et voici pour s'amuser avec VBA en ce dimanche pluvieux.

Sub a()
Dim x As Range, m_ess$
Set x = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
m_ess = "Valeur : " & x & vbLf
m_ess = m_ess & "Adresse : " & x.Address(0, 0) & vbLf
m_ess = m_ess & "Ligne : " & x.Row & vbLf
m_ess = m_ess & "Colonne : " & x.Column & vbLf
m_ess = m_ess & "Lettre : " & Split(x.Address, "$")(1)
MsgBox m_ess, vbInformation, "La dernière cellule, comme dirait le Grand Eddy ;-)"
End Sub

 

[calabok]

Re : trouver le numéro de la dernière ligne d'une plage ou adresse

Bonjour calabok, bienvenue sur XLD,

Pas sûr que l'utilisation de CurrentRegion soit la meilleure chose, mais c'est vous qui décidez.

Voyez cette macro :

Sub test()
Dim plage As Range, MonAdress As String

Set plage = MaFeuilleSet.Cells(65536, 1).End(xlUp).CurrentRegion
MsgBox [COLOR="Red"]plage.Row + plage.Rows.Count - 1[/COLOR]

MonAdress = MaFeuilleSet.Cells(65536, 1).End(xlUp).CurrentRegion.Address
MsgBox [COLOR="red"]Mid(MonAdress, InStrRev(MonAdress, "$") + 1, 7)[/COLOR]

End Sub

A+

Merci pour l'aide cela marche.

J'utilise la fonction CurrentRegion pour être sur de prendre la ligne même si la cellule choisie est vide, mais apparemment il y a des méthodes plus simples.

Merci encore.

 

[Staple1600]

Re : trouver le numéro de la dernière ligne d'une plage ou adresse

Re

J'utilise la fonction CurrentRegion pour être sur de prendre la ligne même si la cellule choisie est vide, mais apparemment il y a des méthodes plus simples.

CurrentRegion pose problème justement à cause des cellules vides.