Salut à tous, je suis actuellement sur un Userform avec des textbox, des checkbutton et des optionbutton,
et je voudrais qu'en remplissant le formulaire ,cela remplisse les cases d'un tableau,
mais le problème c'est en remplissant une nouvelle fois le formulaire, les nouvelles données remplacent les anciennes, alors que je voudrais que les données passent à la ligne dans un tableau, et passent 18 lignes dans un second tableau
j'ai vu par exemple ce genre de formule:
je pense que ça doit être avec loop, mais je ne vois pas comment définir la cellule première, puis faire sauter 18 lignes![Confused :confused: :confused:](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
et je voudrais qu'en remplissant le formulaire ,cela remplisse les cases d'un tableau,
mais le problème c'est en remplissant une nouvelle fois le formulaire, les nouvelles données remplacent les anciennes, alors que je voudrais que les données passent à la ligne dans un tableau, et passent 18 lignes dans un second tableau
j'ai vu par exemple ce genre de formule:
Code:
Private Sub btn_enregistrer_Click()
'récupérer la dernière ligne de la BDD
Dim ligneCourante As Integer
Dim celluleCourante As Excel.Range
Set celluleCourante = ThisWorkbook.Sheets("BDD").Range("A1")
Do While celluleCourante.Value <> ""
Set celluleCourante = celluleCourante.Offset(1, 0)
Loop
ligneCourante = celluleCourante.Row
'écrire les infos
With ThisWorkbook.Sheets("BDD")
.Range("A" & ligneCourante) = Me.txt_nomProduit.Text
.Range("B" & ligneCourante) = Me.txt_val1.Text
.Range("C" & ligneCourante) = Me.txt_val2.Text
.Range("D" & ligneCourante) = Me.txt_val3.Text
End With
'effacer le nom du produit
Me.txt_nomProduit.Value = ""
Me.Hide
End Sub
je pense que ça doit être avec loop, mais je ne vois pas comment définir la cellule première, puis faire sauter 18 lignes