Ce didacticiel montrera comment définir la hauteur des lignes et la largeur des colonnes à l'aide de VBA.
Les hauteurs de lignes et les largeurs de colonnes Excel peuvent être modifiées dans VBA en définissant les propriétés .RowHeight et .ColumnWidth.
Définir la largeur de colonne avec VBA
Macro pour définir le largeur de colonne des colonnes A à E :
| 123 | Sous-colonne_Largeur()Colonnes("A:E").ColumnWidth = 30Fin du sous-marin |
Définir la hauteur de ligne avec VBA
Macro pour définir le hauteur de ligne de la rangée 1 :
| 123 | Hauteur de sous-ligne()Lignes("1:1"). Hauteur de ligne = 30Fin du sous-marin |
Ajuster automatiquement la largeur de la colonne
Excel offre la possibilité d'ajuster automatiquement les largeurs de colonnes. Cette fonctionnalité ajuste la largeur de la colonne afin que la ou les colonnes soient suffisamment larges pour contenir tout le texte trouvé dans cette colonne.
Pour ajuster automatiquement les largeurs de colonnes dans VBA :
| 1 | Colonnes("A:B").Ajustement automatique |
Nous avons écrit plus à ce sujet dans un autre article sur la façon d'ajuster automatiquement une colonne à partir de VBA, y compris comment ajuster automatiquement toutes les colonnes utilisées.
Ajuster automatiquement la hauteur de ligne
Vous pouvez également ajuster automatiquement les hauteurs de ligne en utilisant une méthode similaire :
| 1 | Lignes("1:2").Ajustement automatique |
Définir la largeur de la cellule
Vous pouvez également ajuster la largeur des colonnes en référençant une cellule :
| 1 | Range("a1").EntireColumn.ColumnWidth = 20 |
Définir la hauteur de la cellule
Ou ajustez la hauteur des lignes en référençant une cellule :
| 1 | Range("a1").EntireRow.RowHeight = 10 |
Obtenir la largeur de colonne
Pour obtenir la largeur de colonne d'une colonne :
| 12 | dim iColumnWidth aussi longtempsiColumnWidth = colonnes("a").ColumnWidth |
Remarque : cela renverra Null si toutes les colonnes de la plage n'ont pas la même largeur.
Obtenir la hauteur de ligne
De même, vous pouvez obtenir la hauteur de ligne :
| 12 | dim iRowHeight aussi longtempsiRowHeight = lignes("1").RowHeight |
