Copier plusieurs textbox dans une seule

Bonjour,

Essaie :

  Dim Txt As String
  Txt = "Bonjour, " & vbCrLf & vbCrLf _
    & "Ci-dessous voici un lead pré-qualifié : " & vbCrLf & vbCrLf
  If TBcontact.Text <> "" Then
    Txt = Txt & "Contact : " & TBcontact.Text & " (CDP : " & TBnuméroclientcdp.Text & ")" & vbCrLf
  End If
  If TBentité.Text <> "" Then
    Txt = Txt & "Entité : " & TBentité.Text & vbCrLf
  End If
  If TBtéléphone.Text <> "" Then
    Txt = Txt & "Téléphone : " & TBtéléphone.Text & vbCrLf
  End If
  If TBmail.Text <> "" Then
    Txt = Txt = "E-Mail : " & TBmail.Text & vbCrLf
  End If
  If CBsite.Text <> "" Then
    Txt = txtt & "Site : " & CBsite.Text & vbCrLf & vbCrLf
  End If
  If TBdemande.Text <> "" Then
    Txt = Txt & "Sa demande : " & TBdemande.Text & vbCrLf
  End If
  If TBmodèle.Text <> "" Then
    Txt = Txt & "Modèle : " & TBmodèle.Text & vbCrLf
  End If
  If TBcouleur.Text <> "" Then
    Txt = Txt & "Couleur : " & TBcouleur.Text & vbCrLf & "Options : " & TBoptions.Text & vbCrLf
  End If
  If TBreprise.Text <> "" Then
    Txt = Txt & "Reprise : " & TBreprise.Text & vbCrLf
  End If
  If TBfiche.Text <> "" Then
    Txt = Txt & "Fiche de reprise : " & TBfiche.Text & vbCrLf
  End If
  If TBfinancement.Text <> "" Then
    Txt = Txt & "Financement : " & TBfinancement.Text & vbCrLf & vbCrLf
  End If
  If TBdateduprojet.Text <> "" Then
    Txt = Txt & "Date du Projet : " & TBdateduprojet.Text & vbCrLf
  End If
  If TBdisponibilité.Text <> "" Then
    Txt = Txt & "Disponibilité : " & TBdisponibilité.Text & vbCrLf
  End If
  Tbresumé.Text = Txt

Daniel

Bonjour,

Vous creez une variable par Textebox  ou goupes d'object que vous remplissez si le ou groupe object est non vide.

A la fin vous creez le contenu de la textebox resume avec toutes les variables en mettant les crlf entre chaque