Y-at'il un moyen le limiter la saisie (nombre de caractères pour la largeur
et nombre de lignes pour la hauteur) d'une textbox multiligne. Je souhaite
récupérer les données saisies pour une impression que je ne souhaite pas
adapter.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel.C
Bonjour. Essaie quelque chose comme :
Private Sub TextBox1_Change() If TextBox1.LineCount > 3 Then MsgBox "nombre de lignes atteint" End If If Len(TextBox1.Value) / (TextBox1.LineCount) >= 20 Then TextBox1.Value = TextBox1.Value & vbCrLf End If End Sub
Cordialement. Daniel "Michel" a écrit dans le message de news:
Bonjour,
Y-at'il un moyen le limiter la saisie (nombre de caractères pour la largeur et nombre de lignes pour la hauteur) d'une textbox multiligne. Je souhaite récupérer les données saisies pour une impression que je ne souhaite pas adapter.
Si quelqu'un à déjà rencontrer ce cas...
Merci d'avance
Michel
Bonjour.
Essaie quelque chose comme :
Private Sub TextBox1_Change()
If TextBox1.LineCount > 3 Then
MsgBox "nombre de lignes atteint"
End If
If Len(TextBox1.Value) / (TextBox1.LineCount) >= 20 Then
TextBox1.Value = TextBox1.Value & vbCrLf
End If
End Sub
Cordialement.
Daniel
"Michel" <michel@lafrite.be> a écrit dans le message de news:
uO17zQ9OIHA.1168@TK2MSFTNGP02.phx.gbl...
Bonjour,
Y-at'il un moyen le limiter la saisie (nombre de caractères pour la
largeur et nombre de lignes pour la hauteur) d'une textbox multiligne. Je
souhaite récupérer les données saisies pour une impression que je ne
souhaite pas adapter.
Private Sub TextBox1_Change() If TextBox1.LineCount > 3 Then MsgBox "nombre de lignes atteint" End If If Len(TextBox1.Value) / (TextBox1.LineCount) >= 20 Then TextBox1.Value = TextBox1.Value & vbCrLf End If End Sub
Cordialement. Daniel "Michel" a écrit dans le message de news:
Bonjour,
Y-at'il un moyen le limiter la saisie (nombre de caractères pour la largeur et nombre de lignes pour la hauteur) d'une textbox multiligne. Je souhaite récupérer les données saisies pour une impression que je ne souhaite pas adapter.
Si quelqu'un à déjà rencontrer ce cas...
Merci d'avance
Michel
Michel
Merci Daniel, ça marche parfaitement !
"Daniel.C" a écrit dans le message de news:
Bonjour. Essaie quelque chose comme :
Private Sub TextBox1_Change() If TextBox1.LineCount > 3 Then MsgBox "nombre de lignes atteint" End If If Len(TextBox1.Value) / (TextBox1.LineCount) >= 20 Then TextBox1.Value = TextBox1.Value & vbCrLf End If End Sub
Cordialement. Daniel "Michel" a écrit dans le message de news:
Bonjour,
Y-at'il un moyen le limiter la saisie (nombre de caractères pour la largeur et nombre de lignes pour la hauteur) d'une textbox multiligne. Je souhaite récupérer les données saisies pour une impression que je ne souhaite pas adapter.
Si quelqu'un à déjà rencontrer ce cas...
Merci d'avance
Michel
Merci Daniel, ça marche parfaitement !
"Daniel.C" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uXx8n89OIHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour.
Essaie quelque chose comme :
Private Sub TextBox1_Change()
If TextBox1.LineCount > 3 Then
MsgBox "nombre de lignes atteint"
End If
If Len(TextBox1.Value) / (TextBox1.LineCount) >= 20 Then
TextBox1.Value = TextBox1.Value & vbCrLf
End If
End Sub
Cordialement.
Daniel
"Michel" <michel@lafrite.be> a écrit dans le message de news:
uO17zQ9OIHA.1168@TK2MSFTNGP02.phx.gbl...
Bonjour,
Y-at'il un moyen le limiter la saisie (nombre de caractères pour la
largeur et nombre de lignes pour la hauteur) d'une textbox multiligne. Je
souhaite récupérer les données saisies pour une impression que je ne
souhaite pas adapter.
Private Sub TextBox1_Change() If TextBox1.LineCount > 3 Then MsgBox "nombre de lignes atteint" End If If Len(TextBox1.Value) / (TextBox1.LineCount) >= 20 Then TextBox1.Value = TextBox1.Value & vbCrLf End If End Sub
Cordialement. Daniel "Michel" a écrit dans le message de news:
Bonjour,
Y-at'il un moyen le limiter la saisie (nombre de caractères pour la largeur et nombre de lignes pour la hauteur) d'une textbox multiligne. Je souhaite récupérer les données saisies pour une impression que je ne souhaite pas adapter.