Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 Police illisible dans liste déroulante

rosabelle

XLDnaute Junior
Bonjour à tous,

J'aurais besoin d'un coup de pouce concernant une liste déroulante.
Je l'ai créée par Données/Validation/liste

Dans mes cellules source les données sont tout à fait lisibles.
Mais quand j'ouvre ma liste déroulantes les données sont minuscules et quasiment illisibles.
Comment puis-je résoudre ce problème sans utiliser le zoom (vu cette solution sur Internet) car ce n'est pas pratique pour l'utilisateur?
C'est bien la première fois que je rencontre ce problème dans une liste déroulante.
Merci par avance pour votre aide
Bonne soirée à vous
 

fanch55

XLDnaute Barbatruc
Bonsoir,
La taille de police d'une liste de validation est dépendante de l'échelle d'affichage.
Si vous avez sélectionné un grand nombre de colonnes pour y faire un zoom sur la sélection,
la taille de la liste de validation en sera d'autant rapetissée ... Augmenter la taille de police de la cellule ne servira pas à affecter celle de la liste de validation ...
A l'inverse, si vous faites un zoom sur 1 ou 2 colonnes, vous allez avoir une énorme liste de validation ....
Il n'y a pas de solution facile pour remédier à cela .
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @rosabelle , @fanch55 ,

Pour varier, une tentative, ma foi imparfaite, mais qui toutefois nécessite très peu de lignes de code et n'utilise pas d'objet liste auxiliaire comme les autres solutions généralement proposées.

La feuille concernée est la feuille "Feuil1". La zone de validation concernée est la plage F2 à F28.

Le code est dans le module associé à la feuille "Feuil1" :
VB:
Dim oldZoom As Long

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If oldZoom = 0 And ActiveWindow.Zoom > 100 Then oldZoom = 100
   If ActiveWindow.Zoom <= 100 Then oldZoom = ActiveWindow.Zoom
   If Target.Count > 1 Or Intersect(Target, Range("f2:f28")) Is Nothing Then
      ActiveWindow.Zoom = oldZoom
   Else
      ActiveWindow.Zoom = 120
   End If
End Sub

nota : Il se peut qu'à l'ouverture du classeur le zoom soit à 100%. Dans ce cas, mettre le zoom désiré (<= 100), et tout rentrera dans l'ordre.
 

Pièces jointes

  • rosabelle- Zoom liste validation- v1.xlsm
    16.8 KB · Affichages: 12
Dernière édition:

fanch55

XLDnaute Barbatruc
re,
Dans le classeur joint, vous avez 3 cellules colorées :
  • La première est de type validation standard .
  • La seconde fait appel à un zoom de 100% ( comme @mapomme que je salue )
  • La 3ème se cache derrière une combobox quand on clique dessus .
 

Pièces jointes

  • rosabelle.xlsm
    22.8 KB · Affichages: 13

rosabelle

XLDnaute Junior
Bonsoir mapomme ,

Merci beaucoup pour ta proposition et d'avoir travaillé un 1er mai!
Je l'ai intégrée dans mon fichier mais (je ne suis pas douée) cela me fait un zoom au moment où je clique dans la cellule qui comporte ma liste déroulante, je ne peux pas choisir la donnée qui m'intéresse car la feuille se remet aussitôt au zoom précédent.....
 

rosabelle

XLDnaute Junior
Bonsoir Fanch55,
Merci à vous également pour vous être penché sur mon problème. Vos codes semblent fonctionner, mais lesquels choisir dans mon cas ?
Mon fichier comportent 15 feuilles identiques
En D9 j'ai une petite liste déroulante
En E9 idem
Mes feuilles ont un zoom à 60% car beaucoup de données
J'ai essayé d'intégrer vos codes, le zoom se fait bien et les données de la liste du coup sont bien lisibles mais une fois que j'ai choisi dans la liste ma feuille ne revient pas au zoom 60%
Merci pour votre aide
 

fanch55

XLDnaute Barbatruc
La première ligne du code doit être : ( pour partager la variable entre toutes les procédures )
VB:
Dim Save_Zoom
Sinon, si vous aviez un exemple ...
 
Dernière édition:

Modeste geedee

XLDnaute Barbatruc
Bonsour®
repasser en zoom 100
Fractionner l'affichage
figer les volets
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…