TextBox - remonter d'une ligne

Version imprimable

29/04/2018, 21h57
jpma75

TextBox - remonter d'une ligne
Bonjour,

Si je saisie plus de 2 lignes dans le TextBox, le msgbox s'affiche mais le retour à la 3ème ligne est effectif et le texte copié dans la cellule [k6] est décalé vers le haut.
Est-il possible d'annuler ce retour à la ligne en insérant quelque chose après le MsgBox ? (y a t-il quelque chose qui fasse le contraire d'un vbCrLf ?)
Code:

1 2 3 4 5 6 Private Sub TextBox1_Change() TextBox1.SetFocus 'essai If TextBox1.LineCount > 2 Then MsgBox "nombre de lignes atteint" End If End Sub
Code:

1 2 3 4 Private Sub Valider_Click() [k6] = TextBox1.Value Unload Me End Sub
Merci d'avance pour votre aide,
Cdt
29/04/2018, 22h06
unparia
Bonjour

Citation:

Est-il possible d'annuler ce retour à la ligne en insérant quelque chose après le MsgBox ? (y a t-il quelque chose qui fasse le contraire d'un vbCrLf ?)

Le contraire? Non. Mais travailler en amont et ne pas mettre une troisième ligne ? Oui
Code:

1 2 3 4 5 Private Sub TextBox1_Change() Static anc As String If TextBox1.LineCount > 2 Then TextBox1.Text = anc anc = TextBox1.Text End Sub
Il est clair que si j'empêche une troisième ligne, je n'ai pas à "faire le contraire d'un vbcrlf" ;)

Merci beaucoup !

(J'ai dû ajouter TextBox1.SetFocus sinon ça génère une erreur)

Maintenant, si je limite le nombre de caractères par lignes, j'ai bien 21 caractères pour la 1ère ligne mais 4 de moins pour la seconde !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub TextBox1_Change() Static anc As String TextBox1.SetFocus 'essai If Len(TextBox1.Value) / (TextBox1.LineCount) > 20 Then TextBox1.Value = TextBox1.Value & vbCrLf End If If TextBox1.LineCount > 2 Then TextBox1.Text = anc MsgBox "nombre de lignes atteint" End If anc = TextBox1.Text End Sub

29/04/2018, 22h42
unparia

Euh ...
Je vois mal (explique-moi cela) comment pourrait être déclenché l'évènement Change si la textbox n'a pas le focus :koi:

Ou alors tu écris dans la textbox par code ? (tu n'en avais pas parlé) !

En ce qui concerne le nombre de caractères par ligne :
1) il n'a rien à voir avec ta demande initiale
2) il dépend, pour une largeur graphique donnée (la propriété width de ta textbox) de la police de caractères utilisée et du texte qui l'utilise !
Le seul moyen de faire en sorte qu'un même nombre de caractères différents utilise toujours la même largeur graphique est d'utiliser une police de caractères à échappement fixe.
Bon. Je ne sais pas où tu vas ainsi, mais moi, je vais maintenant dormir.
Bonne nuit

Bonne nuit !

Bonjour,

S'agissant d'une question subsidiaire, ça m'ennuyait d'ouvrir un autre fil... (mais merci encore pour la réponse à la question n°1)

Pour les caractères, je tape exactement les mêmes et il y en a 4 de moins sur la deuxième ligne...

Tout le code est ici :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Annuler_Click()
    Unload Me 'Vide et ferme le UserForm
End Sub
Private Sub Valider_Click()
    [k6] = TextBox1.Value
    Unload Me
End Sub
Private Sub Effacer_Click()
    With ActiveSheet.Range("k6")
        .MergeArea.ClearContents
    End With
End Sub
Private Sub UserForm_Initialize()
    Me.TextBox1 = ActiveSheet.[k6] 
    Label_Commentaire.Caption = "Inscrivez votre commentaire dans le cadre ci-dessous..." '& vbCrLf & "(Clic sur Entrée pour retour à la ligne)."
    Label_SautLigne.Caption = "(Clic sur Entrée pour retour à la ligne)."
End Sub
Private Sub TextBox1_Change()
Static anc As String
 
    TextBox1.SetFocus 'essai
 
    If Len(TextBox1.Value) / (TextBox1.LineCount) > 20 Then
        TextBox1.Value = TextBox1.Value & vbCrLf
    End If
 
    If TextBox1.LineCount > 2 Then
        TextBox1.Text = anc
        MsgBox "nombre de lignes atteint"
    End If
    anc = TextBox1.Text
 
End Sub

Hola ...
1) Ta demande est maintenant totalement différente de celle de départ .
2) tu ne peux jouer avec la longueur du texte sans considérer celle de la constante vbcrlf (2 caractères)
3) Est-ce finalement cela, que tu veux faire ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Static anc As String, L1 As Integer 'TextBox1.SetFocus 'essai Select Case TextBox1.LineCount Case 1 If Len(TextBox1) > 19 And Len(TextBox1.Text) < 21 Then TextBox1.Text = TextBox1.Text & vbCrLf L1 = 20 Else L1 = Len(TextBox1.Text) End If Case 2 If Len(TextBox1.Text) - L1 - 2 > 20 Then TextBox1.Text = anc Case Else TextBox1.Text = anc End Select anc = TextBox1.Text
Si oui: j'appelle à nouveau très sérieusement ton attention sur le fait qu'à moins d'utiliser une police de caractères à espacement fixe, les deux lignes auront bien chacune 20 caractères, mais occuperont une largeur graphique différente si les caractères sont différents (c'est évident).

Je refuse par ailleurs de traiter parallèlement le contenu de la cellule, pour plusieurs raisons :
1) ce serait traiter deux problèmes distincts
2) Excel gère son affichage dans les cellules de manière distincte de la manière dont cet affichage est géré dans une textbox, y compris pour une seule ligne.
3) Excel est un tableur et non un traitement de texte
4) Je vois que tu utilises des cellules fusionnées --->> ni utile (ce serait même plutôt nuisible), ni souhaitable.

Voilà pour ce qui est de CETTE discussion.
Elle est à libérer (tag résolu) si la difficulté (celle initiale) est résolue.

Déjà levé ?

Merci!! Tout fonctionne à merveille(s)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub TextBox1_Change()
Static anc As String
    TextBox1.SetFocus 'essai
    Select Case TextBox1.LineCount
        Case 1
            If Len(TextBox1) > 19 And Len(TextBox1.Text) < 21 Then TextBox1.Text = TextBox1.Text & vbCrLf
        Case 2
            If Len(TextBox1.Text) - 2 > 40 Then TextBox1.Text = anc
    End Select
   'ajout jp
    If TextBox1.LineCount > 2 Then
        TextBox1.Text = anc
        MsgBox "nombre de lignes atteint"
    End If
   '--------
   anc = TextBox1.Text
End Sub

Cdt

Citation:

Merci!! Tout fonctionne à merveille(s)

NON ! J'ai modifié (mon EDIT) ce code.
Prise en considération d'un vbcrlf saisi par l'utilisateur avant de frapper le 20ème caractère de la première ligne.
Prends donc le code modifié.

EDIT : et donne à ta textbox une largeur suffisante (sinon le linecount augmenterait seul car il prend en compte également les sauts fictifs de présentation/affichage).

EDIT 2 : je me suis laissé "endormir" cette nuit par la formulation (ton premier message) utilisée.
S'agissant en fait de lignes REELLES et non également de lignes d'affichage, la propriété LineCount peut être mise aux oubliettes.
Il est par ailleurs dans ces conditions possible de paramétrer tant le nombre maximum de lignes que celui des caractères dans chaque ligne, ainnsi (exemple) --->>
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Private Sub TextBox1_Change() Static anc As String Const nblg = 4 ' ---->> ici le nombre maxi de lignes accepté Const maxcarlg = 12 ' --->> ici le nombre maxi de caractères par ligne Dim k As Integer, sp sp = Split(TextBox1.Text, vbCrLf) Select Case UBound(sp) Case Is > nblg - 1 TextBox1.Text = anc Case Else For k = 0 To UBound(sp) If Len(sp(k)) > maxcarlg Then TextBox1.Text = anc & vbCrLf: Exit For End If Next End Select anc = TextBox1.Text End Sub

30/04/2018, 22h22
jpma75

Bonsoir Unparia,

Magnifique et redoutablement efficace !
Merci beaucoup pour ces quelques lignes de code qui forcent mon admiration.
Cdt
01/05/2018, 00h03
patricktoulon

re
re
j'ai pas tres bien compris le but mais si c'est pour avoir 2 lignes de 12 caracteres max
en tapant simplement
Code:

1 2 3 4 Private Sub TextBox1_Change() If Len(TextBox1.Text) = 12 Then TextBox1 = TextBox1 & vbCrLf TextBox1 = Mid(Replace(TextBox1.Text, vbCrLf & vbCrLf, vbCrLf), 1, 26) End Sub
le saut de ligne se met tout seul et le text s'arrete a 24 caractere +2(du vbcrlf)
apres 26 tu peux taper a pied joint sur ton clavier tu n'aura que tes deux lignes
bien evidement je pourrais ajouter une condition pour que un vbcrlf apres une chaine de moins de 12 ne soit pas pris en compte
et t'empecher aussi de taper 36 vbcrlf
01/05/2018, 06h31
unparia

Citation:

j'ai pas tres bien compris le but

Tu n'as en effet pas bien compris (ou pas tout lu avec attention).
Il ne s'agit pas de deux lignes de 12 caractères, mais d'un maximum de deux lignes contenant chacune un maximum de 12 caractères.
Avec ton code, l'utilisateur peut saisir plus de 2 lignes, chacune d'entre elles contenant moins de 12 caractères ( par exemple 9 lignes de 1 caractère et l'ajout d'un vbcrlf - et donc de deux caractères - ne sera bloqué qu'au delà de la saisie de la 9ème ligne, lorsque l'on dépassera 9 + (2*8) caractères ou encore 5 lignes de 3 caractères + 1 ligne de 1 caractère, lorsque atteints (5 * 3) + 1 + (5 * 2) caractères).

Citation:

bien evidement je pourrais ajouter une condition pour que un vbcrlf apres une chaine de moins de 12 ne soit pas pris en compte

Il n'est pas question d'empêcher cela. Bien au contraire (l'utilisateur y est même invité) --->>

Citation:

"Inscrivez votre commentaire dans le cadre ci-dessous..." '& vbCrLf & "(Clic sur Entrée pour retour à la ligne)."
Label_SautLigne.Caption = "(Clic sur Entrée pour retour à la ligne)."

re
bonjour unparia j'ai pigé
cela fait l'affaire
Code:

1 2 3 4 5 6 Private Sub TextBox1_Change() t = Split(TextBox1.Text, vbCrLf) If UBound(t) = 0 Then TextBox1.Text = Left(TextBox1.Text, 12) 'la pemiere ligne fait maximum 12 caracteres ou moins!!!! ( à moins on peut taper enter) If UBound(t) > 0 Then t(0) = Mid(t(0), 1, 12): t(1) = Mid(t(1), 1, 12): TextBox1.Text = t(0) & vbCrLf & t(1) 'la 2d ligne fait maximum 12 caracteres ' apres tu peux taper ce que tu veux rien ne rentre et impossible de taper une 2d fois sur enter (que deux lignes) End Sub
tu peux taper que 2 lignes
chaque ligne peut faire maximum 12 ligne ou moins et tu peux revenir sur la premier pour la completer jusqu'a 12 caracteres

tu peux revenir sur la ligne 1 pour la completer jusqu'a 12 caracteres
tu peux selectionner une partie de la ligne pour la modifier toujours 12 caracteres max
tu peux efacer la ligne 1 en entier tu pourra rien taper a la suite de la ligne 2 a moins de faire un suppr avant la ligne 2et donc faire sauter le vbcrlf ce qui fait que la ligne 2 devient la ligne 1

01/05/2018, 10h17
unparia

Aucun besoin de passer par Mid (qui ne fait qu'ajouter un ralentissement), de modifier le tableau puis de le réinjecter (autre source de ralentissement) alors qu'il suffit de revenir au texte antérieur, déjà connu.
Le code que j'ai mis plus haut montre comment le faire, y compris en paramétrant le nombre de lignes et le nombre de caractère par ligne. ;)

Bonsoir Unparia,

Le dernier code que j'ai échangé avec toi me convient très bien.
J'ai néanmoins un petit souci d'affichage.
Je vais partir du cas le plus simple où il n'est question que du nombre maxi de lignes autorisées :
Code:

1 2 3 4 5 6 Private Sub TextBox1_Change() Static anc As String If TextBox1.LineCount > 2 Then TextBox1.Text = anc anc = TextBox1.Text End Sub
Je précise que la police de caractère que j'ai affectée à la cellule de destination est "courrier new".

Si je tape n caractères dans la première ligne du TextBox et n dans la ligne suivante, la 2ème ligne de ma cellule de destination est décalée d'environ 1/2 caractère sur la droite ! (je précise que ma cellule est alignée au centre).
Si je tape n caractères dans la première ligne du TextBox et n-1 dans la suivante, la 2ème ligne est alignée à droite et j'ai donc un espace vide (de la largeur d'un caractère) à gauche de la 2ème ligne.
Si je tape n caractères dans la première ligne du TextBox et n-2 dans la suivante, la 2ème ligne est alignée à droite et j'ai donc un espace vide (de la largeur d'1,5 caractère) à gauche de la 2ème ligne.

Cette observation est identique dans le code (complet) que tu m'as donné :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub TextBox1_Change() 'proposition n°3 Static anc As String Dim k As Integer, sp Const nblg = 2 'max de lignes acceptées Const maxcarlg = 54 'max de caractères par ligne sp = Split(TextBox1.Text, vbCrLf) Select Case UBound(sp) Case Is > nblg - 1 TextBox1.Text = anc Case Else For k = 0 To UBound(sp) If Len(sp(k)) > maxcarlg Then TextBox1.Text = anc & vbCrLf: Exit For End If Next End Select anc = TextBox1.Text End Sub
Cdt

01/05/2018, 21h21
unparia

Tu constates cela dans la textbox ?
Je n'ai pas le même phénomène sur ma machine avec une police de caractères à espacement fixe.:koi:

Et de toutes manières : rien à voir avec le code écrit. Tu aurais le même phénomène en écrivant directement sur deux lignes, sans code aucun !
01/05/2018, 21h56
jpma75
Re,

Non, l'affichage dans le Textbox est conforme ; je parlais de la cellule de destination.
Code:

1 2 3 4 5 6 Private Sub Valider_Click() Application.EnableEvents = False 'attention ActiveSheet.[i6] = TextBox1 Application.EnableEvents = True Unload Me End Sub
Si j'ai bien compris ta suggestion, j'ai écrit deux lignes directement dans la cellule ("I6") et l'alignement est correct (si j'ai 8 caractères sur la 1ère ligne et 6 sur la 2nd, l'alignement est bien au centre avec un caractère de moins à droite et à gauche). Ça me laisse perplexe.

(Je me suis appliqué à utiliser les mêmes polices "courrier" pour le TextBox et pour la cellule de destination en prenant soin de régler la largeur du Textbox pour que l'utilisateur voit l'espace qui lui est alloué pour la cellule cible (indépendamment du nombre de caractères maxi pour lequel tu m'as donné la solution)
01/05/2018, 22h12
unparia

Citation:

Non, l'affichage dans le Textbox est conforme ; je parlais de la cellule de destination.

Cela est une autre affaire :
1) je t'en ai parlé bien plus haut (on message du 29/04/2018 à 23h43) ! Excel ne gère pas l'affichage dans ses cellules de la même manière que VBA gère l'affichage dans une textbox
2) par ailleurs et surtout : le saut de ligne dans une textbox est exprimé par une séquence de deux caractères (chr(13) & chr(10)) qui est la constante vbcrlf. Alors que le saut de ligne dans une cellule Excel s'exprime par un seul caractère ( le caractère chr(10) )
Je t'ai également dit ceci, plus haut :

Citation:

Je refuse par ailleurs de traiter parallèlement le contenu de la cellule, pour plusieurs raisons :
1) ce serait traiter deux problèmes distincts
2) Excel gère son affichage dans les cellules de manière distincte de la manière dont cet affichage est géré dans une textbox, y compris pour une seule ligne.
etc ...

Tu peux bien évidemment toujours envoyer dans la cellule Excel le texte de ta textbox en y remplaçant vbcrlf par chr(10)

Code:

Range(.....).value = replace(textbox1.text, vbcrlf, chr(10))

mais attends-toi à des petites différences d'affichage de temps à autre (et tu n'y pourras rien ;))

Re,

Tu as presque failli me faire douter d'une solution alors que ta proposition est parfaite !

Code:

1
2
3
4
5
6
7
Private Sub Valider_Click()
    Application.EnableEvents = False 'attention
'    ActiveSheet.[i6] = TextBox1
    ActiveSheet.[i6] = Replace(TextBox1.Text, vbCrLf, Chr(10))
    Application.EnableEvents = True
    Unload Me
End Sub

Merci beaucoup !!!

Cdt