XL 2010 Créer ListObject + Ligne Total

cathodique · Samedi à 08:49

Bonjour,

Je transforme une plage en tableau structuré en utilisant le bout de code ci-dessous.
Mais je rencontre une difficulté (en fait 2):
1- Pourquoi lors de l'activation de la ligne 'Totals', le mot 'Total' ne s'affiche pas en 1ère colonne
2- Aucun résultat ne s'affiche dans la ligne total

VB:

With ShBilan
' Définir la plage pour le ListObject
      Set Rng = .Range("A" & dl + 1).Resize(UBound(Tall), UBound(Tall, 2))
      ' Créer le ListObject
      .ListObjects.Add(xlSrcRange, Rng, , xlYes).Name = "Tall"
      .ListObjects("Tall").TableStyle = "TableStyleLight16"
      .ListObjects("Tall").ShowAutoFilter = False
      ' Activer la ligne Totaux
      .ListObjects("Tall").ShowTotals = True
      ' Ajouter des formules de somme dans la ligne Totaux pour chaque colonne
      For i = 2 To .ListObjects("Tall").ListColumns.Count
         .ListObjects("Tall").ListColumns(i).TotalsCalculation = xlTotalsSum
      Next i
End With

En vous remerciant par avance.

Bon week-end.

job75 · Samedi à 12:18

Ah oui dans ton fichier il y a des apostrophes dans les titres, il faut les doubler :

VB:

      With .ListObjects("Tall").Range
         For i = 2 To .Columns.Count
            .Cells(.Rows.Count, i) = "=SUBTOTAL(109," & "[" & Replace(.Cells(1, i), "'", "''") & "])"
         Next i
      End With

patricktoulon · Hier à 06:13

Bonjour toofatboy
sauf si cathodique veux le total entre partout c'est pas bon

avec la mienne

on peut même faire encore plus simple

VB:

Sub MonTbS()
    With ShBilan
        ' Définir la plage pour le ListObject
        Set Rng = .Range("A3:J6")
        ' Créer le ListObject
        .ListObjects.Add(xlSrcRange, Rng, , xlYes).Name = "Tall"
        .ListObjects("Tall").TableStyle = "TableStyleLight16"
        .ListObjects("Tall").ShowAutoFilter = False
        ' Activer la ligne Totaux
        .ListObjects("Tall").ShowTotals = True

        'Ajouter des formules de somme dans la ligne Totaux pour chaque colonne
        Range("Tall[[#Totals],[Entrée]:[Décès]]").FormulaR1C1 = "=SUM(R[-3]C:R[-1]C)"
    End With

End Sub

et si on devait faire du genrique (pas de noms connus)

Code:

Sub MonTbS()
    With ShBilan
        ' Définir la plage pour le ListObject
        Set Rng = .Range("A3:J6")
        ' Créer le ListObject
        .ListObjects.Add(xlSrcRange, Rng, , xlYes).Name = "Tall"
        .ListObjects("Tall").TableStyle = "TableStyleLight16"
        .ListObjects("Tall").ShowAutoFilter = False
        ' Activer la ligne Totaux
        .ListObjects("Tall").ShowTotals = True

        With Range("Tall[#all]")
            nom1 = .Cells(1, 2)
            nom2 = .Cells(1, .Columns.Count)
            nbrows = .Rows.Count - 2
        End With

        'Ajouter des formules de somme dans la ligne Totaux pour chaque colonne
        Range("Tall[[#Totals],[" & nom1 & "]:[" & nom2 & "]]").FormulaR1C1 = "=SUM(R[-" & nbrows & "]C:R[-1]C)"
    End With

l'explication est simple
tu met la même formule en r1c1 dans toute les cellule de la ligne total puisque qu'elle est valable pour toute les cellule

ou bien tu prends ce qu'il te faut au départ

VB:

Sub MonTbS()
   Dim Nom1, Nom2, Nbrows&
   With ShBilan
        ' Définir la plage pour le ListObject
        Set Rng = .Range("A3:J6")
          Nom1 = Rng.Cells(1, 2)
            Nom2 = Rng.Cells(1, Rng.Columns.Count)
            Nbrows = Rng.Rows.Count
         ' Créer le ListObject
        .ListObjects.Add(xlSrcRange, Rng, , xlYes).Name = "Tall"
        .ListObjects("Tall").TableStyle = "TableStyleLight16"
        .ListObjects("Tall").ShowAutoFilter = False
        ' Activer la ligne Totaux
        .ListObjects("Tall").ShowTotals = True
     
        'Ajouter des formules de somme dans la ligne Totaux pour chaque colonne
        Range("Tall[[#Totals],[" & Nom1 & "]:[" & Nom2 & "]]").FormulaR1C1 = "=SUM(R[-" & Nbrows & "]C:R[-1]C)"
    End With

End Sub

dysorthographie · Hier à 11:58

Bonjour,
Personnellement les sous totaux je les mets au dessus du tableau ça évite de scroller indéfiniment au moment d'appliquer un filtre sur les entêtes.

Mais a l'arrivée tu peux faire les deux !

XL 2010 Créer ListObject + Ligne Total

cathodique

XLDnaute Barbatruc

job75

patricktoulon

XLDnaute Barbatruc

Pièces jointes

dysorthographie

XLDnaute Accro

Discussions similaires