Numéro de ligne d'une cellule

[Man]

Bonjour,
svp, pourriez vous m'écrire la fonction qui renvoie le numéro de ligne d'une cellule en entrée:

Function NumLigne(cell1 As Range)
????
End Function

ou bien m'écrire la fonction qui renvoie le nombre de lignes entre deux cellules en entrée:

Function NbreLignes(cell1 As Range, cell2 As Range)
????
End Function

Merci.

 

[Jean-Marie]

Bonjour, Man

Function NumLigne(cell1 As Range) As Long
NumLigne = cell1.Row
End Function

Function NbreLignes(cell1 As Range, cell2 As Range) As Long
NbreLignes = Range(cell1.Address + ":" + cell2.Address).Rows.Count
End Function

Mais il exite les deux fonctions directement dans la feuille excel
Ligne(A1) et Lignes(A1:A100)

Bonne journée

@+Jean-Marie

 

[Man]

Merci Jean-Marie, je les ai conçues.