Comment trouver la dernière ligne ou colonne contenant des données dans Excel ?

Dans une grande feuille de calcul, si vous souhaitez déterminer rapidement et facilement la dernière ligne ou colonne qui contient des valeurs, vous pouvez simplement faire défiler la barre de défilement pour la trouver. Mais cela peut être fastidieux s'il y a des milliers de lignes de données dans votre feuille de calcul. Dans cet article, je vais vous parler de quelques codes VBA utiles pour résoudre cette tâche.

Trouver la dernière ligne ou colonne avec des données en utilisant le code VBA
Trouver et sélectionner la dernière ligne ou colonne avec des données grâce à Kutools pour Excel

Trouver la dernière ligne ou colonne avec des données en utilisant le code VBA

La plupart d'entre nous pensent à localiser la dernière cellule en appuyant sur les touches Ctrl + Fin pour trouver la dernière ligne et colonne, mais ce raccourci ne localisera pas la cellule de valeur exacte s'il y a des cellules ayant un formatage sous la plage de données. Alors, ici, veuillez utiliser le code VBA suivant :

1. Activez votre feuille de calcul où vous souhaitez déterminer la dernière ligne ou colonne avec des données.

2. Maintenez les touches ALT + F11 enfoncées pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez ensuite sur Insertion > Module, et collez le code suivant dans la fenêtre du Module.

Code VBA : Trouver la dernière ligne avec des données

Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
    xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub

4. Appuyez ensuite sur la touche F5 pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous indiquer le numéro de ligne de la plage utilisée. Voir capture d'écran :

5. Continuez en cliquant sur le bouton OK, cette fois-ci, le numéro de la dernière ligne avec des valeurs sera affiché comme le montre la capture d'écran suivante :

Remarque : Pour trouver la dernière colonne avec des données, veuillez appliquer ce code :

Code VBA : Trouver la dernière colonne avec des données

Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
    xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub

Trouver et sélectionner la dernière ligne ou colonne avec des données grâce à Kutools pour Excel

Si vous souhaitez directement trouver et sélectionner la dernière ligne ou colonne avec des données dans Excel, les utilitaires Sélectionner la dernière ligne et Sélectionner la dernière colonne de Kutools pour Excel peuvent vous aider. Veuillez procéder comme suit.

1. Si vous voulez trouver et sélectionner la dernière ligne avec des données, veuillez cliquer sur Kutools > Sélectionner > Sélectionner la dernière cellule > Dernière ligne. Voir capture d'écran :

Remarque : Pour trouver et sélectionner la dernière colonne avec des données, veuillez cliquer sur Kutools > Sélectionner > Sélectionner la dernière cellule > Dernière colonne.

Ensuite, la dernière ligne ou colonne avec des données dans la feuille de calcul actuelle est immédiatement trouvée et sélectionnée.

Démo : Trouver et sélectionner la dernière ligne ou colonne avec des données grâce à Kutools pour Excel