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 : 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
 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