Concatener des TextBox

Bonjour le Forum,

Je voudrais concatener des TextBox nommées TextBox1, TextBox2, jusqu'à 8, et faire apparaître le résultat dans le TextBox20.

Ce résultat doit être reporté dans la feuille "Suivi" en colonne G

Merci de votre aide

Licaon

Bonjour

A tester

Sub Concat()
Dim I As Byte
Dim Nom As String

  For I = 1 To 8
   Me.textbox20 = Me.textbox20 & Me.Controls("TextBox" & I)
  Next I
  Sheets("Suivi").Range("G1") = Me.textbox20
End Sub

Bonne journée

Bonsoir Banzaï64,

Ce code ne semble pas fonctionner. Je l'ai copié dans "UserForm_Initialize()" puis supprimé. Pareil pour "CommandButton3_Click()".

Ma TextBox20 est sur l'UserForm et rien ne s'inscrit à l'intérieur au fur et à mesure de mes sélections dans l'UserForm

Merci de ta collaboration.

Licaon

Bonsoir

Tu vas voir que cela semble fonctionner

Bonsoir Banzai64,

Autant pour moi, CELA FONCTIONNENT TRÈS BIEN, avec un événement "click". Je voulais que cela se fasse au fur et à mesure du remplissage lors de la saisie de chaque TextBox.

J'ai donc rajouter un bouton et forcé l'utilisateur à l'activer

A+

Licaon

Bonsoir

A voir