XL 2010 Police illisible dans liste déroulante

[rosabelle]

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]

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 .

 

[rosabelle]

Bonjour,
Merci pour votre réponse, est à dire que je ne peux pas remédier à ce problème ?

 

[mapomme]

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" :

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.

 

[fanch55]

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 .

 

[rosabelle]

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" :

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.

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]

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 .

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]

La première ligne du code doit être : ( pour partager la variable entre toutes les procédures )

Dim Save_Zoom

Sinon, si vous aviez un exemple ...

 

[TooFatBoy]

Bonjour,

Mes feuilles ont un zoom à 60% car beaucoup de données

Ton problème vient évidemment de là, donc pourquoi ne pas modifier ta feuille pour ne plus avoir ce problème de ListBox illisible ?

 

[Modeste geedee]

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 .

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