Pas de remplissage dans le tableau

Question

Bonjour, j'ai un soucis dans mon code car mes données ne remplissent pas mon tableau correctement. Soit elle se mettent en dessous, soit le tableau ne se met pas en forme avec les données.

Quelqu'un à une idée svp?

Je vous met mon fichier qui est e ncours de développement, je ne suis qu'au début lol

Merci par avance

9formulaire-saisie.xlsm (55.66 Ko)

Jean-Eric · Accepted Answer

Bonjour,
Pour le principe, avec un tableau structuré (listobject).
Cdlt.

5formulaire-saisie.xlsm (47.47 Ko)

Set lo = Feuil1.ListObjects(1)
        With lo
            If .InsertRowRange Is Nothing Then
                Set r = .HeaderRowRange.Cells(1).Offset(.ListRows.Count + 1)
            Else
                Set r = .InsertRowRange.Cells(1)
            End If
        End With

        With r
            .Value = lo.ListRows.Count+1
            .Offset(, 1) = Me.txtNom
            .Offset(, 2) = Me.txtPrénom
            .Offset(, 3) = Me.txtAdresse
            .Offset(, 4) = CCur(Me.txtMontant)
            .Offset(, 5) = CInt(txtMensualités)
            .Offset(, 6) = CDate(Me.txtDate)
            .Offset(, 7) = Me.txtCommentaire
        End With