Enregistrement a la suite

Bonjour à tous. Je suis novice sur le VBA. Je suis en train de créer un fichier d'édition de facturation simple. Avec un bouton, on ouvre un formulaire, demandant une date, un libellé (liste), qté et poids. lorsqu'on clique sur valider, les données remplis sur ce formulaire sont inserées sur la facture. Jusqu'ici tout va bien. sauf que lorsque je veux saisir un 2nd produit, je voudrais qu'il se place en dessous du premier. Et là, je n'arrive pas à créer le code adapté, malgré mes recherches et mes essais... Voici mon code de base, il me manque une formule qui renvoi à la ligne du dessous :

Private Sub CmdValider_Click()
Range("A20").Value = TextDate.Text
Range("B20").Value = CboLibellé.Text
Range("D20").Value = TextPoids.Text
Range("C20").Value = TextQuantité.Text
End Sub

Le tableau dans lequel doit se situer la facture peut s'étendre de A20 à D 32.

Auriez vous une idée afin de me débloquer svp?

Merci d'avance et bonne journée.

bonjour,

essaie ceci, non testé

Private Sub CmdValider_Click()
i=20
while range("A" & i)<> ""
i=i+1
wend
if i<33 then
Range("A" & i).Value = TextDate.Text
Range("B" & i).Value = CboLibellé.Text
Range("D" & i).Value = TextPoids.Text
Range("C" & i).Value = TextQuantité.Text
else
msgbox "plus de ligne disponible pour insérer un produit sur la facture"
end if
End Sub

Bonjour,

Merci H2SO4, ta commande fonctionne nickel !

Merci beaucoup.