web-dev-qa-db-fra.com

Comment modifier la taille et la couleur de la police dans une liste déroulante Excel?

Je me demandais s'il était possible de définir une liste déroulante dans Excel. Le texte est plutôt petit et n'a pas de style et je me demandais si le style de la liste déroulante pouvait être modifié? 

Ce qui aurait du sens, c’est que les éléments de la liste déroulante copient le même style que ses cellules sources, c’est-à-dire que la couleur de fond des cellules, la police, la taille, etc.

Est-il possible de changer cela en utilisant VBA ou toute autre méthode tierce? 

excelexcel-vbavba
9
Christopher Leach

Malheureusement, vous ne pouvez pas modifier la taille de la police ou le style dans une liste déroulante créée à l'aide de la validation des données.

Vous pouvez toutefois styliser le texte dans une liste déroulante. Suivez les instructions ici: Zone de liste déroulante Excel Data Validation

11
Jon Crowell

Vous ne pouvez pas modifier la valeur par défaut, mais il existe une solution de contournement sans code.

Sélectionnez la feuille entière et modifiez la taille de la police de vos données afin qu'elle soit petite, par exemple 10 ou 12. Lorsque vous effectuez un zoom avant pour afficher les données, vous constaterez que les entrées de la liste déroulante sont désormais visibles.

Pour souligner le problème, ce n’est pas tant la taille de la police dans la liste déroulante que la taille de la police; c’est la taille relative entre la taille de la police de la liste déroulante et celle des polices d’affichage des données.

3
Peter Tashkoff

Je travaille sur 60-70% de zoom et mon menu déroulant étant illisible, j'ai donc créé ce code simple pour résoudre le problème.

Notez que j'ai d'abord sélectionné tous mes lsts déroulants (CTRL + clic de souris), suis passé dans l'onglet de formule, cliqué sur "définir un nom" et les ai appelés "ProduktSelection"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim KeyCells As Range
Set KeyCells = Range("ProduktSelection")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) _
           Is Nothing Then

ActiveWindow.Zoom = 100

End If

End Sub

J'ai ensuite un autre sous

Private Sub Worksheet_Change(ByVal Target As Range)

où je reviens à 65% lorsque la valeur est modifiée.

2
Kamolga

Essayez de réduire la taille de la police de la feuille entière. Puis zoomez et enregistrez. Faites une feuille d’entraînement d’abord parce que tout est foutu en l'air. 

0
Billy Bob