Je d=C3=A9sire mettre dans une cellule le symbole =E2=96=BC donn=C3=A9 pou=
r Unicode
hexad=C3=A9cimal 25BC dans ins=C3=A9rer/caract=C3=A8res sp=C3=A9ciaux.
Bien entendu ceci au cours d'une proc=C3=A9dure VB.
J'ai parcouru les diff=C3=A9rents fils mais il ne parle que d'insertion
manuelle, pas en automatique.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JLuc
Le Nordiste avait soumis l'idée :
Bonjour tertous,
Je désire mettre dans une cellule le symbole ▼ donné pour Unicode hexadécimal 25BC dans insérer/caractères spéciaux. Bien entendu ceci au cours d'une procédure VB.
J'ai parcouru les différents fils mais il ne parle que d'insertion manuelle, pas en automatique.
remerciements anticipés,
Enregistre une macro en effectuant la manip en manuel, comme ca tu recuperera le code qui va bien ;-)
-- JLuc
Le Nordiste avait soumis l'idée :
Bonjour tertous,
Je désire mettre dans une cellule le symbole ▼ donné pour Unicode
hexadécimal 25BC dans insérer/caractères spéciaux.
Bien entendu ceci au cours d'une procédure VB.
J'ai parcouru les différents fils mais il ne parle que d'insertion
manuelle, pas en automatique.
remerciements anticipés,
Enregistre une macro en effectuant la manip en manuel, comme ca tu
recuperera le code qui va bien ;-)
Je désire mettre dans une cellule le symbole ▼ donné pour Unicode hexadécimal 25BC dans insérer/caractères spéciaux. Bien entendu ceci au cours d'une procédure VB.
J'ai parcouru les différents fils mais il ne parle que d'insertion manuelle, pas en automatique.
remerciements anticipés,
Enregistre une macro en effectuant la manip en manuel, comme ca tu recuperera le code qui va bien ;-)
-- JLuc
Le Nordiste
Idée simple donc géniale, dommage que je n'y ai pas pensé cette fois ci.
C'est pas exactement ce que je recherche mais je vais m'en contenter. Voici le code enregistré :
ActiveCell.FormulaR1C1 = "&" With ActiveCell.Characters(Start:=1, Length:=1).Font .Name = "Map Symbols" .Size = 14 .ColorIndex = 3 End With
Mais je ne sais toujours pas mettre un code unicode, bon je ne vais quand même pas me mettre martel en tête.
Merci.
Idée simple donc géniale, dommage que je n'y ai pas pensé cette fois
ci.
C'est pas exactement ce que je recherche mais je vais m'en contenter.
Voici le code enregistré :
ActiveCell.FormulaR1C1 = "&"
With ActiveCell.Characters(Start:=1, Length:=1).Font
.Name = "Map Symbols"
.Size = 14
.ColorIndex = 3
End With
Mais je ne sais toujours pas mettre un code unicode,
bon je ne vais quand même pas me mettre martel en tête.
Idée simple donc géniale, dommage que je n'y ai pas pensé cette fois ci.
C'est pas exactement ce que je recherche mais je vais m'en contenter. Voici le code enregistré :
ActiveCell.FormulaR1C1 = "&" With ActiveCell.Characters(Start:=1, Length:=1).Font .Name = "Map Symbols" .Size = 14 .ColorIndex = 3 End With
Mais je ne sais toujours pas mettre un code unicode, bon je ne vais quand même pas me mettre martel en tête.
Merci.
Modeste
Bonsour® Le Nordiste avec ferveur ;o))) vous nous disiez :
Je désire mettre dans une cellule le symbole ? donné pour Unicode hexadécimal 25BC dans insérer/caractères spéciaux. Bien entendu ceci au cours d'une procédure VB.
voir du coté de la fonction Chrw(xxxx) La fonction ChrW renvoie une valeur de type String contenant le caractère Unicode, Hex 25B2 = Déc 9650 ActiveCell = String(5, ChrW(9650))
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
Bonsour® Le Nordiste avec ferveur ;o))) vous nous disiez :
Je désire mettre dans une cellule le symbole ? donné pour Unicode
hexadécimal 25BC dans insérer/caractères spéciaux.
Bien entendu ceci au cours d'une procédure VB.
voir du coté de la fonction Chrw(xxxx)
La fonction ChrW renvoie une valeur de type String contenant le caractère
Unicode,
Hex 25B2 = Déc 9650
ActiveCell = String(5, ChrW(9650))
--
;o)))
@+
Les news à la source !!!
news://news.microsoft.com/microsoft.public.fr.excel
et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net
http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
Bonsour® Le Nordiste avec ferveur ;o))) vous nous disiez :
Je désire mettre dans une cellule le symbole ? donné pour Unicode hexadécimal 25BC dans insérer/caractères spéciaux. Bien entendu ceci au cours d'une procédure VB.
voir du coté de la fonction Chrw(xxxx) La fonction ChrW renvoie une valeur de type String contenant le caractère Unicode, Hex 25B2 = Déc 9650 ActiveCell = String(5, ChrW(9650))
-- ;o))) @+
Les news à la source !!! news://news.microsoft.com/microsoft.public.fr.excel et répondez OUI
n'oubliez pas les FAQ :http://www.excelabo.net http://dj.joss.free.fr/faq.htm http://www.faqoe.com http://faqword.free.fr
