code vba ne fonctionne pas

[dain]

Bonjour,
C'est la 1er fois que je m' adresse à vous et voici mon probleme:
Mon code Vba ne fonctionne pas, il doit recuperer des valeurs de texte box dans une boite de dialogue et les envoyer dans leurs cellules respectives selon la valeur sélectionnée dans un listbox.Pouvez vous m'aider, d'avance merci.

Private Sub CommandButton1_Click()
Dim L As Integer
L = Sheets(6).Range("N65536").End(xlUp).Row
With Sheets(6)
.Range("B" & L).Value = TextBox1
.Range("C" & L).Value = TextBox2
.Range("D" & L).Value = TextBox3
.Range("E" & L).Value = TextBox4
.Range("F" & L).Value = TextBox5
.Range("G" & L).Value = TextBox6
.Range("H" & L).Value = TextBox7
.Range("I" & L).Value = TextBox8
.Range("J" & L).Value = TextBox9
.Range("K" & L).Value = TextBox10
.Range("L" & L).Value = TextBox11
.Range("O" & L).Value = TextBox12
.Range("M" & L).Value = TextBox13
End With
Unload UserForm17
End Sub

 

[LaurentTBT]

Bonsoir, Dain, et bienvenue sur ce forum.

Il te manque juste les :
.Range("B:" & L), etc...

Bonne chance.

Laurent.

 

[Pascal76]

Salut Dain Laurent et le forum

Euh Laurent je ne vois pas trop le coup des : ??

Peux-tu envoyer un morceau de fichier STP, Dain ?

Peut-être est-ce TextBox1.value mais comme tu parles de textbox et listbox ce serait plus facile avec l'exemple.

Bon courage

Pascal

 

[LaurentTBT]

Oulala, pourtant, j'vous l'jure, j'avais pas bu hier soir!

Pascal, ça m'apprendra à te chambrer sur un autre fil!

Bon, ben désolé pour cette réponse complétement à côté de la plaque.

Bonne journée.

Laurent.

 

[Moa]

Salut !

Il me semble que tes Textboxs sont sur un Userform, donc ne serait-il pas préconisé dans ce cas de donner le chemin complet pour récuperer la valeur de tes textbox, tel que :

Private Sub CommandButton1_Click()
Dim L As Integer
L = Sheets(6).Range("N65536").End(xlUp).Row
With Sheets(6)
.Range("B" & L).Value = Userform17.TextBox1
.Range("C" & L).Value = Userform17.TextBox2

@ +

Moa