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 : Sélectionner tout - Visualiser dans une fenêtre à part
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