Insertion ligne dans un tableau avec conservation formule

Bonjour a tous,

Je souhaiterais insérer une ligne a la fin d'un tableau tout en conservant la mise en forme ainsi que les formules.

Le code utilisé :

Merci d'avance

Sub Macro1()
Me.ListObjects("Tableau1").ListRows.Add
End Sub

Bonsoir,

J'ai testé ça copie bien les formules...

Sub test()
  With Sheets("Feuil1").ListObjects("Tableau1")
    .ListRows.Add
  End With
End Sub

Merci Oxydum pour ta réponse mais cela ne fonctionne pas chez moi

J'ai un peu avancé mais j'ai toujours un problème

Ma formule fait référence a une cellule de la ligne du dessus (F12=F11+D12-E12)

avec ce code la formule est bien copié mais du coup la référence n'est pas décaler avec l'insertion de la ligne.

La formule copié est (F13=F11+D13-D12) au lieu de (F13=F12+D13-D12)

Et la mise en forme du tableau n'est pas conservé

Le code utilisé

Sub Macro1()
Me.ListObjects("Tableau1").ListRows.Add
For i = 1 To 10
   Range("Tableau1").End(xlDown).Offset(0, i).Formula = Range("Tableau1").End(xlDown).Offset(-1, i).Formula
Next
End Sub

Merci d'avance

Peut-être :

Me.ListObjects("Tableau1").ListRows.Add AlwaysInsert:= True

Oui cela fonctionne merci a toi

Par contre maintenant que j'ai réussi a insérer la ligne je cherche comment la sélectionner pour pouvoir venir la remplir via des textbox et combobox

Cela devrait ressembler à quelque chose comme ça :

With Me.ListObjects("Tableau1").Range
  Colonne = 1 ' La première
  .Cells(.Rows.Count + 1, Colonne) = TaTextBox1.Value
End With

Bonjour oxydum

Cela me fait une erreur de compilation "membre de methode ou de donnée introuvable" en pointant sur ".ListObjects"

Le code

Private Sub CommandButton1_Click()

With Me.ListObjects("TableauOpération").Range
  Colonne = 1 ' La première
  .Cells(.Rows.Count + 1, Colonne) = TextBox1.Value
End With
End sub

Merci d'avance pour ton aide

Bonjour,

Si tu souhaites conserver les mises en forme et les formules, pourquoi ne pas passer un tableau de format automatique.

Il fait tout cela très bien et sans macro.

Après tout dépend de ton tableau et de ta structure, mais sans fichier dur d'être précis.

Cordia5

Bonjour,

Merci de joindre un fichier à ta demande.

Cdlt.

Bonjour jean eric

Ci-joint la partie de mon classeur pour lequel je suis embêté

Ce que je souhaite faire c'est via ma userForm3 :

• Récupérer les informations de mes textbox 1 a 3 et de ma combobox1
• Convertir le résultat des textbox 2 et 3 en format numérique pour que les calculs dans le tableau "TableauJournalCaisse" continu a se faire
• Insérer ces informations a la fin de mon tableau "TableauJournalCaisse"

Merci d'avance pour ton aide