Excel VBA- Déterminer la dernière ligne d’un tableau ou d’une colonne remplie
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 :
Insérer la fonction VBA dernière ligne dans un module
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
Code de la fonction dernière ligne VBA
- 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.
Pour aller plus dans l’automatisation d’Excel, suivez une formation VBA Excel pour transformer vos fichiers Excel.
