[VBA] Retour chariot dans une TextBox

Résolu
thesentry -  
Bonjour,

Sur un UF, j'ai 3 TextBox dont 2 qui sont verrouillées (la 1 et la 3).
La première affiche un récapitulatif de ce qui a été saisi par l'utilisateur dans les UF précédents.
La 2 permet d'insérer un commentaire libre.
La 3 permet de faire un récapitulatif de ce qui est écrit dans la 1 et la 2.
Je n'ai pas trouvé comment mettre à jour automatiquement la 3 quand on ajoute un commentaire libre dans la 2. J'ai donc créé un bouton "MAJ" avec le code suivant :

Private Sub CommandButton1_Click()
Conclusion.TextBox3 = Conclusion.TextBox1.Value & char(13) & Conclusion.TextBox2.Value
End Sub

J'ai trouvé le char(13) sur internet pour un retour chariot mais ça ne marche pas (peut être est-ce que pour les MsgBox...).

Ce que je cherche à faire : dans la TextBox3, mettre sur une ligne la TextBox 1, faire un retour chariot et mettre sur une seconde ligne ce qu'il y a dans la TextBox2.

Une idée ? Merci

1 réponse

  1.  f894009
    Bonjour,

    marche pas avec textbox, prendre label ou richtextbox 

    Private Sub CommandButton1_Click()
        Label1.Caption = Me.TextBox1 & vbNewLine & Me.TextBox2
        'ou avec control supplementaire
        RichTextBox1 = Me.TextBox1 & vbNewLine & Me.TextBox2
    End Sub
    0
    1. Polux31
      Bonjour f894009,

      Ça fonctionne avec textbox. Il faut mettre la propriété MultiLine à True.

      ;o)
      0
    2. f894009
      Bonjour,

      Ok, merci pour l'info
      0
    3. thesentry Auteur
      Bonjour,

      Une fois le MultiLine à True, il faut écrire quelque chose en particulier dans le code ?
      0
    4. thesentry Auteur
      Je ne sais pas si avec le MultiLine on peut faire ce que je désire faire.

      Dans ma TB3, il n'y a rien à écrire, c'est juste une centralisation de ce qui est écrit dans la TB1 et la TB2.

      Je veux qu'il y est un retour à la ligne entre ce qui est présent dans la TB1 et ce qui est présent dans la TB2...
      0
    5. f894009
      Re,

      propriete textbox3 multiline a true,

      code bouton: 

      Private Sub CommandButton1_Click()
          Me.TextBox3 = Me.TextBox1 & vbNewLine & Me.TextBox2
      End Sub
      0

Discussions similaires

Connexion à une base Access via VBA Excel
Alaedjens

2 réponses
rowsource userform
megatronnbjja

2 réponses
Selection.EntireColumn.Hidden = True ne fonctionne pas ?
Ribanjo

7 réponses
Comment récupérer les données des cases à cocher ?
Mr Boushido

10 réponses
Variable et like
OlivGFT

2 réponses
VBA cellule egale a une autre
Abd3l0u

8 réponses