œ dans une textbox

[Bens7]

Bonjour à tous j'ai chercher partout sur le net sans réponse !
Voilà c'est simple :
Textbox1="bœuf"
Bah le œ n'apparaît pas, penssant un problème de police j'ai changer dans les.propriétés de.la.textbox la police, alors la ça marche .mais en fermant le fichier et réouvrir ça disparaît....
(Bien. sur mon fichier comporte 70 textbox donc il faut une vrai solution resolu svp )

 

[Bens7]

Re : œ dans une textbox

Bon désoler j'ai essayé il se passe rien on click dessus on le voir on sort on le voie plus ... (Meme sans code ça fait pareil)

 

[job75]

Re : œ dans une textbox

Re,

Pour entrer le caractère "œ" dans la TextBox il suffit d'appuyer simultanément sur les touches Alt0156

Pour ceux qui ne connaissent pas utiliser ces codes :

Dim flag As Boolean 'mémorise la variable

Private Sub TextBox1_GotFocus()
TextBox1 = Replace(TextBox1, "oe", Chr(156))
End Sub

Private Sub TextBox1_Change()
If Not flag Then TextBox1_GotFocus
End Sub

Private Sub TextBox1_LostFocus()
flag = True
TextBox1 = Replace(TextBox1, Chr(156), "oe")
flag = False
End Sub

A+

 

[job75]

Re : œ dans une textbox

Re,

Je joins le fichier au cas où...

A+

 

[Bens7]

Re : œ dans une textbox

Désolé mais ça écrit "oe" pas œ sinon j'aurais écrit direct boeuf au lieu de bœuf....et la plus de souci ....

 

[job75]

Re : œ dans une textbox

Désolé mais ça écrit "oe" pas œ

Quand on est en dehors de la TextBox le "e" du caractère 156 ne s'écrit pas, c'est tout, faut vivre avec 🙄

C'est pourquoi il faut alors remplacer "œ" par "oe".

A+

 

[Bens7]

Re : œ dans une textbox

J'ai bien vu d'ou mon post... Sinon j'aurais juste remplacer le œ par oe mais c'est impossible qu'une texte box ne peux pas prendre en charge ce caractère vous êtes en train de me dire que ya pas de solution...? (Échec et mat excel ???)
Je doit envoyer des formulaires à des centaines de clients vous imaginer le manque de professionnalisme si au lieu de bœuf je leur marque boeuf ça fait vraiment pas pro j'arrive pas à me faire à l'idée que le alt 156 ne peux être afficher correctement vu que lorsqu'on change la police dans les paramètres il s'affiche ... C'est donc qu'il existe ...

 

[eriiic]

Re : œ dans une textbox

En les mettant dans un Frame c'est bon.

 

[job75]

Re : œ dans une textbox

Re,

Bravo eriiiic, il n'y a sans doute pas d'autre solution.

A+

 

[Bens7]

Re : œ dans une textbox

Bon alors bravo le seul problème c'est que c'est inutilisable pour moi en fait ma textbox se trouve sur une image jpg ... Et malheureusement les propriétés d'une frame ne permettent pas la transparence et la supression du cadre de contour

 

[eriiic]

Re : œ dans une textbox

Tu peux tout mettre en blanc, sans bordure et le réduire au minimum.
C'est mon dernier mot jean-pierre

 

[Bens7]

Re : œ dans une textbox

Oui je sais mais comme dit les textbox se trouve sur une image donc... Inutilisable sans transparence

 

[eriiic]

Re : œ dans une textbox

Ok, ne regarde surtout pas le fichier, pas la peine

 

[Bens7]

Re : œ dans une textbox

Loll pas sur PC je voie demain matin

 

[job75]

Re : œ dans une textbox

Bonjour Bens7, eriiiic, le forum,

Et pourquoi ne pas faire d'une pierre deux coups en chargeant le fichier .jpg dans la propriété Picture du Frame ?

Fichier (2).

A+

 

[job75]

Re : œ dans une textbox

Re,

Si vous avez des difficultés pour créer les TextBoxes dans le Frame, inspirez-vous de ceci :

Private Sub CommandButton1_Click()
Dim i, h, w
With Frame1
  '---RAZ---
  For i = .Controls.Count - 1 To 0 Step -1
    .Controls.Remove i
  Next
  '---création de 5 TextBoxes---
  h = 16
  w = .Width - 14
  For i = 0 To 4
    With .Controls.Add("Forms.TextBox.1")
      .Left = 6
      .Top = 6 + i * (h + 6)
      .Height = h
      .Width = w
    End With
  Next
End With
End Sub

Fichier (3).

A+