Xl 2016 - Vba: Dernière Ligne Valorisée D'Une Colonne ? | Excel-Downloads
Accueil > VBA > Excel – Déterminer la dernière ligne d'un tableau ou d'une colonne remplie, via la programmation VBA 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 > 1 Then derniereligne = 0 Else derniereligne = (Columns(), )(xlUp) 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.
Dernière Ligne D Une Colonne Va Faire
Pourquoi aller du bas de la feuille vers le haut et pas l'inverse? Tout simplement, pour éviter une erreur de sélection s'il s'avérait que le tableau contient des cellules vides. Essayez donc le code suivant en effaçant la cellule A3 par exemple: Range("A1")(xlDown) Ce qu'il faut bien comprendre ici est la signification de signifie littéralement: dernière ligne.
Les exemples sont tous basés sur le fait de chercher la dernière colonne remplie de la ligne 4. Par contre, contrairement au chapitre précédent, nous nous attacherons à retourner le numéro de la dernière colonne remplie, pas la première colonne vide... Les explications seront moins fournies que pour les lignes, parce que c'est exactement la même chose. Voici quelques unes des méthodes possibles. & End(xlToLeft) La méthode End comporte un paramètre de direction comme nous l'avons vu. Cette direction peut très bien être "vers la gauche". A ce moment, il nous suffit de partir de la dernière colonne de notre classeur () et de revenir vers la gauche. L'équivalent de la combinaison de touches Ctrl+Flèche gauche. Dim DernCol As Integer DernCol = Cells(4, )(xlToLeft) Nota: Plus besoin d'une variable de type Long. Ici le type Integer suffit largement. End(xlToRight) DernCol = Range("A4")(xlToRight) Attention en cas de cellule vide dans la ligne 4... DernCol = (xlCellTypeLastCell) La méthode Find Dim Col As Integer Col = Rows(3)("*",,,, xlByRows, xlPrevious) ou: Col = Rows(3)("",,,, xlByRows, xlNext) Attention aux cellules vides...