carectères spéciaux en vba

RONIBO · 29 Septembre 2014

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 · 29 Septembre 2014

Re : carectères spéciaux en vba

Bonjour ,

une solution possible

Code:

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 · 29 Septembre 2014

Re : carectères spéciaux en vba

Bonjour,

Merci pour ta proposition.

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

Code:

.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 · 29 Septembre 2014

Re : carectères spéciaux en vba

Re ,
Ben en une ligne , ok mais moins lisible

en 1 ligne

Code:

.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

Code:

.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 · 30 Septembre 2014

Re : carectères spéciaux en vba

Bonjour,

Merci pour ces code qui fonctionne à merveille 🙂

A+

carectères spéciaux en vba

RONIBO

XLDnaute Impliqué

camarchepas

XLDnaute Barbatruc

RONIBO

XLDnaute Impliqué

camarchepas

XLDnaute Barbatruc

RONIBO

XLDnaute Impliqué

Discussions similaires

carectères spéciaux en vba

RONIBO

XLDnaute Impliqué

camarchepas

XLDnaute Barbatruc

RONIBO

XLDnaute Impliqué

camarchepas

XLDnaute Barbatruc

RONIBO

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency