carectères spéciaux en vba

[RONIBO]

Bonjour le forum,

Je souhaite coder des caractères spéciaux dans la vba.

J'aimerais obtenir le code pour obtenir les icone suivantes :

Téléphone
et une enveloppe dans Wingdings.

Merci d'avance

 

[camarchepas]

Re : carectères spéciaux en vba

Bonjour ,

une solution possible

Sub ff()
Range("A1").Font.Name = "Wingdings"
Range("A1").Font.Size = 15
Range("A1") = Chr(40)

Range("A2").Font.Name = "Wingdings"
Range("A2").Font.Size = 15
Range("A2") = Chr(42)

Range("A3").Font.Name = "Wingdings"
Range("A3").Font.Size = 15
Range("A3") = Chr(43)
End Sub

 

[RONIBO]

Re : carectères spéciaux en vba

Bonjour,

Merci pour ta proposition.

Moi j'ai codé mes données de cette facon

.Range("A6") = Me.TBNuméroTéléphone

Sachant que ma cellule est en Times New Roman je pense qu'il faut mettre que l'icone en windgins

Est ce que on peut codé sur une ligne seulement, puis dans une cellule avoir deux police différent?

Merci

 

[camarchepas]

Re : carectères spéciaux en vba

Re ,
Ben en une ligne , ok mais moins lisible

en 1 ligne

.Range("A6").Characters(Start:=1, Length:=2).Font.Name = "Wingdings":.Range("A6") = Chr(40) & " " & Me.TBNuméroTéléphone :.Range("A6").Characters(Start:=2, Length:=20).Font.Name = "Times New Roman"

Normal

.Range("A6").Characters(Start:=1, Length:=2).Font.Name = "Wingdings"
.Range("A6") = Chr(40) & " " & Me.TBNuméroTéléphone 
.Range("A6").Characters(Start:=2, Length:=20).Font.Name = "Times New Roman"

 

[RONIBO]

Re : carectères spéciaux en vba

Bonjour,

Merci pour ces code qui fonctionne à merveille 🙂

A+