Comment trouver la dernière ligne ou la dernière colonne contenant des données dans Excel ?
Dans une feuille de calcul volumineuse, si vous souhaitez identifier rapidement et facilement la Dernière ligne ou la colonne contenant des valeurs, vous pouvez simplement faire glisser la barre de défilement pour la repérer. Toutefois, cela devient fastidieux s’il y a des milliers de lignes de données dans votre feuille. Dans cet article, je vais vous présenter du code VBA utile pour résoudre ce problème.
Trouver la Dernière ligne ou la colonne contenant des données à l’aide d’un code VBA
Trouver et sélectionner la Dernière ligne ou la colonne contenant des données avec Kutools pour Excel
Trouver la Dernière ligne ou la colonne contenant des données à l’aide d’un code VBA
La plupart d’entre nous pensent probablement localiser la dernière cellule en appuyant sur les touches Ctrl + Fin pour atteindre la dernière ligne et la dernière colonne. Mais ce raccourci ne pointe pas nécessairement vers la cellule contenant réellement une valeur si certaines cellules situées en dessous de la plage de données sont mises en forme. Utilisez donc le code VBA suivant :
1. Activez la feuille de calcul dans laquelle vous souhaitez identifier la dernière ligne ou la dernière colonne contenant des données.
2. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
3. Cliquez ensuite sur Insertion > Module, puis collez le code suivant dans la fenêtre du module.
Code VBA : Trouver la Dernière ligne contenant 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 ; une boîte de dialogue s’affichera alors pour vous indiquer le numéro de ligne de la plage utilisée. Voir capture d’écran :
5. Cliquez à nouveau sur le bouton OK ; cette fois-ci, le numéro de la dernière ligne contenant des valeurs s’affiche, comme illustré dans la capture d’écran suivante :
Remarque :Pour trouver la Dernière colonne contenant des données, veuillez appliquer ce code :
Code VBA : Trouver la Dernière colonne contenant 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 la colonne contenant des données avec Kutools pour Excel
Si vous souhaitez trouver et sélectionner directement la dernière ligne ou la dernière colonne contenant des données dans Excel, les fonctions Sélectionner Dernière ligne et Sélectionner Dernière colonne de Kutools pour Excel sont là pour vous aider. Voici comment procéder.
1. Pour trouver et sélectionner la dernière ligne contenant des données, cliquez 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 contenant des données, cliquez sur Kutools > Sélectionner > Sélectionner la dernière cellule > Dernière colonne.
La dernière ligne ou colonne contenant des données dans la feuille de calcul actuelle est immédiatement détectée et sélectionnée.
Si vous souhaitez profiter d’un essai gratuit de 30 jours de cet utilitaire,cliquez ici pour le télécharger, puis suivez les étapes indiquées ci-dessus.
Démo : Trouver et sélectionner la Dernière ligne ou la colonne contenant des données avec Kutools pour Excel
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels