Discussion :

[Momo143]

Bonjour,

Je souhaiterais créer une liste déroulante avec Excel 2010 qui comprend aussi bien des caractères spéciaux (par exemple une police Wingdings) que des caractères normaux (par exemple une police Calibri), autrement dit utiliser 2 polices de caractères différentes qui s'affichent correctement dans la liste (voir fichier ci-joint).

Est-ce que quelqu'un à une idée ?

Quoi qu'il en soit d'avance un tout grand merci.

Cordiales salutations.

[Invité]

Bonjour,

Une solution possible dans le fichier joint (.xlsm).



Le module de la feuille 1 contient le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Worksheet_Change(ByVal CelluleEtat As Range)
 
   If CelluleEtat.Count > 1 Then Exit Sub
 
   If Not Application.Intersect(CelluleEtat, Range("ZoneEtat")) Is Nothing Then
          Select Case CelluleEtat
                 Case "ü", "û"
                      With CelluleEtat
                           .Font.Name = "Wingdings"
                           .HorizontalAlignment = xlCenter
                      End With
                 Case "Pas demandé", "En cours", "En attente"
                      With CelluleEtat
                           .Font.Name = "Calibri"
                           .HorizontalAlignment = xlLeft
                      End With
          End Select
   End If
 
End Sub

Cordialement.

[Momo143]

Rebonjour,

Tout d'abord, un grand MERCI d'avoir pris le temps d'examiner mon problème en me proposant une solution
qui affiche les caractères spéciaux toujours sous leurs formes ... spéciales (voir image en attaché)

Je fais peut-être quelque chose de faux

Encore merci et cordiales salutations en attendant ... une autre solution ?

[Menhir]

A ma connaissance (et après de nombreux essais par le passé), il n'est pas possible de contrôler le format du texte s'affichant dans une liste déroulante, que ce soit une liste de validation ou un objet de formulaire (même en VBA, je n'ai pas trouvé de solution et ce n'est pas faute d'avoir cherché).
On ne peut contrôler que l'affichage du résultat.

[Invité]

Merci à Menhir pour cette explication.

Si le but est d'afficher toujours une coche ou le symbole que j'appellerais "non coché", ci-joint une variante du code envoyé ce matin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Private Sub Worksheet_Change(ByVal CelluleEtat As Range)
 
   If CelluleEtat.Count > 1 Then Exit Sub
 
   If Not Application.Intersect(CelluleEtat, Range("ZoneEtat")) Is Nothing Then
          Select Case CelluleEtat
                 Case "Coché"
                      With CelluleEtat
                           .Value = "ü"
                           .Font.Name = "Wingdings"
                           .HorizontalAlignment = xlCenter
                      End With
                 Case "Non coché"
                      With CelluleEtat
                           .Value = "û"
                           .Font.Name = "Wingdings"
                           .HorizontalAlignment = xlCenter
                      End With
                 Case "Pas demandé", "En cours", "En attente"
                      With CelluleEtat
                           .Font.Name = "Calibri"
                           .HorizontalAlignment = xlLeft
                      End With
          End Select
   End If
 
End Sub

Cordialement.

[Momo143]

Tant pis, essayé pas pu !
Cette possibilité sera peut-être prévue par les développeurs d'Excel, qui sait !

En tous cas, un tout, tout grand MERCI d'avoir pris du temps pour me proposer des solutions.

Une toute belle journée et ... vive le forum !

Cordialement.