Bonjour à tous
avec cette macro j'incrémente la feuille 'Archives" avec un formulaire contenant une listbox multicolonne et textbox
mais je voudrais la modifier pour incrémenter à la suite des données existantes dans la feuille "Archives"
donc rechercher la 1ère ligne vide de la base de données
ligne = Sheets("Archives").[A65000].End(xlUp).Row + 1
Private Sub CommandButton14_Click()
Dim x As Integer
With Worksheets("Archives")
For x = 1 To Me.ListBox4.ListCount
.Cells(x, 1) = TextBox1.Value
.Cells(x, 2) = TextBox3.Value
.Cells(x, 5) = Me.ListBox4.List(x - 1, 0)
.Cells(x, 6) = Me.ListBox4.List(x - 1, 1)
.Cells(x, 7) = Me.ListBox4.List(x - 1, 2)
Next x
End With
end sud
merci pour votre aide
avec cette macro j'incrémente la feuille 'Archives" avec un formulaire contenant une listbox multicolonne et textbox
mais je voudrais la modifier pour incrémenter à la suite des données existantes dans la feuille "Archives"
donc rechercher la 1ère ligne vide de la base de données
ligne = Sheets("Archives").[A65000].End(xlUp).Row + 1
Private Sub CommandButton14_Click()
Dim x As Integer
With Worksheets("Archives")
For x = 1 To Me.ListBox4.ListCount
.Cells(x, 1) = TextBox1.Value
.Cells(x, 2) = TextBox3.Value
.Cells(x, 5) = Me.ListBox4.List(x - 1, 0)
.Cells(x, 6) = Me.ListBox4.List(x - 1, 1)
.Cells(x, 7) = Me.ListBox4.List(x - 1, 2)
Next x
End With
end sud
merci pour votre aide