Taille liste déroulante en validation des données Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
e
eole-33
Membre dévoué
Membre dévoué
Messages : 573
Inscrit le : 31 janvier 2015
Version d'Excel : 2013FR

Message par eole-33 » 5 mars 2017, 15:06

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é
A
Amadéus
Modérateur
Modérateur
Messages : 17'727
Appréciations reçues : 57
Inscrit le : 7 mai 2006
Version d'Excel : Office Excel 2003 FR et 2013FR

Message par Amadéus » 5 mars 2017, 15:30

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
Propriétes_Liste.xls
(47 Kio) Téléchargé 122 fois
Amadéus vous informe que, pour cause de saturation, il ne peut plus répondre aux messages privés non sollicités.
e
eole-33
Membre dévoué
Membre dévoué
Messages : 573
Inscrit le : 31 janvier 2015
Version d'Excel : 2013FR

Message par eole-33 » 5 mars 2017, 16:20

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"
A
Amadéus
Modérateur
Modérateur
Messages : 17'727
Appréciations reçues : 57
Inscrit le : 7 mai 2006
Version d'Excel : Office Excel 2003 FR et 2013FR

Message par Amadéus » 5 mars 2017, 19:23

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
Propriétes_Liste.xls
(41 Kio) Téléchargé 133 fois
Amadéus vous informe que, pour cause de saturation, il ne peut plus répondre aux messages privés non sollicités.
e
eole-33
Membre dévoué
Membre dévoué
Messages : 573
Inscrit le : 31 janvier 2015
Version d'Excel : 2013FR

Message par eole-33 » 5 mars 2017, 19:36

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
A
Amadéus
Modérateur
Modérateur
Messages : 17'727
Appréciations reçues : 57
Inscrit le : 7 mai 2006
Version d'Excel : Office Excel 2003 FR et 2013FR

Message par Amadéus » 5 mars 2017, 20:33

Bonjour
Peut être
If Target.Address = "$J$13,$K$3" Then
ou
If Target.Address="$J$13" Or ....="$K$13"
Cordialement
Amadéus vous informe que, pour cause de saturation, il ne peut plus répondre aux messages privés non sollicités.
e
eole-33
Membre dévoué
Membre dévoué
Messages : 573
Inscrit le : 31 janvier 2015
Version d'Excel : 2013FR

Message par eole-33 » 6 mars 2017, 18:06

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
DOSSIER TRAVAUX_v1.xlsm
(113.57 Kio) Téléchargé 19 fois
A
Amadéus
Modérateur
Modérateur
Messages : 17'727
Appréciations reçues : 57
Inscrit le : 7 mai 2006
Version d'Excel : Office Excel 2003 FR et 2013FR

Message par Amadéus » 6 mars 2017, 19:43

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
DOSSIER TRAVAUX_v1.xlsm
(113.8 Kio) Téléchargé 111 fois
Amadéus vous informe que, pour cause de saturation, il ne peut plus répondre aux messages privés non sollicités.
e
eole-33
Membre dévoué
Membre dévoué
Messages : 573
Inscrit le : 31 janvier 2015
Version d'Excel : 2013FR

Message par eole-33 » 7 mars 2017, 12:45

Bonjour le forum

Bonjour et merci Amadéus,


Super merci pour ta disponibilité
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message