Comment augmenter la taille de police d'une liste déroulante dans Excel ?

La liste déroulante est une fonctionnalité très utile dans Excel. Lorsque vous créez une liste déroulante dans votre feuille de calcul, avez-vous déjà essayé d'augmenter la taille de police de la liste déroulante pour rendre l'enregistrement sélectionné plus grand et plus lisible, comme le montre la capture d'écran à gauche ? Cet article discutera d'une solution de contournement pour résoudre ce problème.

Augmenter la taille de police de la liste déroulante avec un code VBA pour agrandir le zoom

Augmenter la taille de police de la liste déroulante avec un code VBA pour agrandir le zoom

En fait, il n'y a pas de méthode directe pour augmenter la taille de police d'une liste déroulante, mais vous pouvez appliquer le code VBA suivant pour modifier le paramètre de zoom des cellules de la liste déroulante afin que le texte apparaisse plus grand. Veuillez procéder comme suit :

1. Allez dans la feuille de calcul qui contient la liste déroulante dont vous souhaitez augmenter la taille de police.

2. Faites un clic droit sur l'onglet de la feuille, puis sélectionnez Affichage du code dans le menu contextuel. Dans la fenêtre Microsoft Visual Basic for Applications qui s'affiche, copiez et collez le code suivant dans la fenêtre Module vide :

Code VBA : Augmenter la taille de police de la liste déroulante pour agrandir le zoom des cellules

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice
    On Error GoTo LZoom
    Dim xZoom As Long
    xZoom = 100
    If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

3. Ensuite, enregistrez et fermez ce code. Maintenant, lorsque vous cliquez sur les cellules de la liste déroulante, le zoom de la cellule sera agrandi et la liste déroulante apparaîtra plus grande. Cependant, lorsque vous cliquez sur d'autres cellules qui ne contiennent pas de liste déroulante, le zoom de la cellule reviendra à la normale.

Remarque : Dans le code ci-dessus, xZoom = 130 changera le zoom des cellules de la liste déroulante à 130. Vous pouvez modifier cette valeur de zoom selon vos besoins.

Créer une liste déroulante avec des cases à cocher dans Excel

Démo : Augmenter la taille de police de la liste déroulante avec un code VBA pour agrandir le zoom