Controle derniere ligne de tableau

Bonjour,

Alors voila je dispose d'un tableau, jusque la tout va bien. Mais via une ligne VBA je souhaiterai contrôler la dernière ligne de mon tableau ou au moins la dernier ligne de la colonne "Libéllé" pour (Je vous explique ma formule qui est dans ma tête) :

SI "La dernier ligne de mon tableau a un contenu quelconque" ALORS

COPIER "dernière ligne de la colonne Montant"

COLLER " En F7"

AJOUTER "ligne au dessous de l'objet Tableau"

Voila la pièce jointe pour illustrer un peu mieux.

En espérant avoir été assez clair.

Toute vos réponses sont les bienvenu même partiel.

Merci d'avance encore une fois Bizouille

bonjour

pas besoin de VBA,

ni pour lire la dernièvaleur

ni pour ajouter une ligne (la saisie se fait directement dans la 1ère ligen vierge sous un tableau, et ce tableau comprend seul qu'il doit s'agrandir

nota : donc ne jamais créer de ligne vide sous un tableau

Mais une solution VBA existe t-elle car j'envisagerai surement de protéger la feuille plus tard. Certe il faudra que j'entre une ligne pour déverrouiller la protection avant puis la remettre après mais bon perso je trouve le VBA plus ammusant. Après je me contenterai de cette réponse si cela n'éxiste pas

Il me faudrait surtout c'est formule en VBA:

• SI "La dernier ligne de mon tableau a un contenu quelconque" ALORS
• AJOUTER "ligne au dessous de l'objet Tableau"

Merci tout de même pour cette réponse

Cordialement

Bonjour Roro, JMD, bonjour le forum,

Essaie comme ça :

Sub Macro1()
If Range("Tableau1[[Libéllé]]").End(xlDown).Value <> "" Then
    Range("Tableau1[[Montant]]").End(xlDown).Copy Range("F7")
    Range("Tableau1").ListObject.ListRows.Add
End If
End Sub

Alors cela m'a déjà bien avancer. Par contre il ne me prend pas en compte seulement la dernière cellule de la colonnes mais n'im porte la quel a partir de la seconde /: Une solution ?

Merci

Re,

Essaie comme ça :

Sub Macro1()
If Cells(Application.Rows.Count, "C").End(xlUp).Value <> "" Then
    Cells(Application.Rows.Count, "D").End(xlUp).Copy Range("F7")
    Range("Tableau1").ListObject.ListRows.Add
End If
End Sub

Super merci ca marche du feu de DIEU.

Merci pour ton temps