Dernière cellule vide d'une colonne d'un tableau dynamique

Bonjour à tous !

Je me permets de solliciter vos lumières pour un problème que je n'arrive pas à résoudre concernant un formulaire.

En fait, j'aimerai que la valeur saisie dans le formulaire par l'utilisateur soit copiée dans la dernière cellule d'une colonne d'un tableau dynamique (tableau inséré par le menu et qui s'agrandit tout seul).

Or, j'ai essayé plusieurs méthodes pour atteindre cette cellule mais Excel considère (il me semble) que la 1ère ligne du tableau (sous les intitulés de colonne) est remplie alors qu'il n'en est rien...

Des idées ? J'espère avoir été assez clair !

Merci beaucoup

Sam

Salut SamSam,

un problème, un fichier!

Les explications de l'un peuvent être comprises de 36 façons par un autre!

A+

Autant pour moi

J'ai ajouté un fichier bidon avec un formulaire d'ajout de 3 champs TextBox et deux feuilles : l'une contenant le bouton de lancement du formulaire et l'autre contenant le tableau dans lequel je souhaite que mes données soient insérées lorsque l'utilisateur clique sur "Valider".

Bonjour et bienvenu(e),

Un début de réponse pour la validation des données saisies.

Cdlt.

Private Sub CommandButton1_Click()
'Déclaration des variables
Dim ws As Worksheet, _
    Table As ListObject, _
    rCell As Range
    'Initialisation des variables
    Set ws = ActiveWorkbook.Worksheets("Données")
    Set Table = ws.ListObjects(1)
    If Table.InsertRowRange Is Nothing Then
        Set rCell = Table.HeaderRowRange.Cells(1).Offset(Table.ListRows.Count + 1)
    Else
        Set rCell = Table.InsertRowRange.Cells(1)
    End If
    'Restitution des données dans la feuille Données.
    With rCell
        .Value = CDate(TextBox1.Value)
        .Offset(, 1).Value = TextBox2.Value
        .Offset(, 2).Value = TextBox3.Value
    End With
    'RAZ des variables
    Set rCell = Nothing: Set ws = Nothing

End Sub

C'est juste S-U-P-E-R !!

Merci ça fonctionne très bien