D
dain
Guest
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
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