Taille liste déroulante en validation des données

Bonjour le forum

Quelqu'un connait-il une façon pour augmenter la taille du texte dans les listes déroulantes qui sont faites en validation des données d'Excel, svp?

Merci pour votre aide et votre disponibilité

Bonjour

augmenter la taille du texte dans les listes déroulantes qui sont faites en validation des données

peut-être possible, mais je ne sais pas.

Avec un autre moyen, voir fichier

Cordialement

438proprietes-liste.zip (19.34 Ko)

Bonjour Amadéus

Merci pour ta réponse

En regardant dans le fichier que tu as placé en pièce jointe il y a bien un moyen, mais je ne vois pas comment c'est fait cellule "M5"


je viens de trouver ce code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$J$13" Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 100
End If
End Sub

il zoom sur la cellule pour le choix dans la liste et dès qu'on sélectionne une autre cellule il permet de revenir au zoom d'origine


Du coup comment adapter ce code si j'ai deux cellules avec des listes déroulantes

par exemple:

liste déroulante en "$J$13"

et

liste déroulante en "$K$3"

Bonjour

Le Code dans le fichier ne concernait pas la liste déroulante.

Ci-joint un nouveau fichier sans code et avec une explication plus adaptée à ta version d'Excel.

Par ailleurs Zoomer sur le choix ne fait que grossir la cellule contenant le choix et pas la liste des Items de la liste. Le même résultat est obtenu en modifiant simplement la taille de la Police dans la cellule contenant la validation de données.

Cordialement

491proprietes-liste.zip (18.26 Ko)

oui merci Amadéus

j'avais trouvé, mais en zoomant c'est toujours mieux que de ce brûler les yeux

d'où ma question comment mettre plusieurs cellules dans le code

Bonjour

Peut être

If Target.Address = "$J$13,$K$3" Then

ou

If Target.Address="$J$13" Or ....="$K$13"

Cordialement

Bonsoir le forum

Bonsoir Amadéus,

Désolé cela ne fonctionne pas

je place le fichier au cas ou

cellule $K$3,$K$4,$K$5,$J$13

merci de ton aide

Bonjour

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("$K$3,$K$4,$K$5,$J$13")) Is Nothing Then
ActiveWindow.Zoom = 200
Else
ActiveWindow.Zoom = 70
End If
End Sub

Cordialement

Bonjour le forum

Bonjour et merci Amadéus,

Super merci pour ta disponibilité

Rechercher des sujets similaires à "taille liste deroulante validation donnees"