Discussion :

[PaulG2B]

Bonjour,

Je ne pense pas que l'intitulé de ma question soit vraiment le reflet de ma question ... voici des informations supplémentaires.

Via excel je met en forme un document word (police Verdana) et je dois parfois ajouter une ligne de ce type :

Dégustation demandée par le responsable de l'essai ............. Case à cocher

Les points ........ sont une tabulation Chr(9) cela ne pose pas de problème. C'est la case à cocher qui me pose souci car elle n'existe pas en Verdana !

Je travaille sur la fonction suivante sans succès, je peux utiliser With car la variable carac n'est pas un objet. J'ai essayé comme là en copier un symbole case à cocher dans une cellule ... rien n'y fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
'--- Ajout des dégustations
For y = 3 To 11
Dim form As String
Dim carac As Variant
carac = Cells(1, 26).Value
form = "Dégustation demandée par le responsable de l'essai" & Chr(9) & carac
    champrecherche = Worksheets(2).Cells(y, 10).Value
          If Worksheets(2).Cells(y, 16).Value = "" Then
              chaineremplacement = ""
          Else
              chaineremplacement = form
          End If
    RemplacementWord
Next

Il faudrait que je commence avec du Verdana et finisse avec du Wingdings

Mais sans doute y-a-t-il une autre issue ? un petit coup de pouce serait le bienvenue.

Ou alors est-il possible de mettre toutes les lignes possibles en place dans word puis de les supprimer depuis excel ?

Merci.

[Patrice740]

Bonjour,

Pour la case à cocher tu peux utiliser CHR$(168) en police Wingdings et CHR$(253) ou CHR$(254) pour la case cochée.

Mais Verdana étant une police Unicode tu doit pouvoir employer CHRW$(9744) pour la case à cocher et CHRW$(9745) ou CHRW$(9746) pour la case cochée (dans Word Alt+9744 donne bien une case à cocher)

[PaulG2B]

Bonjour,

Pour la case à cocher tu peux utiliser CAR(168) en police Wingdings et CAR(253) ou CAR(254) pour la case cochée.

Bonjour,
Je vous remercie cela effectivement fonctionne très bien sous Excel mais ce n'est pas là le problème. Je veux via vba le transposer dans un document Word.
Paul.

[Patrice740]

Je veux via vba le transposer dans un document Word.

Dans Excel sans changer de police :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Test()
  Range("A1").Value = "Dégustation demandée par le responsable de l'essai" & Chr(9) & ChrW(9744)
End Sub

ça doit aussi marcher dans Word.

[PaulG2B]

Un grand merci c'est exactement ça !

Encore un nouveau truc, mais où trouve-t-on le détails de ces codes ça ouvre de nombreuses possibilités.

[Patrice740]

mais où trouve-t-on le détails de ces codes ça ouvre de nombreuses possibilités.

Ici : Code Charts § Emoji & Pictographs / Miscellaneous Symbols (note : les codes sont en Hexa)