Left(TextBox1.Value, 1).delete

Temjeh · 6 Avril 2005

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 · 6 Avril 2005

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 · 6 Avril 2005

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

Left(TextBox1.Value, 1).delete

Temjeh

Guest

PascalXLD

XLDnaute Barbatruc

Temjeh

Guest

Discussions similaires