Left(TextBox1.Value, 1).delete

[Temjeh]

Rebonjour encore Temjeh

J'aimerais si possible enlever la première lettre de textbox si c'est *

J'ai fait ceci:

Dim s
s = '*'
If Left(TextBox1.Value, 1) = s Then
'bug ici
Left(TextBox1.Value, 1).Clear
End If

Merci beaucoup

 

[PascalXLD]

Bonjour

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Left(Me.TextBox1.Text, 1) = '*' Then Me.TextBox1.Text = Right(Me.TextBox1, Len(Me.TextBox1) - 1)

End sub

Cela t'enlève l'étoile en début de ton textbox une fois que tu sors de celui-ci

Bon courage

 

[Temjeh]

Merci beaucoup
on peut se demander pourquoi?

Car pour surmonter un bug a la fermeture de Uf je met une * a un mot et je ne veut pas qu'a chaque fermeture en ajoute un

Merci encore et ptêtre la prochaine fois un peut plus vite j'ai quand même attendue 3minutes!!!!!



Merci Pascal
Temjeh