Discussion :

[tico06]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[BENNASR]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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.

[BENNASR]

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é !!! mais une tentative de réponse
bonne journée

[boisgontierjacques]

Bonjour,


Opérations courantes sur les tableaux structurés

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[tico06]

Merci jacques pour ce petit tuto sur les tableaux

cela fonctionne parfaitement

Encore merci a tous pour votre aide