[VBA] - Probleme de caractères
Résolu/Fermé
A voir également:
- [VBA] - Probleme de caractères
- Caractères ascii - Guide
- Caractères spéciaux clavier azerty - Guide
- Caractères spéciaux - Guide
- Exemple de mot de passe à 8 caractères - Guide
- Caractères spéciaux mac - Guide
5 réponses
phil232
Messages postés
607
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
31 janvier 2008
178
22 nov. 2007 à 14:16
22 nov. 2007 à 14:16
Tu peux tester la longueur du champ avec le OnKeyPress.
If Len(Me.TextBoxReferenceProduit) >= 5 Then ' éviter Copy/Paste
InputCharacter = Chr(0)
End If
Puis encore pour gérer Copy/Paste
OnExit
Me.TextBoxReferenceProduit = Left(Me.TextBoxReferenceProduit, 5)
If Len(Me.TextBoxReferenceProduit) >= 5 Then ' éviter Copy/Paste
InputCharacter = Chr(0)
End If
Puis encore pour gérer Copy/Paste
OnExit
Me.TextBoxReferenceProduit = Left(Me.TextBoxReferenceProduit, 5)
Merci Phil232 pour ton aide précieuse
Ci joint mon code final avec la soluce de Phil232
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
Merci encore
Ci joint mon code final avec la soluce de Phil232
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
Merci encore
phil232
Messages postés
607
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
31 janvier 2008
178
22 nov. 2007 à 14:31
22 nov. 2007 à 14:31
Oups,
tu es sure que ça fonctionnera comme voulu ? On doit donc tapper 7 fois pour récuperer 5 caractères ? Sinon, même s'il n'y a qu'un caractère tu fait un Left(xxx, 10) avec ?
tu es sure que ça fonctionnera comme voulu ? On doit donc tapper 7 fois pour récuperer 5 caractères ? Sinon, même s'il n'y a qu'un caractère tu fait un Left(xxx, 10) avec ?
Enfait si ma textbox comporte 7 caracteres, les 5 premiers caracteres sont copiés dans une cellule voisine et ensuite je refais la meme chose sauf que la je copie les 10 premiers caracteres
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question