Microsoft 365 Mon code ne reconnait pas la dernière ligne de mon tableau

mapomme à dit:

Bonsoir @Soumie ,

Votre tableau est un tableau structuré (TS) et c'est bien.
Mais avec un TS, on ne peut pas utiliser simplement END(xlup) qui renverra la dernière ligne du TS (qu'elle soit vide ou non). En passant, il est très rarement bon de laisser une ou plusieurs lignes vides dans un TS.

Pour trouver la dernière cellule non vide de la première colonne d'un TS, on peut utiliser la boucle ci-dessous. La première ligne vide sera celle juste après (d'où le +1 sur la ligne après la boucle). Ce code doit fonctionner même avec des lignes vides dans le TS ou bien si le TS ne comporte aucune ligne de données.

VB:

   ' Trouver la prochaine ligne vide disponible dans la colonne A
   Dim lastRow1 As Long, der As Long, prem As Long, col As Long
   col = ws.Range("a5").ListObject.Range.Column
   prem = ws.Range("a5").ListObject.Range(1, 1).Row
   der = prem + ws.Range("a5").ListObject.ListColumns(1).Range.Count - 1
   For lastRow1 = der To prem Step -1
      If ws.Cells(lastRow1, col) <> "" Then Exit For
   Next lastRow1
   lastRow1 = lastRow1 + 1

Cliquez pour agrandir...