Cette fonction s’avère très pratique pour connaître la dernière ligne d’une colonne. Elle peut être utilisée dans des zones de liste dont le contenu peut varier.

La syntaxe de la fonction DERNIERELIGNE est :

DERNIERELIGNE( Zone ) 

L’argument Zone représente la colonne ou une cellule d’une colonne : A1 ou B:B

Voici un exemple d’utilisation :

Pour utiliser cette fonction, il faut la copier et la placer dans un module VBA.

• depuis Excel, faire ALT F11, vous ouvrez le module VBA.
• clic droit sur ThisWorBook, INSERTION / MODULE

• Coller le code suivant :

Function derniereligne(zone As Range) As Integer
‘DOPHIS
Application.Volatile
If zone.Columns.Count > 1 Then
derniereligne = 0
Else
derniereligne = ActiveSheet.Cells(Columns(zone.Column).Cells.Count, zone.Column).End(xlUp).Row
End If
End Function

Vous pouvez télécharger le fichier ci-dessous pour tester l’utilisation de cette fonction dans une zone de liste.