Insérer des caractères spéciaux avec Excel VBA

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.
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.
S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x