Il existe de nombreuses polices de symboles dans Windows. L’un d’eux est Wingdings. Entre autres choses, cette police contient un symbole de coche. Vous pouvez très bien utiliser ce symbole dans Excel si, par exemple, vous souhaitez vérifier dans une liste quelles tâches ont déjà été effectuées.
Pour placer ces coches dans les cellules correspondantes, placez le pointeur de la souris sur la cellule souhaitée et démarrez la macro suivante.
Sub InsererCaractere() Dim Cellule As Range Set Cellule = ActiveCell With Cellule .Value = Chr(252) .Font.Name = "Wingdings" .HorizontalAlignment = xlCenter End With End Sub
Avec l’aide de la fonction Chr, vous pouvez insérer un certain caractère à partir d’un code de caractère dans votre cellule active. À propos de la propriété Name, la propriété appliquez-le à l’objet Police, attribuez la police souhaitée. Vous pouvez ensuite définir l’alignement du symbole inséré à l’aide de la propriété HorizontalAlignment.
Vous avez maintenant tout à fait raison de demander: “Comment dois-je savoir quel index utiliser pour la fonction Chr?” Une bonne question à laquelle la macro suivante peut répondre.
Vous avez maintenant tout à fait raison de demander: “Comment dois-je savoir quel index utiliser pour la fonction Chr?” Une bonne question à laquelle la macro suivante peut répondre.
Sub TableauCaractere()
Dim i As Integer
Sheets("Tabelle8").Activate
Range("A2").Select
For i = 0 To 255
With ActiveCell
.Font.Name = "Wingdings"
.Value = Chr(i)
.Offset(0, 1).Value = i
.HorizontalAlignment = xlCenter
.Offset(1, 0).Select
End With
Next i
End Sub
La plage normale pour les codes de caractères est comprise entre 0 et 255. C’est dans cette plage que vous faites votre boucle. Dans la boucle, affectez la police à WINGDINGS et écrivez à la fois le caractère et l’index dans les cellules respectives.