Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel caractère "case à cocher" introuvable

caractère "case à cocher" introuvable

6 réponses
Avatar
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
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
docm
Bonjour.

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

docm

"nospam-Awerel" a écrit dans le message news:

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





Avatar
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
"docm" a écrit dans le message de news:

Bonjour.

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

docm

"nospam-Awerel" a écrit dans le message news:

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









Avatar
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:WINDOWSsystem32charmap.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" a écrit dans le message de news:
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
Avatar
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



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






Avatar
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
"PMO" <patrickPOINTmorangeAROBASElapostePOINTnet> a écrit dans le message de
news:
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



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








Avatar
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



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