[VBA] - Probleme de caractères

Question

Bonjour, 

J'ai un bout de code qui fonctionne, mais pas comme je veux, le probleme se situe ligne 1 dans ma condition 
comment dire que si ma textbox comporte que 5 caractère alors on continue,parce que dans le code ci-dessous si j'en ai + de 5 alors on continue, moi j'en veux que 5, pas 4 ni 6, mais 5 

1 - If TextBoxReferenceProduit.Value = Left(TextBoxReferenceProduit.Value, 5) Then 
2 - .Value = "'" & Left(LTrim(UserForm2.TextBoxReferenceProduit.Value), 5) + UserForm2.TextBoxVersion.Value + 
3- UserForm2.TextBoxIndice.Value + UserForm2.TextBoxSup.Value 'Gestion du zéro 
4 - End If 

Quelqu'un aurait une idée s'il vous plait 

Merci 

Jeyjey1Configuration

JPGVB · Answer

Bonjour, pour tester la longueur d'une chaine il faut utiliser la commande LEN
donc dans ton cas

if len(textbox)=5 then


      '....


end if

NB: tu peux à ce moment là te passer des commandes left(textbox,5) pour alléger ton code et ne faire référence qu'a textbox.

cs_Exploreur · Answer

Salut,

Pour connaitre le nombres de carractères d'un chaine String, utilise : Len

Private Sub Form_Load()
Dim Toto as String
Toto = "Utilisation de Len"
Msgbox Len(Toto)
End sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_jeyjey1 · Answer

Merci tout le monde, soluce parfaite

   If Len(TextBoxReferenceProduit.Value) = 7 Then
      .Value = "'" & Left(LTrim(UserForm2.TextBoxReferenceProduit.Value), 5) + UserForm2.TextBoxVersion.Value + UserForm2.TextBoxIndice.Value + UserForm2.TextBoxSup.Value 'Gestion du zéro
Else
      .Value = "'" & Left(LTrim(UserForm2.TextBoxReferenceProduit.Value), 10) + UserForm2.TextBoxVersion.Value + UserForm2.TextBoxIndice.Value + UserForm2.TextBoxSup.Value 'Gestion du zéro


End If
    

@+Jeyjey1

[VBA] - Probleme de caractères

3 réponses

Votre réponse

Discussions similaires