Pique Coeur Carreau Trèfle en VBA

[marmotte18]

Bonjour,

Comment fait-on pour introduire dans du code VBA :

- le symbole pique en noir
- le symbole coeur en rouge
- le symbole carreau en rouge
- le symbole trèfle en noir

afin qu'il soit reporté dans une cellule d'une feuille Excel avec la police arial 14

Merci par avance

 

[JCGL]

Re : Pique Coeur Carreau Trèfle en VBA

Bonjour à tous,

Il me semble que ces symboles ne sont que dans la police "Symbol"

A+ à tous

 

[marmotte18]

Re : Pique Coeur Carreau Trèfle en VBA

Bonjour JCGL,

Je ne suis pas tout à fait d'accord avec toi, car je peux les insérer en Arial 14 directement sur la feuille de calculs.

Par contre, je ne sais pas faire avec du code VBA. A moins de faire du copier coller d'une cellule sur une autre.

 

[JCGL]

Re : Pique Coeur Carreau Trèfle en VBA

Bonjour à tous,

Peux-tu me donner le code ASCII (quatre chiffres) sous Arial ?

A+ à tous

 

[marmotte18]

Re : Pique Coeur Carreau Trèfle en VBA

JCGL,

Il n'y a pas de code ASCII pour ces symboles mais des unicodes (hexadécimal)

- pique = 2660
- coeur = 2665
- carreau = 2666
- trèfle = 2663

 

[hoerwind]

Re : Pique Coeur Carreau Trèfle en VBA

Salut JGCL,

Les raccourcis clavier : de Alt+4 à Alt+7.

 

[marmotte18]

Re : Pique Coeur Carreau Trèfle en VBA

Bonjour hoerwind,

Ta proposition ne fonctionne pas. Quand on fait Alt+4 directement dans VBA, le caractère obtenu dans le code est un point d'interrogation.

Merci tout de même pour ta réponse.

 

[JCGL]

Re : Pique Coeur Carreau Trèfle en VBA

Bonjour à tous,
Salut HoerWind,

Peux-tu essayer avec :

StrConv("LeCode",vbUnicode)

ou

ChrW(&H2660)

A+ à tous

 

[bof]

Re : Pique Coeur Carreau Trèfle en VBA

bonjour,
Chez moi ça donne 2215 à 2218...

Sub test()
For i = 0 To 3
s$ = ChrW(2215 + i)
Cells(i + 1, 1) = s
Next
End Sub

Mais tu peux modifier avec

For i = 0 to 100...

A+

 

[JCGL]

Re : Pique Coeur Carreau Trèfle en VBA

Bonjour à tous,

Pour le Pique Rouge Arial 14 en A2 :

Sub Test()
    Range("A2").Select
    Selection.Value = ChrW(&H2660)
    With Selection.Font
        .Name = "Arial"
        .Size = 14
        .ColorIndex = 3
    End With
End Sub

A+ à tous

 

[bof]

Re : Pique Coeur Carreau Trèfle en VBA

bonjour JCGL,
Curieusement les deux cohabitent parfaitement malgré le décalage...
Peux-tu expliquer le &H ?

A+

 

[JCGL]

Re : Pique Coeur Carreau Trèfle en VBA

Bonjour à tous,
Salut Bof,

Peut-être pour signifier le caractère Hexadécimal...

A vérifier 🙄

A+ à tous

 

[marmotte18]

Re : Pique Coeur Carreau Trèfle en VBA

Bonjour tout le monde,

JCGL : ton code pour apporter les symboles pique, coeur, carreau, trèfle fonctionne très bien et je t'en remercie.

Exemple:

Sub PCKT()
    Range("A1") = ChrW(&H2660) 'Pique
    Range("A1").Font.ColorIndex = 0
    
    Range("A2") = ChrW(&H2665) 'Coeur
    Range("A2").Font.ColorIndex = 3
    
    Range("A3") = ChrW(&H2666) 'Carreau
    Range("A3").Font.ColorIndex = 3
    
    Range("A4") = ChrW(&H2663) 'Trèfle
    Range("A1").Font.ColorIndex = 0
End Sub

 

[JCGL]

Re : Pique Coeur Carreau Trèfle en VBA

Bonjour à tous,

Pense à modifier le dernier A1 en A4

A++
A+ à tous

 

[Staple1600]

Re : Pique Coeur Carreau Trèfle en VBA

Bonsoir à tous


Pour le fun (et histoire de passer le temps )

Sub a()
Dim i&, t: t = Array(0, 5, 6, 3)
[A1,A4].Font.ColorIndex = 0: [A2:A3].Font.ColorIndex = 3
For i = 0 To 3
Cells(i + 1, 1) = ChrW(CLng("&H266" & t(i)))
Next i
End Sub

EDITION: Bonsoir JCGL ( je m'en allais t'envoyer un MP pour te répondre, mais je ne suis pas sur ta liste blanche, d'ou cette édition en guise de simili MP )


EDITION 2: marmotte18
J'ai pris ma douche, mon caleçon est propre, et malgré cette hygiène indigne du 20ième siècle, tu ne me salues pas 🙁
Décidément The Spirit of XLD is really so far from VBA
(Encore une raison de plus de rejoindre mon hermitage)

J'aurai au moins eu un bonjour de ta part ici
(Va comprendre Charles ... )