Bonjour à tous,
j'aimerai placer mes donner provenant de ma texbox à la 1ere ligne non vide de ma listbox
j'utilise ce code
mais ça envoi toujours en bas
merci pour votre aide
j'aimerai placer mes donner provenant de ma texbox à la 1ere ligne non vide de ma listbox
j'utilise ce code
VB:
Private Sub CommandButton1_Click()
Dim derligne As Integer
derligne = Sheets("FEUIL11").Range("A65356").End(xlUp).Row + 1
Range("A" & derligne) = Me.Lbl_Date
Range("B" & derligne) = Me.TextBox3
Range("C" & derligne) = Me.ComboBox2
Range("D" & derligne) = Me.TextBox2
Range("E" & derligne) = Me.TextBox1
Range("F" & derligne) = Me.TextBox6
Range("G" & derligne) = Me.TextBox7
Range("h" & derligne) = Me.ComboBox3
Unload Me
UserForm1.Show
End Sub
merci pour votre aide