Question technique sur textbox
Résolu/Fermé
vincent
-
9 sept. 2013 à 16:46
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 10 sept. 2013 à 10:46
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 10 sept. 2013 à 10:46
A voir également:
- Question technique sur textbox
- Logiciel faux contrôle technique - Forum Logiciels
- Vba textbox date format dd/mm/yyyy - Forum VB / VBA
- Mytf1 un problème technique est survenu ✓ - Forum Réseaux sociaux
- Samsung ce0168 fiche technique - Forum Samsung
- Télécharger fausse vignette contrôle technique - Forum Logiciels
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
10 sept. 2013 à 09:42
10 sept. 2013 à 09:42
Bonjour,
Il n'y a pas de propriété toute faite pour cela.
Par contre, tu peux contourner en bricolant du code comme ceci :
Il n'y a pas de propriété toute faite pour cela.
Par contre, tu peux contourner en bricolant du code comme ceci :
Private Sub TextBox1_Change()
Dim NbCar As Byte
With TextBox1
NbCar = Len(TextBox1)
Select Case .LineCount
Case 0
Exit Sub
Case 1:
.MaxLength = 10 '10 carac pour la 1ère ligne
If NbCar = 10 Then .Text = .Text & Chr(10)
Case 2: .MaxLength = 25 '15 (25-10) carac pour la 2ème ligne
If NbCar = 25 Then .Text = .Text & Chr(10)
Case 3: .MaxLength = 32 '7 (32-25) carac pour la 3ème ligne
Case Else: .Text = Left(.Text, Len(.Text) - 2) 'empêche saisie 4ème ligne
End Select
End With
End Sub
Modifié par Zoul67 le 10/09/2013 à 10:02
J'allais faire une réponse toute pourrie car je ne connaissais pas LineCount.
10 sept. 2013 à 10:03
10 sept. 2013 à 10:46
@vincent : De rien! Jamais deux sans trois ;-)
A+