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

creer-module-vba

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 et apprendre le VBA avec un formateur.

S’abonner
Notification pour
guest

0 Commentaires
Commentaires en ligne
Afficher tous les commentaires