VBA – Définir les Largeurs de Colonnes ou Hauteurs de Lignes

Ce tutoriel montre comment définir la hauteur des lignes et la largeur des colonnes à l’aide de VBA.

La hauteur des lignes et la largeur des colonnes dans Excel peuvent être modifiées en VBA en définissant les propriétés .RowHeight et .ColumnWidth

Définir la Largeur des Colonnes avec VBA

Macro pour définir la largeur des colonnes A à E :

Sub Largeur_Colonne()
    Columns("A:E").ColumnWidth = 30
End Sub

Définir la Hauteur des Lignes avec VBA

Macro pour définir la hauteur de la ligne 1 :

Sub Hauteur_Ligne()
    Rows("1:1").RowHeight = 30
End Sub

Ajustement Automatique de la Largeur des Colonnes

Excel offre la possibilité d’ajuster automatiquement la largeur des colonnes. Cette fonction ajuste la largeur de la colonne de manière à ce que la ou les colonnes soient suffisamment larges pour contenir tout le texte qui s’y trouve.

Pour ajuster automatiquement la largeur des colonnes en VBA :

Columns("A:B").Autofit

Nous avons écrit plus de détails à ce sujet dans un autre article sur la façon d’ajuster automatiquement une colonne en VBA, y compris la façon d’ajuster automatiquement toutes les colonnes utilisées.

Ajustement Automatique de la Hauteur des Lignes

Vous pouvez également adapter automatiquement la hauteur des lignes en utilisant une méthode similaire :

Rows("1:2").Autofit

Définir la Largeur des Cellules

Vous pouvez également ajuster la largeur des colonnes en faisant référence à une cellule :

Range("a1").EntireColumn.ColumnWidth = 20

Définir la Hauteur de la Cellule

Vous pouvez également ajuster la hauteur des lignes en faisant référence à une cellule :

Range("a1").EntireRow.RowHeight = 10

Obtenir la Largeur d’une Colonne

Pour obtenir la largeur d’une colonne :

dim iLargeurColonne as long
iLargeurColonne = columns("a").ColumnWidth

Remarque : Cette opération renvoie Null si toutes les colonnes de la plage n’ont pas la même largeur.

Obtenir la Hauteur des Lignes

De la même manière, vous pouvez obtenir la hauteur des lignes :

dim iHauteurLigne as long
iHauteurLigne = rows("1").RowHeight

<<Retour aux exemples VBA