[VBA] - Probleme de caractères

cs_jeyjey1 Messages postés 46 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 8 février 2010 - 22 nov. 2007 à 13:14
cs_jeyjey1 Messages postés 46 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 8 février 2010 - 22 nov. 2007 à 14:26
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

3 réponses

JPGVB Messages postés 96 Date d'inscription mardi 29 mars 2005 Statut Membre Dernière intervention 10 mars 2011 2
22 nov. 2007 à 13:39
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 Messages postés 4821 Date d'inscription lundi 11 novembre 2002 Statut Membre Dernière intervention 15 novembre 2016 15
22 nov. 2007 à 13:40
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 Messages postés 46 Date d'inscription mardi 3 avril 2007 Statut Membre Dernière intervention 8 février 2010
22 nov. 2007 à 14:26
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
Rejoignez-nous