Format de textbox avec insertion caractere special

[fhoest]

Bonjour,
voilà, après plusieurs tentative je n'arrive pas a insérer a deux reprise consécutive un symbole dans une textbox tout en changeant de format entre temps
si toute fois une âme charitable aurais une solution pour moi ,cela serait super
voir fichier joint pour une meilleur compréhension.

Merci d'avance.

 

[Pierrot93]

Re : Format de textbox avec insertion caractere special

Bonjour,

peut être enregistrer ton fichier en xls, perso pas 2007 et avec les infos données vois pas trop le problème...

bonne journée
@

 

[PMO2]

Re : Format de textbox avec insertion caractere special

Bonjour à tous,

Effectivement, je rencontre le même problème sous XP Excel 2003.
On dirait qu'Excel ne veut pas réagir au changement de Font.Name. Cela semble être une de ses absences.

Pour contourner voici une bidouille :
j'ai construit une 2ème TextBox qui se superpose exactement sur la 1ère et j'ai changé le code comme suit

Private Sub CommandButton1_Click()
TextBox1.Visible = True
TextBox2.Visible = False
TextBox1 = [a1]
End Sub

Private Sub CommandButton2_Click()
TextBox1.Visible = False
TextBox2.Visible = True
TextBox2 = 1
End Sub

Private Sub CommandButton3_Click()
If TextBox1.Visible Then
  MsgBox "Le format de police  textbox1 = " & TextBox1.Font.Name
ElseIf TextBox2.Visible Then
  MsgBox "Le format de police  textbox2 = " & TextBox2.Font.Name
End If
End Sub

Private Sub UserForm_Initialize()
TextBox1.Font.Name = "Wingdings"
TextBox2.Font.Name = "Tahoma"
TextBox2.Visible = False
End Sub

Cordialement.

PMO
Patrick Morange

 

[JNP]

Re : Format de textbox avec insertion caractere special

Bonjour le fil ,
Je pense que le problème se situe non pas au niveau du .Name, mais au niveau de la hauteur d'ASCII ...
Ta flèche est en 242, or si un TextBox ne supporte pas un ASCII supérieur à 255, j'ai l'impression que sur des fontes spéciales, il supporte mal au delà des 128 (du fait, la WingDings n'est codée que de 1 à 255... alors que la Tahoma est codée sur plusieurs milliers ...
Si tu testes le code joint, tu verras que l'erreur ne se produit pas dans ton USF ...
Malheureusement, dans les Wingdings (1 à 3), Webdings, ZaftDingbats, je n'ai pas trouvé d'ASCII de 1 à 128 représentant une flèche vers le bas ...

Dim I As Integer
Private Sub CommandButton1_Click()
TextBox1.Font.Name = "Wingdings"
TextBox1 = Chr(I)
I = I + 1
End Sub
Private Sub CommandButton2_Click()
TextBox1.Font.Name = "Tahoma"
TextBox1 = I
End Sub
Private Sub CommandButton3_Click()
MsgBox "Le format de police  textbox1 = " & TextBox1.Font.Name
End Sub
Private Sub UserForm_Initialize()
I = 33
End Sub

Bon courage

 

[fhoest]

Re : Format de textbox avec insertion caractere special

Bonsoir,
@ Pierrot93,je vais mettre une version 2003 demain,en attendant merci,
@ PM02,il est vrai que la solution que tu proposes j'y avait pensé mais étant donner que je doit gérer plusieurs textbox et des déplacement de textbox cela multipliera encore le nombre de textbox cependant je te remercie,si je ne trouve pas de solution j'opterais tout de même pour cette solution,
@JNP,merci pour les explications je testerais le code demain,(je rentre a peine du TAF )
Très bonne soirée et encore merci,
A bientôt.

 

[fhoest]

Re : Format de textbox avec insertion caractere special

Bonjour,
avant tout encore merci pour votre implication,
Heureka j'ai trouvé la solution,en fait il faut ajouter la commande :

TextBox1.font.charset=2

pour que le symbole réapparaisse correctement dans la textbox,
cela pourra peut être servir a d'autre personne on ne sait jamais...
exemple en pj
A bientôt.