XL 2019 Copie de la dernière ligne avec la mise en forme et formules

sylvanu à dit:

Bonjour Kev,
Je ne comprends pas votre approche ou je n'ai pas compris ce que vous voulez faire.
Si le but est d'enregistrer une nouvelle FNC, comme vous disposez d'un tableau structuré qui a la caractéristique de recopier automatiquement formules et format de la ligne précédente, il vous suffit en D10 de taper une date, tout se mettra correctement :
Regarde la pièce jointe 1157556

Cliquez pour agrandir...

TooFatBoy à dit:

Bonjour,

Comme dis précédemment par les camarades ayant répondu, vu que tu as déjà un tableau structuré, si tu as construit ton tableau correctement, les mises en formes et formules doivent se répliquer automatiquement.
Et dans ce cas, il suffit d'ajouter une ligne au tableau pour que tout se duplique automatiquement :

VB:

Public Sub Nouvelle_FNC()
    Range("Tableau2").ListObject.ListRows.Add
End Sub

Hélas tu ne sembles pas avoir construit le tableau correctement, ou du moins tu sembles avoir fait des modifications après avoir créé le tableau.

En pièce jointe ton classeur avec le tableau corrigé (enfin... j'espère).

ps : l'idéal serait peut-être bien de créer ton propre format de tableau.

Cliquez pour agrandir...

BrunoM45 à dit:

Bonjour Kev1407, Sylvanu

En partant sur la même idée, mais avec le code, ça donne ceci

VB:

Public Sub Nouvelle_FNC()
  ActiveSheet.Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Value = Date
End Sub

A+

Cliquez pour agrandir...