Comment augmenter la taille de la police de la liste déroulante dans Excel ?
La liste déroulante est une fonctionnalité particulièrement utile dans Excel. Lorsque vous en créez une dans votre feuille de calcul, avez-vous déjà essayé d’augmenter la taille de police de cette liste afin de rendre l’élément sélectionné plus grand et plus lisible, comme le montre la capture d’écran à gauche ? Cet article vous propose une solution de contournement pour y parvenir.
Augmenter la Taille de police de la liste déroulante à l’aide d’un code VBA pour agrandir le zoom
Augmenter la Taille de police de la liste déroulante à l’aide d’un code VBA pour agrandir le zoom
En réalité, il n’existe pas de méthode directe pour augmenter la taille de la police dans une liste déroulante, mais vous pouvez appliquer le code VBA suivant afin d’ajuster le niveau de zoom des cellules contenant cette liste, ce qui rendra le texte plus lisible. Voici la marche à suivre :
1. Accédez à la feuille de calcul contenant la liste déroulante dont vous souhaitez augmenter la taille de la police.
2. Cliquez avec le bouton droit sur l’onglet de la feuille, puis sélectionnez Afficher le code dans le menu contextuel. Dans la fenêtre Microsoft Visual Basic pour Applications qui s’ouvre, copiez et collez le code suivant dans la fenêtre vide du Module :
Code VBA : augmenter la Taille de police de la liste déroulante pour agrandir le zoom de la cellule
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. Exécutez ensuite ce code. Désormais, dès que vous cliquez sur une cellule contenant une liste déroulante, le zoom de cette cellule augmente automatiquement, rendant la liste plus grande. En revanche, dès que vous cliquez sur une autre cellule sans liste déroulante, le zoom revient à la normale.
Remarque : dans le code ci-dessus, xZoom = 130 définit le niveau de zoom des cellules de la liste déroulante à 130. Vous pouvez ajuster cette valeur selon vos besoins.
Créer une liste déroulante avec des cases à cocher dans Excel
Si vous souhaitez créer une liste déroulante avec plusieurs cases à cocher pour sélectionner plusieurs éléments dans une même cellule, il n’existe probablement pas de méthode directe pour réaliser cette tâche. Toutefois, Kutools pour Excel propose une fonctionnalité remarquable : Ajouter des cases à cocher à la liste déroulante, grâce à laquelle vous pouvez créer rapidement des listes déroulantes avec cases à cocher dans une plage limitée, sur la feuille de calcul active, dans le classeur actuel ou dans tous les classeurs ouverts, selon vos besoins. Cliquez pour télécharger Kutools pour Excel !
Démo : augmenter la Taille de police de la liste déroulante à l’aide d’un code VBA pour agrandir le zoom
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels