VBA Used Range – Compter le Nombre de Lignes ou de Colonnes Utilisées

UsedRange – Trouver la Dernière Cellule, Colonne ou Ligne Utilisée

Le code suivant renvoie une boîte de message indiquant le nombre total de lignes utilisées dans une feuille de calcul. Les rangées vides sont considérées comme utilisées si des données suivent la rangée vide.

MsgBox ActiveSheet.UsedRange.Rows.Count

Vous devez exécuter une boucle dans une feuille mais vous ne savez pas où les données s’arrêtent ? ActiveSheet.UsedRange.Rows.Count peut vous aider. Mettez ceci dans un module :

Sub DernièreLigne()

Dim DerniereLigne As Integer

DerniereLigne = ActiveSheet.UsedRange.Rows.Count

MsgBox DerniereLigne 

End Sub

Sub DernièreColonne()

Dim DerniereColonne As Integer

DerniereColonne = ActiveSheet.UsedRange.Columns.Count

MsgBox DerniereColonne 

End Sub

Trouver la Première Cellule Vide

En utilisant VBA, vous pouvez avoir besoin d’écrire dans la première cellule vide, après la dernière ligne utilisée dans une colonne. Il n’est pas nécessaire de faire une boucle pour trouver cette cellule, le code suivant le fait pour vous. Dans cet exemple, le code écrira « 1ère Cell. Vide » dans la première cellule vide suivant la dernière ligne non-vide de la colonne « D »

Public Sub PremièreCellVide()

ActiveSheet.Range("d" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0).Value = "1ère Cell. Vide"

End Sub

Compter les Colonnes Utilisées dans une Feuille de Calcul

Le code suivant renvoie dans une boîte de message le nombre total de colonnes utilisées dans une feuille de calcul. Les colonnes vides sont considérées comme utilisées si des données suivent la colonne vide.

MsgBox ActiveSheet.UsedRange.Columns.Count

Dernière Cellule Utilisée – Problèmes

Lorsque j’ai besoin de faire une boucle For..Next..Loop sur une colonne entière, j’utilise habituellement ActiveSheet.UsedRange.Rows.Count pour trouver où m’arrêter. J’ai toujours eu de la chance avec cette approche. Je suis également conscient que, parfois, Excel pense que la dernière ligne existe quelque part, mais la ligne est en fait vide. Je l’ai constaté à plusieurs reprises après l’importation de données. De BeyondTechnology :

La fonction UsedRange de l’objet Worksheet ne fonctionne pas toujours car la plage utilisée (ou « zone sale ») d’une feuille de calcul peut être plus grande que la zone réellement remplie de vos entrées.

VBA Coding Made Easy

Stop searching for VBA code online. Learn more about AutoMacro - A VBA Code Builder that allows beginners to code procedures from scratch with minimal coding knowledge and with many time-saving features for all users!


Learn More!