XL 2013 Insertion d'une ligne dans tableau VBA

job75

XLDnaute Barbatruc

• 10 Février 2020

• #2

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 :

VB:

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+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Février 2020

• #3

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Février 2020

• #4

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+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Février 2020

• #5

Oups, la bourde …

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Février 2020

• #6

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Février 2020

• #7

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 10 Février 2020

• #8

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Février 2020

• #9

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

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

 

Vote positif 0 Vote négatif

T

tico06

XLDnaute Nouveau

• 11 Février 2020

• #10

Dranreb bonjour,

Merci pour ton code

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Février 2020

• #11

Merci d'avance de joindre le fichier.

 

Vote positif 0 Vote négatif

T

tico06

XLDnaute Nouveau

• 11 Février 2020

• #12

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

 

Pièces jointes

• Test.xlsm

  21.9 KB · Affichages: 6

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Février 2020

• #13

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

Code:

=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.

 

Pièces jointes

• Test(1).xlsm

  20.4 KB · Affichages: 13

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 11 Février 2020

• #14

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.

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 11 Février 2020

• #15

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.

VB:

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

 

Pièces jointes

• OperTables.xlsm

  19.3 KB · Affichages: 15

Dernière édition: 11 Février 2020

Vote positif 0 Vote négatif

Solution