Microsoft 365 [CLOS] Tableau Structuré et recopie de Formule

wDog66

XLDnaute Nouveau

• 11 Avril 2024

• #2

Salut ChTi160

Franchement j'avoue que les TS pour ça, c'est un peu la galère
Essayez manuellement, vous verrez (probablement) que la formule ne suit pas...

Systématiquement j'insère les formules via VBA

A+

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 11 Avril 2024

• #3

Bonjour,
Pourrais-tu joindre un classeur exemple? (juste pour qu'on n'ait pas à le faire nous-mêmes...)

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 11 Avril 2024

• #4

Re
fichier pour le test !
Jean marie

 

Pièces jointes

• Test Formules Chti160.xlsm

  34.4 KB · Affichages: 4

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 11 Avril 2024

• #5

Re-,
J'ai modifié la dimension du tableau (tu avais mis 8)

VB:

Dim TabDonnees(1 To 7, 1)

La formule s'insère automatiquement dans un TS, donc inutile d'y insérer quelque chose.
A la création, tu mets tes titres, puis "Insertion/Tableau" (tu précises qu'il y a bien des titres)
Dans la colonne "Total", tu mets ta formule kivabien
Puis, tu peux supprimer la ligne(via clic droit dans une cellule de cette ligne, Supprimer/Ligne de tableau)
La formule reste intégrée au TS
Lors de l'ajout d'une ligne (j'ai commenté la ligne où tu insérais la formule), les 7 premières colonnes vont se remplir, et la formule s'ajouter toute seule, comme une grande...
Je te laisse tester

 

Pièces jointes

• Test Formules Chti160.xlsm

  29.4 KB · Affichages: 3

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 11 Avril 2024

• #6

wDog66 à dit:

Essayez manuellement, vous verrez (probablement) que la formule ne suit pas...

Cliquez pour agrandir...

Bonjour,
Je pense que tu peux enlever "ne" et "pas"

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 11 Avril 2024

• #7

Re
merci de ces réponse
j'avais un tableau , que j'ai transformé en TS sans autre Chose ,j'ai ensuite modifié la Formule pour y mettre les références de colonnes au lieu des cellules;
je me suis rendu compte que dans ma Formule il n'y avait pas de référence au Nom du Tableau (=SOMME([@[RTT]:[FRACTIONNEMENT]])) au lieu de (=SOMME(t_BDD[@[RTT]:[FRACTIONNEMENT]])est ce important ?
je regarde à appliquer la proposition de TooFatBoy!
Jean marie

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 11 Avril 2024

• #8

Re-,
Et en complément, pour remplir la nouvelle ligne, autant utiliser le codage propre aux TS
(Déclarer I as Long au préalable)

VB:

...
With Range("t_BDD").ListObject
     Set LstR = .ListRows.Add: I = LstR.Index
     .DataBodyRange(I).Resize(, 7) = Application.Transpose(TabDonnees)
End With
...

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 11 Avril 2024

• #9

ChTi160 à dit:

Re
merci de ces réponse
j'avais un tableau , que j'ai transformé en TS sans autre Chose ,j'ai ensuite modifié la Formule pour y mettre les références de colonnes au lieu des cellules;
je me suis rendu compte que dans ma Formule il n'y avait pas de référence au Nom du Tableau (=SOMME([@[RTT]:[FRACTIONNEMENT]])) au lieu de (=SOMME(t_BDD[@[RTT]:[FRACTIONNEMENT]])est ce important ?
je regarde à appliquer la proposition de TooFatBoy!
Jean marie

Cliquez pour agrandir...

Re,-
Non, il ne faut pas rentrer la formule par le biais de VBA...

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 11 Avril 2024

• #10

Re
Cousinhub
j'ai compris c'est juste une question !

je me suis rendu compte que dans ma Formule il n'y avait pas de référence au Nom du Tableau (=SOMME([@[RTT]:[FRACTIONNEMENT]])) au lieu de (=SOMME(t_BDD[@[RTT]:[FRACTIONNEMENT]])est ce important ?

Cliquez pour agrandir...

donc

VB:

With Range("t_BDD").ListObject
     Set LstR = .ListRows.Add
    With LstR
       .Range.Cells(1, 1).Resize(, UBound(TabDonnees, 1)) = Application.Transpose(TabDonnees)
    End With

n'est pas du Codage TS ? tu dis :

"autant utiliser le codage propre aux TS"

Cliquez pour agrandir...

j'ai encore rien Compris Lol
Merci a vous deux
Jean marie

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 11 Avril 2024

• #11

Re
j'ai beau supprimer mon tableau ,le re définir "t_BDD" ,y mettre la formule dans la Colonne (6) ,supprimer la Ligne .
lorsque j'ajoute une Ligne rien ne se passe Lol
Je clos le sujet !
merci a vous .
Jean marie

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 11 Avril 2024

• #12

Re-,
Sous ce lien, un petit tuto de Thev, pour le codage VBA des TS.
Bonne continuation

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 11 Avril 2024

• #13

re
juste pour voir Lol

 

Pièces jointes

• Formule Option 2.gif

  239.9 KB · Affichages: 5

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 11 Avril 2024

• #14

Re-,
Tu peux remettre ce fichier de démonstration?

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 11 Avril 2024

• #15

Re
'c'est bon j'avais oublié de redimensionner le tableau 1 to 7
Édit : j'ai aussi vu qu'il existe des options (3) qui concernent les diverses possibilités de recopie ou non des formules !
Merci a vous deux
Jean marie

 

Dernière édition: 11 Avril 2024

Vote positif 0 Vote négatif