Police d'affichage

Bonjour, je travail sur une petite application sous VBA-Excel, et j'aimerais afficher dans une case un Smiley (de police Wingdings) concaténer à  un des mots Bon, Mauvais, neutre selon nu critère.

Si j'affiche dans une case le Smiley tout seul ça marche, à condition que la case soit sous format de police Wingdings, et quand j'affiche le mot Bon par exemple et à coté le Smiley ça ne marche pas, ça ne m'affiche que le mot Bon, le Smiley c'est un caractère équivalent qui sort, parce que je suis en police Arial, et si je change le format de la cellule en Wingdings, dans ce cas j'arrive à afficher le Smiley mais avec un tas de caractère spéciaux qui remplacent  le mot Bon par exemple.

Ce qu'il me faut c'est une police intermédiaire qui peut m'afficher  la concaténation des du smiley et du mot Bon.

 

Je vous remercie d'avance pour votre aide

Merci

Salut,

Je ne sais pas si cela est faisable, mais essaye de voir si par code le format de ta cellule quand tu écris le mot bon, et la basculer aprés en  Wingdings

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

Salut,
Fait insertion caractère spéciaux, sélectionne le caractère que tu veux
Il sera envoyé sous format de caractère en court dans la cellule
Sélectionne le caractère est change pour Winding par exemple
Le reste de la cellule sera toujours en format original
JML
 Partageons notre savoir et nos acquis

Salut,
Enregistreur de macro quand tu nous tiens.....

Range("A1").Value = "Bon K"    Range("A1").Characters(1, 4).Font.Name = "Arial"    Range("A1").Characters(5, 1).Font.Name = "Wingdings"

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée

merci les amis pour vos réponses, mais ça ne marche toujours pas.
pour la réponse de JM247L, ça ne marchera pas parce qu'il faut que ça soit automatique, je ne veux pas qu'à chaque fois j'insere le caractère spécial ..., en plus l'affichage est dynamique et se fait selon une valeur de chiffres (si le chiffre >0 j'affiche , si chiffre = 0 j'affiche et si chiffre <0 j'affiche )

pour jrivet, la réponse est bcp plus efficace, mais comme je l'ai dis avant, il faut que ça soit dynamique et sur plusieurs cellule, en plus je n'ai pas la taille de la chaine de caractère aue je dois afficher, "Bon" ce n'etait qu'un exemple

Salut,
Si les deux mots (Bon et le smiley) son séparer par un espace, Instr te donneras la position de l'espace (le 4 dans mon code) et donc rien ne t'empeche de rendre tout cela dynamique.

@+: Ju£i€n
Pensez: Réponse acceptée

c'est bon ça marche maintenant, je vous remercie tous pour votre aide