Afficher une police en VBA

Bonjour a toutes et tous, forum bonjour,

Voila je souhaiterai afficher une police de caractères avec les codes ascii, je voudrai le faire en vba j'ai essayer mais voyez je foire complètement sur ce coup la.

merci de votre aide et de votre temps et bonne fin d'après midi a vous.

Raymond

Option Explicit
'*** affichage police de caracteres WINGDINGS
Sub Test()
Dim Cpt As Integer, Lig As Integer, Col As Integer
Col = 1
'[A1:V25].Value = ""

For Cpt = 1 To 255
Cells(Lig + Cpt, Col) = Cpt

If Cpt = 25 Then Lig = -25: Col = 3
If Cpt = 50 Then Lig = -50: Col = 5
If Cpt = 75 Then Lig = -75: Col = 7
If Cpt = 100 Then Lig = -100: Col = 9
If Cpt = 125 Then Lig = -125: Col = 11
If Cpt = 150 Then Lig = -150: Col = 13
If Cpt = 175 Then Lig = -175: Col = 15
If Cpt = 200 Then Lig = -200: Col = 17
If Cpt = 225 Then Lig = -225: Col = 19
If Cpt = 250 Then Lig = -250: Col = 21

Next Cpt
End Sub

'Public Function CodeASC(Valeur As String) As Integer
'CodeASC = Asc(Valeur)
'End Function

Bonsoir

Si j'ai compris, ce que tu veux faire, tu dois commencer la liste des codes ascii à 32

(Les codes ASCII inférieurs correspondent à des codes de contrôle : tabulation, saut de page, saut de ligne ....)

Essaie ce code

Cordialement

Option Explicit
'*** affichage police de caracteres WINGDINGS
Sub Test()
Dim Cpt As Integer, Lig As Integer, Col As Integer
Col = 1
'[A1:V25].Value = ""

'For Cpt = 1 To 255
Lig = -25
Col = 3
For Cpt = 32 To 255
With Cells(Lig + Cpt, Col)
    .Value = Chr(Cpt)
    .Font.Name = "Wingdings"
'    .Font.Name = "Arial"
    .Font.Size = 11
End With

'If Cpt = 25 Then Lig = -25: Col = 3
If Cpt = 50 Then Lig = -50: Col = 5
If Cpt = 75 Then Lig = -75: Col = 7
If Cpt = 100 Then Lig = -100: Col = 9
If Cpt = 125 Then Lig = -125: Col = 11
If Cpt = 150 Then Lig = -150: Col = 13
If Cpt = 175 Then Lig = -175: Col = 15
If Cpt = 200 Then Lig = -200: Col = 17
If Cpt = 225 Then Lig = -225: Col = 19
If Cpt = 250 Then Lig = -250: Col = 21

Next Cpt
End Sub

Bonsoir,

Bonsoir, Demeb

D'après ta vérité vraie (les caractères ne commencent qu'au code 32)

un petit code, à adapter....

Sub remplir()
Dim Lig As Byte, Col As Byte
Dim I As Integer
Application.Calculation = xlCalculationManual
Cells.Clear
Lig = 1: Col = 1
For I = 33 To 255
    Cells(Lig, Col) = I
    With Cells(Lig, Col + 1)
        .FormulaR1C1 = "=codechr(RC[-1])"
        .Font.Name = "Wingdings"
    End With
    Lig = Lig + 1
    If (I - 32) Mod 25 = 0 Then Lig = 1: Col = Col + 2
Next I
With ActiveSheet.UsedRange
    .EntireColumn.ColumnWidth = 5
    .Borders.LineStyle = xlContinuous
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlBottom
    .Font.Size = 12
End With
Application.Calculation = xlCalculationAutomatic
End Sub
Public Function Codechr(Valeur As Range)
Codechr = Chr(Valeur)
End Function

Bonjour a toutes et tous, Bonjour forum

Bonjour Demed

Merci pour la réponse et le code, ca affiche les caractères MAIS plus les chiffres c'est décaler en colonne avec l'affichage des chiffres et des caractères.

Bonjour Cousinhub

Merci également a toi pour le code MAIS ca m'affiche QUE des caractères "ciseaux"

Suis sur excel 2007

Merci a vous, je vous souhaite un bon W-end avé le soleil, bonne journée

Raymond

Bonjour à tous,

Qu'entends-tu par caractères "ciseaux" raymond?

Bonjour vba-new

a la place d'afficher les bons caractères ca m'affiche pour etre précis 255-33=222 caractères représentant un ciseau (paire de ciseaux)

Voila merci pour ta réponse, bonne journée

Raymond

Re,

Regarde ce que j'ai avec la macro de cousinhub raymond :

Pour ajouter la macro, es-tu allé dans l'éditeur visual basic -> Inséré un module puis copié le code de cousinhub?

Re j'ai bien sur fait le code de cousinhub qui fonctionne

bon je vais regarder ca de plus près en debut d'apres midi, j'ai RDV ce matin, peut etre c'est moi qui déconne ou excel 2007

te tient au courant dès que possible, merci tout de mème, c'est sympa

a plus tard faut que j'y go

Raymond

Re

je viens de refaire un essai avec le code de cousinhub j'ai fait une capture d'ecran de ce que j'obtiens surement une incompatibilité avec excel 2007

regarde la capture et dit moi svp

merci a plus tard

https://www.excel-pratique.com/~files/doc2/llxfUCaractere.jpg

raymond

Bonjour

Tu a bien mis la macro dans un module, pas dans le vba d'une feuille, car il y a une fonction

Bonjour a tous, forum

Merci a tous, j'ai tout repris a zéro et cette fois ca fonctionne bien grace a votre aide commune.

Je vais pouvoir utiliser a ma guise, encore un grand, grand MERCI a vous tous.

je vous souhaitent un excellent W-end

Raymond