Insertion de symbole dans cellule

Version imprimable

Bonjour,

je n'arrive pas à afficher le symbole "coche" et "croix" de la police Wingdings dans une cellule. J'ai tenté mon code mais c'est toujours j'obtiens les "ù" et "ü" à la place. Ou est ce que ça merde ?
merci. (ici le cumul de chaine & chr(i) était pour voir la valeur de i pour le coche et la croix)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 With Range("V9")
         .Interior.ColorIndex = 2
         .Font.Name = "Wingdings"
         If CheckBox1.Value = True Then
 
         For i = 200 To 255
 
         chaine = chaine & Chr(i)
 
              '.Value = chaine
              Next i
              .Font.Name = "Wingdings"
                   .Value = chaine
         Else
              .Value = "û"
         End If
         .Font.Name = "calibri"
     End With

06/09/2017, 16h40
unparia

Bonjour

Citation:

Ou est ce que ça merde ?

Déjà là où tu restitues la police d'origine, ce qui fait que Wingdings est totalement ignorée lors de l'affichage !
C'est un peu comme si tu disais :
si l'allumette blanche est bonne, je la peins en bleu, puis la repeins en blanc et je constate qu'à la fin toutes mes allumettes sont blanches malgré mon intervention ...
06/09/2017, 17h52
esse2016

Unparia merci pour ton intervention.

Demain, j'essaierai de mettre le font="Calibri" apres le "end with" du range
06/09/2017, 21h03
unparia

Citation:

Demain, j'essaierai de mettre le font="Calibri" apres le "end with" du range

de quel range ? du "V9" ?
La logique m'échappe, là ... Elle est même absente.
Pour reprendre l'exemple de l'allumette : que tu la repeignes en blanc à tel ou à tel autre moment, elle sera repeinte en blanc lorsque tu l'auras repeinte !

hello, c'est bon j'ai compris mon erreur :D, merci Unparia.

Code:

1
2
3
4
5
6
7
8
9
With Range("V9")
         .Interior.ColorIndex = 2
         .Font.Name = "Wingdings"
         If CheckBox1.Value = True Then
         .Value = Chr(252)
         Else
         .Value = Chr(251)
         End If
End With