Comment définir une largeur de colonne de feuille de calcul Excel avec VBA ?

Mise à jour : août 2021 ; Fonctionne sur Excel 365, 2019, 2016.

Dans le didacticiel d'automatisation Excel d'aujourd'hui, nous apprendrons comment modifier rapidement la largeur d'une colonne de feuille de calcul selon les besoins, mais par programmation à l'aide de VBA (Visual Basic pour Applications).

Conditions préalables

Pour écrire du code VBA, vous devez d'abord et avant tout vous assurer que votre onglet développeur est activé. Si vous n'êtes pas sûr de la procédure, assurez-vous de consulter notre procédure détaillée .

• Sur votre ordinateur Windows, ouvrez Microsoft Excel .
• Sur le ruban principal, appuyez sur Developer .
• Appuyez sur la commande Visual Basic . Cela ouvrira l' éditeur VBA .
• Dans l'explorateur de projet de gauche, mettez en surbrillance une feuille spécifique dans laquelle vous allez insérer votre code. Alternativement, vous pouvez insérer un nouveau module ou ajouter notre code à un module VBA existant.

Définition d'une largeur de colonne

Dans cet exemple, nous allons sélectionner une colonne dans la feuille de calcul active et la modifier en conséquence.

• À l'aide de l'éditeur VBA, copiez le code suivant dans votre feuille de calcul ou votre module.

Sub Set_Column_Width()

Dim MySheet As Worksheet
Set MySheet = ActiveSheet

' Select one or multiple columns, set your column width as needed

With MySheet.Columns("B")

    .ColumnWidth = 50
End With

End Sub

• Exécutez votre code en appuyant sur F5 ou choisissez Exécuter >> Exécuter sous ou formulaire.
• Enregistrez votre travail en appuyant sur Fichier >> Enregistrer ou sur l'icône Disque.

Modifier la largeur d'une plage de plusieurs colonnes

Dans cet exemple, nous sélectionnons une plage de colonnes , puis modifions la largeur.

Vous pouvez appliquer le code de la même manière que celle décrite dans la section précédente.

Sub Set_Column_Range_Width()

Dim MySheet As Worksheet

Set MySheet = ActiveSheet

' Set your column width as needed
With MySheet.Range("A:F")

    .ColumnWidth = .ColumnWidth * 1.5
End With

End Sub

Prochaines étapes

Vous débutez avec VBA ? Assurez-vous de consulter les bases de VBA pour le guide Excel .