Insertion d'une ligne dans tableau VBA

Bonjour a tous,

Je souhaite insérer une nouvelle ligne au début de mon tableau excel tout en conservant les propriétés (formule, Mise en forme conditionnelles, format) de la ligne du dessous.
Mon tableau est un tableau structuré (nommé Tableau2).
Ce tableau comporte une entête en ligne 6 et commence en ligne 7. Il comporte 7 colonne (de B a H)

J'ai essayer avec :

Code:

---

ListObjects("Tableau2").ListRows.Add Position:=1

---

ou

Code:

---

ListObjects("Tableau2").ListRows.Add Position:=1, AlwaysInsert:=True

---

La ligne s’insère bien en début de tableau mais ne me conserve ni MFC, formule, format


Merci d'avance pour votre aide

bonjour
peut être l'erreur viens de tes regles MFC
je crois que ce code suffit

Code:

---

1 2 3

Sub insertligne() Sheets("Feuil1").ListObjects("Tableau2").ListRows.Add (1) End Sub

---

Le MFC, c'est une plaie pour l’insertion.
Généralement, Excel crée de nouvelles MFC identiques mais distinctes de celles de la ligne source.
La seule solution que j'ai trouvée est de supprimer les MFC qui sont créées et de rétablir la zone d'application des MFC source.

Bonjour
je crois que pour un tableau structuré la MFC sera appliquée à chaque nouvelle ligne à condition de définir bien dans la règle MFC
dans mon exemple je mais une formule ou la deuxième colonne de mon tableau est égal à la valeur de la colonne 1 * 2 et une règle MFC (font orangé) si la valeur est supérieure à 16
j'insère une ligne et je remplie la colonne 1 et tout fonctionne
je sais pas si c'est le problème rencontré !!! :aie::aie: mais une tentative de réponse
bonne journée

Bonjour,


Opérations courantes sur les tableaux structurés

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub SuppressionLigneTableau() [tableau1].Rows(1).delete End Sub   Sub InsèreLigneTableau() [tableau1].Rows(1).Insert End Sub   Sub AjoutFinTableau() n = [tableau1].Rows.Count If [tableau1].Item(1, 1) = "" Then n = 1 Else n = n + 1 [tableau1[nom]].Item(n, 1) = "xxxx" End Sub   Sub VideTableau() If [tableau1].Item(1, 1) <> "" Then [tableau1].delete End Sub

---

Boisgontier

Merci jacques pour ce petit tuto sur les tableaux

cela fonctionne parfaitement

Encore merci a tous pour votre aide