texte dans textbox

[rudymagny]

Rebonjour le forum,

une petite question au sujet d'insertion de texte dans userform:
En ce moment j'utilise ça:

Private Sub TextBox10_Change()
Dim Texte4 As String
Texte4 = TextBox10.Text
Select Case Len(Texte4)
Case 4, 7
Texte4 = Texte4 & '.'
End Select
TextBox10.Text = Texte4
End Sub

J'ai eu de l'aide sur XLD mais je ne me souviens plus et j'en suis désolé mais si la personne passe sur mon fil je me ferais le plaisir de noter son surnom dans mon fichier

Voilà donc ce petit code permet d'inserer en point dans mes textbox exemple:
XXXX.XX.XXXX

mais je voudrais qu'il me fasse:
TENP.XX.XXXX

donc je voudrais qu'en plus il m'insère TENP au début.
J'arrive po à le faire.

:angry:

Merci d'avance

 

[porcinet82]

re,

Et bien ce n'est pas moi qui t'avais proposé ca, j'en aurait été incapable, mais apparement j'ai réussit à le modifier pour que ca fasse ce que tu veux, donc tu pourras mettre mon nom dans ton fichier

Voici le code :

Private Sub TextBox10_Change()
Dim Texte4 As String

Texte4 = TextBox10.Text
Select Case Len(Texte4)
Case 2
    Texte4 = 'TENP.' & Texte4 & '.'
End Select
TextBox10.Text = Texte4
End Sub

@+

 

[rudymagny]

Merci porcinet82 mais ce n'est pas ce que je voudrais.

puisque la il faut que j'écrive 2 caractèe pour qu'il m'affiche 'TENP..'

Alors que moi je veux que directement ma textbox contienne:

TENP.

et je dois rentrer deux caractère et alors ma textbox de vient:
TENP.AA.

et je rentre encore des caractères:
TENP.AA.AAAA

il faut que je joue avec mon userform initialyze pour dire que ma textbox10.value='TENP' et qu'ensuite j'utilise l'attribut change de ma textbox mais ç marche pas non plus! :angry:

Je vais chercher mais ça fait un petit moment que ça me traine dans la tête et vois pas la soluce

merci

 

[porcinet82]

re,

Puisque tu dois mettre le nom de celui qui trouve la soluce dans ton fichier je me suis dit qu'il fallait que je me creuse un peu la tete, ce qui a été vite fais puisqu'il n'y a pas grand chose dedans .

Donc je t'ai trouvé un truc qui a l'air de fonctionner (si cette fois j'ai bien compris, mais rien n'est moins sur)

Voici le code :

Private Sub TextBox10_Change()
Dim Texte4 As String

If TextBox1.Value = 'TENP' Then Exit Sub
Texte4 = TextBox10.Text
Select Case Len(Texte4)
Case 5
    Texte4 = Left(Texte4, 4) & '.' & Mid(Texte4, 5, Len(Texte4) - 4)
Case 7
    Texte4 = Texte4 & '.'
End Select
TextBox10.Text = Texte4
End Sub

Private Sub UserForm_Initialize()
    TextBox1.Value = 'TENP'
End Sub

Tiens moi au courant,

@+

 

[rudymagny]

Ta tête n'est pas si vide ke ça puisque tu as bien compris et même trouvé ce que je cherchais!!

Nickel, merci pour le temps que tu as passé la dessus!
merci et bonne soirée porcinet82