XL 2013 Insertion d'une ligne dans tableau VBA

[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)

Merci d'avance pour votre aide

 

[job75]

Bonsoir tico06,

Les formats et la Mise en forme conditionnelle sont répercutés automatiquement sur la ligne insérée.

Par contre les formules ne sont pas copiées, pour cela utilisez cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
With ListObjects(1).Range
    If Application.CountA(.Rows(2)) Or .Rows.Count < 3 Then Exit Sub
    For Each c In .Rows(3).Cells
        If c.HasFormula Then c.AutoFill c(0).Resize(2), xlFillValues
    Next
End With
End Sub

Elle doit être placée dans le code de la feuille (clic droit sur l'onglet et Visualiser le code).

Elle s'exécute quand on modifie la feuille, y compris quand on insère des lignes.

A+

 

[Dranreb]

Bonjour.
Normalement ListObject("Tableau2").ListRows.Add Position:=1 doit reproduire les formules communes à toutes les lignes.

 

[job75]

Bonsoir Bernard,

Tu as raison si l'on veut une macro pour insérer cette 1ère ligne.

Ma macro est pour le cas où l'insertion se fait manuellement.

PS : il faut un s à ListObjects.

A+

 

[Dranreb]

Oups, la bourde …

 

[Dranreb]

Mais chez moi, manuellement, clic droit sur la 1ère ligne d'un tableau, Insérer, Ligne de tableau en haut: reproduit aussi une formule.

 

[job75]

Chez moi sur Excel 2019, avec des formats et une MFC les formules ne se recopiaient pas.

Maintenant sans format ni MFC en effet les formules se recopient.

Bizarre.

 

[Dranreb]

Il est possible que c'avait été à un moment des formules disparates ou absentes de certaines lignes qui n'étaient plus définies comme étant la formule de toute la colonne.

 

[job75]

Oui en fait j'avais dû faire une mauvaise manip.

Donc finalement le problème posé est un faux problème.

 

[tico06]

Dranreb bonjour,

Merci pour ton code

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

L'Insertion de la ligne en début de tableau se fait bien par contre cela ne me recopie n'y les formules n'y les MFC

Merci d'avance pour votre aide

 

[job75]

Merci d'avance de joindre le fichier.

 

[tico06]

Ci-joint le fichier

La formule a copier se trouve dans la colone H
La MFC me surligne la ligne en rose si la date de validité et dépassée

Cordialement

 

[job75]

Chez moi la MFC se recopie automatiquement mais sa formule ne va pas, il y a un $ de trop sur $H$7, utilisez :

=ET($H7<AUJOURDHUI();NON(ESTVIDE($G7)))

Et la formule en colonne H se recopie aussi automatiquement.

Mais si vous avez un problème ajoutez ma macro du post #2, fichier joint.

 

[Dranreb]

Bonjour.
Là encore pour une raison que j'ignore, quand j'ai ouvert votre classeur la formule en H7 n'était pas prise comme étant celle de toute la colonne. Une fois propagée manuellement sur toute les lignes, elle l'est devenue, et est mise même si on supprime toutes les lignes du tableau avant d'en insérer une nouvelle. Et cette supression préalable ne bousille plus la réf de la formule MFC si corrigée comme indiqué par job75.

 

[BOISGONTIER]

Bonsoir,

Opérations courantes sur les tableaux.
Il n'y a pas de problème avec la MFC même si on vide le tableau.
La formule est la même dans toute la colonne.

Sub SuppressionLigneTableau()
  n = 1
  If [tableau1].Item(n, 1) <> "" Then [tableau1].Rows(n).delete
End Sub


Sub InsèreLigneTableau()
  [tableau1].Rows(1).Insert
End Sub

Sub AjoutFinTableau()
  If [tableau1].Item(1, 1) <> "" Then n = [tableau1].Rows.Count + 1 Else n = 1
  [tableau1[nom]].Item(n, 1) = "xxxx"
End Sub

Sub VideTableau()
   If [tableau1].Item(1, 1) <> "" Then [tableau1].delete
End Sub

Boisgontier