Bonjour,
Supposons que, dans une chaîne, je veuille qu'il y ait la petite araignée que l'on trouve dans la police "Webdings" et qui normalement correspond à "!" ---> blablabla petite araignée popopo <=> blablabla ! popopo
J'ai essayé de la manière suivante :
Évidemment, ça ne marche pas. cadena devrait être un Range.
Peut-on y parvenir ?
Merci pour tout commentaire.
Supposons que, dans une chaîne, je veuille qu'il y ait la petite araignée que l'on trouve dans la police "Webdings" et qui normalement correspond à "!" ---> blablabla petite araignée popopo <=> blablabla ! popopo
J'ai essayé de la manière suivante :
VB:
Function SimboloEnFrase(nom1 As String, nom2 As String, sep As String, Optional police As String) As String
Dim cadena As Variant
'- nom1 : 1er mot
'- nom 2 : 2ème mot
'- sep : symbole qui sépare dans la chaîne mot1 de mot2
'- police : nom de la police de caractères "exotiques" pour "sep" (si l'on veut que le séparateur soit
' vraiment atypique, un symbole de "Webdings" par exemple)
cadena = nom1 & sep & nom2
If police <> "" Then
cadena.Characters(Start:=Len(nom1) + 1, Length:=Len(sep)).Font.Name = police
End If
SimboloEnFrase = cadena
End FunctionÉvidemment, ça ne marche pas. cadena devrait être un Range.
Peut-on y parvenir ?
Merci pour tout commentaire.