Microsoft 365 Changer la police dans un Combobox

[Bill73]

Bonjour le forum,
j'ai une petite question concernant les Combobox.
j'aimerais, en fonction de la réponse d'un premier combobox, adapter la police d'un deuxième combobox, c'est à dire, passer la police type ARIAL en Wingdings, et le cas échéant, revenir à Arial par exemple.
J'ai essayé

.Font.Name = "Wingdings"

mais ça ne change pas l'affichage.

 

[Phil69970]

Bonjour @Bill73

Avec un fichier et plus d'explication/finalité sur le pourquoi vouloir ces multiples changement on pourrait peut être t'aider.

 

[patricktoulon]

Bonjour un fichier pour l'exemple anonymisé aurait été le bien venu
ca évite au benevole de se taper la création du classeur
dans l'exemple qui suit si on selection un nombre pai dans la combo 1 la combo2 sera en font "wingdings" sinon arial

 

[Bill73]

Bonjour Phil & Patrick,

avant tout, le fait que je ne suis pas dans un UserForm, mais sur une feuille pourrait poser problème pour l'affichage ?
je regarde pour faire un bout de code qui correspond.

 

[Phil69970]

Re

@Bill73

Et pas de réponse à ma question

Avec un fichier et plus d'explication/finalité sur le pourquoi vouloir ces multiples changement on pourrait peut être t'aider.

 

[Gégé-45550]

Bonjour Phil & Patrick,

avant tout, le fait que je ne suis pas dans un UserForm, mais sur une feuille pourrait poser problème pour l'affichage ?
je regarde pour faire un bout de code qui correspond.

Bonjour,
un exemple en PJ à partir du code de l'excellent patricktoulon.
Cordialement,

 

[Bill73]

@Phil,
pour les explications, c'est simple :
- certaines réponses dans le combobox1 sont des choix (combobox2) en mode texte
- deux réponses du combobox1 sont des choix (combobox2) en mode "graphiques"

il faut que je parte, mais je fait un bout de code en rentrant et je l'envoie

 

[Bill73]

...et voilà un bout de code qui correspond à ce que je veux.
En me relisant, je m'aperçois que je me suis mal expliqué :
- le deuxième combo comporte une liste de choix aussi et c'est cette liste que j'aimerais avoir en Wingdings dans certains cas.