XL 2016 ajout d'un symbol dans un textbox

fred19732

XLDnaute Nouveau
Bonjour,

Je vous explique mon problème.
j'ai un useform dans lequel j'ai deux texbox 1 & 2 et un bouton

je voudrais trouver le moyen de pouvoir insérer, par exemple une flèche, en plein milieu du texte que je tape dans l'une ou l'autre des textbox, en cliquant sur le bouton. après avoir cliqué, je dois pouvoir continuer à taper.
par exemple : je tape le texte "Bonjour, aujourd’hui on observe une " (insertion de la flèche vers le haut symbolisant l'augmentation)"des températures"

Je ne vois pas du tout comment faire. j'ai essayé d'utiliser le ActiveControl, mais je ne dois pas savoir comment l’utiliser correctement

Par avance merci à tous de votre aide.

Cordialement
 
Solution
Dans un UserForm le caractère unicode s'inscrit bien, voyez le fichier joint et ces macros :
VB:
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
TextBox1 = TextBox1 & " " & ChrW(&H2191)
End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
TextBox2 = TextBox2 & " " & ChrW(&H2191)
End Sub
Salut Eric C

job75

XLDnaute Barbatruc
Bonjour fred19732,

On peut entrer des caractères unicodes dans une cellule, pas dans une TextBox, testez :
VB:
Sub Test()
ActiveCell = ChrW(&H2191)
TextBox1 = ChrW(&H2191)
End Sub
Cela dit si l'on clique dans la TextBox le caractère apparaît...

A+
 

Eric C

XLDnaute Barbatruc
Bonsoir le forum
Bonsoir fred, bonsoir job75

Vraiment tiré par les cheveux. Il est à noter qu'une fois la flèche insérée, il faut reprendre le focus du TextBox pour la poursuite du texte..
VB:
Private Sub CommandButton1_Click()
TextBox1.Text = TextBox1 & ChrW(&H2191) & ""
End Sub
Bonne soirée à toutes & à tous
@+ Eric c
 

job75

XLDnaute Barbatruc
Dans un UserForm le caractère unicode s'inscrit bien, voyez le fichier joint et ces macros :
VB:
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
TextBox1 = TextBox1 & " " & ChrW(&H2191)
End Sub

Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Cancel = True
TextBox2 = TextBox2 & " " & ChrW(&H2191)
End Sub
Salut Eric C
 

Pièces jointes

  • Unicode(1).xlsm
    20.5 KB · Affichages: 12

fred19732

XLDnaute Nouveau
Bonjour et merci pour le fichier Unicode. c'est un bon début pour moi.
Après il va falloir que je trouve le moyen de pouvoir insérer des caractères unicodes différents. je voudrais pouvoir insérer un caractère unicode à partir d'une liste de choix (javais imaginé avoir une série de bouton avec différents caractères et lorsque l'on clique sur un bouton , ca met le caractère dans le textbox ou on écrivait, mais ça peut être dans plusieurs textbox, donc il doit y avoir une histoire de SETFOCUS la dedans...)
mais ca n'était qu'une imagination, reste la mise en pratique.

En tous les cas merci à tous pour vos réponses.
 

Discussions similaires

Statistiques des forums

Discussions
312 152
Messages
2 085 787
Membres
102 973
dernier inscrit
docpod