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