En utilisant la touche ALT puis sans la lacher, en tapant une valeur entre 1
et 255 sur le clavier numérique on obtient un caractère spécial (ALT+1 donne
un émoticone qui sourit par exemple)
Quel est le code en VBA qui traduit cette action ?
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
LSteph
Bonjour shadow, normalement amha c'est pas vraiment fait pour et vba sort un carré ou un point d'interrogation mais en chipotant ceci avec la police terminal :
'**** Sub Achrspec() With ActiveCell .Font.Name = "Terminal" .Font.Size = 12 .Value = Chr(InputBox("numero chr: ")) End With End Sub '****
'lSteph
"shadow" a écrit dans le message de news:
Hello,
En utilisant la touche ALT puis sans la lacher, en tapant une valeur entre 1 et 255 sur le clavier numérique on obtient un caractère spécial (ALT+1 donne un émoticone qui sourit par exemple)
Quel est le code en VBA qui traduit cette action ?
Merci
@+
Bonjour shadow,
normalement amha c'est pas vraiment fait pour
et vba sort un carré ou un point d'interrogation
mais en chipotant ceci avec la police terminal :
'****
Sub Achrspec()
With ActiveCell
.Font.Name = "Terminal"
.Font.Size = 12
.Value = Chr(InputBox("numero chr: "))
End With
End Sub
'****
'lSteph
"shadow" <shadow@discussions.microsoft.com> a écrit dans le message de news:
0BAD8B2C-A6E6-4D33-9000-0AB6C7A20CA5@microsoft.com...
Hello,
En utilisant la touche ALT puis sans la lacher, en tapant une valeur entre
1
et 255 sur le clavier numérique on obtient un caractère spécial (ALT+1
donne
un émoticone qui sourit par exemple)
Quel est le code en VBA qui traduit cette action ?
Bonjour shadow, normalement amha c'est pas vraiment fait pour et vba sort un carré ou un point d'interrogation mais en chipotant ceci avec la police terminal :
'**** Sub Achrspec() With ActiveCell .Font.Name = "Terminal" .Font.Size = 12 .Value = Chr(InputBox("numero chr: ")) End With End Sub '****
'lSteph
"shadow" a écrit dans le message de news:
Hello,
En utilisant la touche ALT puis sans la lacher, en tapant une valeur entre 1 et 255 sur le clavier numérique on obtient un caractère spécial (ALT+1 donne un émoticone qui sourit par exemple)
Quel est le code en VBA qui traduit cette action ?
Merci
@+
Trirème
Hello Shadow
As tu essayer l'équivalent de la fonction CAR() ? C'est à dire : ActiveCell.FormulaR1C1 = "=CHAR(code)" où code serait le numéro entre 1 et 255 qui t'intéresse. Par exemple 201 pour le 'É'. De plus il faut choisir ensuite la police qui va bien.
Mais tu peux avoir les 3 smileys de base avec les lettres J, K et L en police Wingdings. Par contre le smiley avec ALT + 1... arrive pas.
Sais pas si ça va t'aider :-(
Cordialement, Trirème
Hello,
En utilisant la touche ALT puis sans la lacher, en tapant une valeur entre 1 et 255 sur le clavier numérique on obtient un caractère spécial (ALT+1 donne un émoticone qui sourit par exemple)
Quel est le code en VBA qui traduit cette action ?
Merci
@+
Hello Shadow
As tu essayer l'équivalent de la fonction CAR() ?
C'est à dire :
ActiveCell.FormulaR1C1 = "=CHAR(code)" où code serait le numéro entre 1
et 255 qui t'intéresse. Par exemple 201 pour le 'É'.
De plus il faut choisir ensuite la police qui va bien.
Mais tu peux avoir les 3 smileys de base avec les lettres J, K et L en
police Wingdings.
Par contre le smiley avec ALT + 1... arrive pas.
Sais pas si ça va t'aider :-(
Cordialement,
Trirème
Hello,
En utilisant la touche ALT puis sans la lacher, en tapant une valeur entre 1
et 255 sur le clavier numérique on obtient un caractère spécial (ALT+1 donne
un émoticone qui sourit par exemple)
Quel est le code en VBA qui traduit cette action ?
As tu essayer l'équivalent de la fonction CAR() ? C'est à dire : ActiveCell.FormulaR1C1 = "=CHAR(code)" où code serait le numéro entre 1 et 255 qui t'intéresse. Par exemple 201 pour le 'É'. De plus il faut choisir ensuite la police qui va bien.
Mais tu peux avoir les 3 smileys de base avec les lettres J, K et L en police Wingdings. Par contre le smiley avec ALT + 1... arrive pas.
Sais pas si ça va t'aider :-(
Cordialement, Trirème
Hello,
En utilisant la touche ALT puis sans la lacher, en tapant une valeur entre 1 et 255 sur le clavier numérique on obtient un caractère spécial (ALT+1 donne un émoticone qui sourit par exemple)
Quel est le code en VBA qui traduit cette action ?
Merci
@+
shadow
Hello,
Désolé pour le retard et merci pour vos réponses, je vais essayer tout ça @+
Hello Shadow
As tu essayer l'équivalent de la fonction CAR() ? C'est à dire : ActiveCell.FormulaR1C1 = "=CHAR(code)" où code serait le numéro entre 1 et 255 qui t'intéresse. Par exemple 201 pour le 'É'. De plus il faut choisir ensuite la police qui va bien.
Mais tu peux avoir les 3 smileys de base avec les lettres J, K et L en police Wingdings. Par contre le smiley avec ALT + 1... arrive pas.
Sais pas si ça va t'aider :-(
Cordialement, Trirème
Hello,
En utilisant la touche ALT puis sans la lacher, en tapant une valeur entre 1 et 255 sur le clavier numérique on obtient un caractère spécial (ALT+1 donne un émoticone qui sourit par exemple)
Quel est le code en VBA qui traduit cette action ?
Merci
@+
Hello,
Désolé pour le retard et merci pour vos réponses, je vais essayer tout ça
@+
Hello Shadow
As tu essayer l'équivalent de la fonction CAR() ?
C'est à dire :
ActiveCell.FormulaR1C1 = "=CHAR(code)" où code serait le numéro entre 1
et 255 qui t'intéresse. Par exemple 201 pour le 'É'.
De plus il faut choisir ensuite la police qui va bien.
Mais tu peux avoir les 3 smileys de base avec les lettres J, K et L en
police Wingdings.
Par contre le smiley avec ALT + 1... arrive pas.
Sais pas si ça va t'aider :-(
Cordialement,
Trirème
Hello,
En utilisant la touche ALT puis sans la lacher, en tapant une valeur entre 1
et 255 sur le clavier numérique on obtient un caractère spécial (ALT+1 donne
un émoticone qui sourit par exemple)
Quel est le code en VBA qui traduit cette action ?
Désolé pour le retard et merci pour vos réponses, je vais essayer tout ça @+
Hello Shadow
As tu essayer l'équivalent de la fonction CAR() ? C'est à dire : ActiveCell.FormulaR1C1 = "=CHAR(code)" où code serait le numéro entre 1 et 255 qui t'intéresse. Par exemple 201 pour le 'É'. De plus il faut choisir ensuite la police qui va bien.
Mais tu peux avoir les 3 smileys de base avec les lettres J, K et L en police Wingdings. Par contre le smiley avec ALT + 1... arrive pas.
Sais pas si ça va t'aider :-(
Cordialement, Trirème
Hello,
En utilisant la touche ALT puis sans la lacher, en tapant une valeur entre 1 et 255 sur le clavier numérique on obtient un caractère spécial (ALT+1 donne un émoticone qui sourit par exemple)
Quel est le code en VBA qui traduit cette action ?
