gulibert
XLDnaute Junior
Bonjour à tous c'est encore moi...
Aujourd'hui, je ne comprends pas pourquoi mon userform ne veut pas mettre mes résultats sur la dernière ligne pourtant il me semble que la syntaxe est correct (j'ai comparé avec d'autres qui marchent) Mais je suis tout de même un peu surpris... ce peut-il que cela viennent d'une autre indication plus haut?
Private Sub CommandButton1_Click()
Dim derlig As Byte
derlig = Sheets("usf").Range("A65536").End(xlUp).Row + 1
Cells(derlig, 2).Value = Me.TextBox1.Value
Cells(derlig, 11).Value = Me.ComboBox2.Value
Cells(derlig, 10).Value = Me.TextBox2.Value
Cells(derlig, 3).Value = UserForm1.ListBox1.Value
Cells(derlig, 9).Value = UserForm1.TxtFab.Value
Unload Me
End Sub
Merci d'avance pour vos conseils qui je suis sur seront m'éclairer.
Bon début de journée
Aujourd'hui, je ne comprends pas pourquoi mon userform ne veut pas mettre mes résultats sur la dernière ligne pourtant il me semble que la syntaxe est correct (j'ai comparé avec d'autres qui marchent) Mais je suis tout de même un peu surpris... ce peut-il que cela viennent d'une autre indication plus haut?
Private Sub CommandButton1_Click()
Dim derlig As Byte
derlig = Sheets("usf").Range("A65536").End(xlUp).Row + 1
Cells(derlig, 2).Value = Me.TextBox1.Value
Cells(derlig, 11).Value = Me.ComboBox2.Value
Cells(derlig, 10).Value = Me.TextBox2.Value
Cells(derlig, 3).Value = UserForm1.ListBox1.Value
Cells(derlig, 9).Value = UserForm1.TxtFab.Value
Unload Me
End Sub
Merci d'avance pour vos conseils qui je suis sur seront m'éclairer.
Bon début de journée