Remplir tableau à partir d'un formulaire

bonjour

Je suis en train de faire un petit tableau Excel dans lequel je voudrais "Remplir des lignes d'un tableau et rajouter des lignes au fur et à mesure des validations depuis mon formulaire"

Le code fonctionne quand la 1ère ligne est vide mais ça me donne une erreur une fois cette 1ère ligne remplie.

Merci pour votre aide

Bonjour,

Essais de cette façon :

Private Sub ToggleButton1_Click()

    Dim Lig As ListRow

    If DateDemande = "" Or DateDemande = "jj/mm/aaaa" Or DateRetrait = "" Or DateRetrait = "jj/mm/aaaa" Or ComboBox1 = "" Or ComboBox2 = "" Or ComboBox3 = "" Or Quant = "" Then

        MsgBox ("Toutes les informations ne sont pas remplies")

    Else

        If Sheets("Feuil1").Range("B3") = "" Then

            Sheets("Feuil1").Range("B3") = DateDemande.Value
            Sheets("Feuil1").Range("C3") = ComboBox1.Value
            Sheets("Feuil1").Range("D3") = ComboBox2.Value
            Sheets("Feuil1").Range("E3") = ComboBox3.Value
            Sheets("Feuil1").Range("F3") = Quant.Value
            Sheets("Feuil1").Range("G3") = DateRetrait.Value

        Else

            Set Lig = Sheets("Feuil1").ListObjects("Tableau2").ListRows.Add

            Lig.Range(, 1).Value = DateDemande
            Lig.Range(, 2).Value = ComboBox1
            Lig.Range(, 3).Value = ComboBox2
            Lig.Range(, 4).Value = ComboBox3
            Lig.Range(, 5).Value = Quant
            Lig.Range(, 6).Value = DateRetrait

        End If

    End If

End Sub

Merci ! Super ça fonctionne

Désolé d'insister à nouveau .. mais comment faire pour que le format de la cellule 'Quantité' se répète en format 'Nombre' à la suite de la 1ère ligne ?

Merci

Re,

Tu formates la première cellule de la colonne en "Nombre", comme c'est un tableau structuré, ce format sera répété sur les cellules de dessous et dans le code donné, tu changes la ligne :

Lig.Range(, 5).Value = Quant

par celle-ci :

Lig.Range(, 5).Value = CDbl(Quant)

Super !Merci !