caractère "case à cocher" introuvable

[nospam-Awerel]

Bonjour,
J'ai un petit problème sur lequel je butte, et pour lequel je ne sais pas
s'il y a une solution :

Je voudrais, par macro, donner à une cellule une valeur du type :
Range("A1").Value = numero & " - " & "Cadres " & ... une case à cocher avec
ombrage supérieur droit,
qui provenant de la collection Windgings de Word et qui par macro Word ce
caractérise de la manière suivante :
Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3982,
Unicode:=True
je n'ai pas pu trouver ce caractère dans la collection Excel, le seul plus
proche étant Chr(127)

Si quelqu'un a une astuces pour contourner le problème...

Merci pour votre réflexion dans tous les cas !

Antoine

[docm]

Bonjour.

Je crois qu'il s'agit du caractère 114 ("r") de la police Windgings.

docm

Post by nospam-Awerel
Bonjour,
J'ai un petit problème sur lequel je butte, et pour lequel je ne sais pas
Range("A1").Value = numero & " - " & "Cadres " & ... une case à cocher avec
ombrage supérieur droit,
qui provenant de la collection Windgings de Word et qui par macro Word ce
Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3982,
Unicode:=True
je n'ai pas pu trouver ce caractère dans la collection Excel, le seul plus
proche étant Chr(127)
Si quelqu'un a une astuces pour contourner le problème...
Merci pour votre réflexion dans tous les cas !
Antoine

[nospam-Awerel]

bonjour , tout à fait, cela affiche le caractère r.
Mais ce que je voudais faire afficher n'est pas le r mais une case à cocher
(qui existe dans Word).
Un copier-coller de ce caractère de Word dans Excel permet bien de
l'afficher sous excel. En revanche, je n'ai pas trouver le moyen de le
programmer par macro !...
Merci de ton aide
Antoine

Post by docm
Bonjour.
Je crois qu'il s'agit du caractère 114 ("r") de la police Windgings.
docm

Post by nospam-Awerel
Bonjour,
J'ai un petit problème sur lequel je butte, et pour lequel je ne sais pas
Range("A1").Value = numero & " - " & "Cadres " & ... une case à cocher

avec

Post by nospam-Awerel
ombrage supérieur droit,
qui provenant de la collection Windgings de Word et qui par macro Word ce
Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3982,
Unicode:=True
je n'ai pas pu trouver ce caractère dans la collection Excel, le seul

plus

Post by nospam-Awerel
proche étant Chr(127)
Si quelqu'un a une astuces pour contourner le problème...
Merci pour votre réflexion dans tous les cas !
Antoine

[michdenis]

Bonjour Awerel,

voici quelques bidouilles ...............

Ceci te permet d'ouvrir la table des caractères spéciaux. :

Évidemment lorsque tu fais le copier dans une cellule, tu dois choisir la police de caractère appropriée de cette cellule.
'---------------------
Sub SpecialCharacter()

Dim Fichier As String

Fichier = "C:\WINDOWS\system32\charmap.exe"
Shell Fichier, vbNormalFocus

End Sub
'---------------------

Lorsque tu as identifier le caractère désiré, tu peux l'insérer par macro :
Pour connaître le caractère ascii de ce caractère : formule de cellule = Code(A1)

'-----------------------------
Sub InsérerSpecialCharacter()

Range("A1").Font.Name = "Wingdings 3" 'à déterminer
Range("A1").Value = Chr(219) 'à déterminer

End Sub
'-----------------------------

Et tu peux fixer un raccourci clavier en utilisant la fenêtre des macro Alt + F8 / options



Salutations!




"nospam-Awerel" <***@mageos.com> a écrit dans le message de news: ***@TK2MSFTNGP12.phx.gbl...
Bonjour,
J'ai un petit problème sur lequel je butte, et pour lequel je ne sais pas
s'il y a une solution :

Je voudrais, par macro, donner à une cellule une valeur du type :
Range("A1").Value = numero & " - " & "Cadres " & ... une case à cocher avec
ombrage supérieur droit,
qui provenant de la collection Windgings de Word et qui par macro Word ce
caractérise de la manière suivante :
Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3982,
Unicode:=True
je n'ai pas pu trouver ce caractère dans la collection Excel, le seul plus
proche étant Chr(127)

Si quelqu'un a une astuces pour contourner le problème...

Merci pour votre réflexion dans tous les cas !

Antoine

[PMO]

Bonjour,

Une piste avec le code suivant

'**********
Sub PMO()
Dim R As Range
Set R = Range("A1")
R.Value = "123" & " - " & "Cadres " & "r"
R.Characters(Start:=Len(R), Length:=1).Font.Name = "Wingdings"
End Sub
'**********

Cordialement.
--
PMO
Patrick Morange

Post by nospam-Awerel
Bonjour,
J'ai un petit problème sur lequel je butte, et pour lequel je ne sais pas
Range("A1").Value = numero & " - " & "Cadres " & ... une case à cocher avec
ombrage supérieur droit,
qui provenant de la collection Windgings de Word et qui par macro Word ce
Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3982,
Unicode:=True
je n'ai pas pu trouver ce caractère dans la collection Excel, le seul plus
proche étant Chr(127)
Si quelqu'un a une astuces pour contourner le problème...
Merci pour votre réflexion dans tous les cas !
Antoine

[nospam-Awerel]

Merci
C'est exactement ce que j'attendais!
L'intilulé exact de la cellule est en fait du type :
Nom de la socité & " - Cadres " & numéroducontratcadres & 'la case à cocher'
& " - Non Cadres " & numéroducontratnoncadres & 'la case à cocher'

Quand j'applique la solution (qui marche pourtant bien) à ce cas plus
précis,
la première case à cocher ne se met pas alors que la deuxième se met bien.
Aurais-tu l'astuce à ce cas plus précis?
Merci de ton aide
Antoine

Post by nospam-Awerel
Bonjour,
Une piste avec le code suivant
'**********
Sub PMO()
Dim R As Range
Set R = Range("A1")
R.Value = "123" & " - " & "Cadres " & "r"
R.Characters(Start:=Len(R), Length:=1).Font.Name = "Wingdings"
End Sub
'**********
Cordialement.
--
PMO
Patrick Morange

Post by nospam-Awerel
Bonjour,
J'ai un petit problème sur lequel je butte, et pour lequel je ne sais pas
Range("A1").Value = numero & " - " & "Cadres " & ... une case à cocher avec
ombrage supérieur droit,
qui provenant de la collection Windgings de Word et qui par macro Word ce
Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3982,
Unicode:=True
je n'ai pas pu trouver ce caractère dans la collection Excel, le seul plus
proche étant Chr(127)
Si quelqu'un a une astuces pour contourner le problème...
Merci pour votre réflexion dans tous les cas !
Antoine

[PMO]

Bonjour,

Code modifié prenant en compte les 2 cases à cocher.
Pour identifier l'emplacement de la 1ère case à cocher
il est impératif de faire précéder ET suivre d'un espace la
lettre "r" qui, en police Wingdings, représente une case à cocher.

'**********
Sub PMO2()
Dim R As Range
Dim i&
Set R = Range("A1")
'---- Dans la chaîne suivante le 1er "r" doit ----
'---- être précédé et suivi d'un espace pour ----
'---- pouvoir retrouver son adresse par la suite ----
R.Value = "Societe" & " - Cadres " & "numéroducontratcadres" & _
" r " & " - Non Cadres " & "numéroducontratnoncadres" & " r"
'---- Détermine l'adresse du premier "r" ----
i& = InStr(1, R.Value, " r ") + 1
'---- Change la police du 1er "r" ----
R.Characters(Start:=i&, Length:=1).Font.Name = "Wingdings"
'---- Change la police du 2ème "r" ----
R.Characters(Start:=Len(R), Length:=1).Font.Name = "Wingdings"
End Sub
'**********

Cordialement.
--
PMO
Patrick Morange

Post by nospam-Awerel
Merci
C'est exactement ce que j'attendais!
Nom de la socité & " - Cadres " & numéroducontratcadres & 'la case à cocher'
& " - Non Cadres " & numéroducontratnoncadres & 'la case à cocher'
Quand j'applique la solution (qui marche pourtant bien) à ce cas plus
précis,
la première case à cocher ne se met pas alors que la deuxième se met bien.
Aurais-tu l'astuce à ce cas plus précis?
Merci de ton aide
Antoine