contenu formulaire vers base de données

jtitin

XLDnaute Occasionnel
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
 

Paf

XLDnaute Barbatruc
Re : contenu formulaire vers base de données

Bonjour,

Sans le contexte ni classeur pour tester, peut-être comme ceci
Code:
...
ligne = Sheets("Archives").[A65000].End(xlUp).Row
For x = 1 To Me.ListBox4.ListCount
.Cells(ligne + x, 1) = TextBox1.Value
.Cells(ligne + x, 2) = TextBox3.Value
...
A+
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas