Test si "=" mettre "'="

[Temjeh]

Bonsoir à tous

Après plusieurs recherche sans résultats je solicite votre aide:

Je veux tester mon textbox avant de valider par bouton.

Si le premier caractère est = il met un appostrophe avant pour rendre une formule en lecture seule.

J'ai débuter avec ceci mais il y a erreur(2èeme ligne):

If Left(TextBox1, 1) = '=' Then
Left(TextBox1, 1) = ''='
End If

Merci beaucoup

Temjeh

 

[Temjeh]

Merci j'ai enfin trouvé:


If Left(TextBox1, 1) = '=' Then
TextBox1 = Mid(TextBox1, 1, 0) & ''' & Mid(TextBox1, 1, Len(TextBox1))
End If

Temjeh

 

[Mytå]

Salut Temjeh

Ou tous simplement

If Left(TextBox1, 1) = '=' Then TextBox1 = ''' & Textbox1

Myta

 

[Temjeh]

Rebonsoir

Oui merci Mytå plus simple

Temjeh