Comment inscrire ce signe "●" dans le VBA ???

[Roukkeus]

Bonjour,
Je cherche à créer une macro qui remplace certains caractères "normaux" par des "●".
Or je ne parviens pas à trouver le bon "code" pour ce signe. A chaque fois VBA me le traduit en "?"...Quelqu'un a la solution ?

Le code en question :

    Cells.Select
    Selection.Replace What:="i", Replacement:="le sigle en question", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
    ReplaceFormat:=False

Merci par avance !
Roukkeus

 

[Guest]

Re : Comment inscrire ce signe "●" dans le VBA ???

Bonjour,

Selection.Replace What:="i", Replacement:=chr(149), LookAt:=xlPart, _
     SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, 
     ReplaceFormat:=False

Police : Tahoma

A+

 

[sebamak]

Re : Comment inscrire ce signe "●" dans le VBA ???

bonjours
Code à adapter :

ActiveCell.Value = ChrW(&H25CF) 'Entrée le caractère spécial U+25CF "Disque noir"

 

[JCGL]

Re : Comment inscrire ce signe "●" dans le VBA ???

Bonjour à tous,

N'apporte rien à la discussion...

Si ce n'est le plaisir de croiser l'ami Ges... Ce qui est incommensurable... mais non pas Hasco, le plaisir... (Je dis ça pour Patrick (Victor21) qui a tendance à lire entre les mots.... Arf... Arf...)

Bises à toi mon Ges et chez toi
A++ Patrick

A + à tous