Fusion de plusieurs TextBox

Bonjour a tous,

Me revoilà avec un petit soucis.
J'ai un USF avec 10 TextBox, je souhaiterais en appuyant sur mon Commandbutton1 "Valider" que les données inscrite dans mes TextBox soit rentrées dans une même cellule en étant juste séparé par une "," ou autre caractère.

Voici le code que j'ai pu développer, le problème est que dans ma cellule est renvoyé la valeur "FAUX"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub CommandButton1_click() Dim Bl As String Dim L As Long     Bl = TextBox8 + " ; " + TextBox9 + " ; " + TextBox10 + " ; " + TextBox11 + " ; " + TextBox12 + " ; " + TextBox13 + " ; " + TextBox14 + " ; " + TextBox15 + " ; " + TextBox16 = " ; " + TextBox17   L = Sheets("tableau").Range("a65536").End(xlUp).Row + 1   Range("a" & L).Value = TextBox1 Range("b" & L).Value = TextBox2 Range("c" & L).Value = TextBox3 Range("d" & L).Value = TextBox4 Range("f" & L).Value = TextBox5 Range("g" & L).Value = TextBox7 Range("e" & L).Value = Bl   ActiveWorkbook.Save   Unload Me   End Sub

---

Où est-ce que j'ai oublié un truc ?

Merci de votre aide

Bonjour,

utilise plutôt l'opérateur de concaténation & au lieu d'un "+"

et utilise également la propriété .text de tes textbox, ça devrait être ok ainsi

Aïe, joe a répondu 1 seconde avant moi :p

Bonjour
Si j'ai bien compris ce que tu voulais, c'est assez simple.
Dans ton Code remplace les

Code:

---

+ " ; " +

---

dans

Code:

---

Bl = TextBox8 + " ; " + TextBox9 + " ; " + TextBox10 + " ; " + TextBox11 + " ; " + TextBox12 + " ; " + TextBox13 + " ; " + TextBox14 + " ; " + TextBox15 + " ; " + TextBox16 = " ; " + TextBox17

---

par le sigle

Code:

---

&

---

.
Si tu veux un espace fais comme ceci.

Code:

---

TextBox15 & " " & TextBox16

---

De plus, fais attention au nom de tes Textbox, je vois dans ton code des TextBox numérotées de 1 à 7 et de 8 à 17, cela fait un peu plus que 10 il me semble 8-)

Eric

Merci a tous pour vos astuces, mon problème est résolu une fois de plus grâce a vous.

En ce qui concerne les TextBox, celle de 1 a 7 ne rentre pas en compte dans la concaténation. J'en ai bien 10.

Bonne journée a tous