Sous totaux(9) macro ?

[oki]

Bonsoir ,

Je essaie de faire de sous-totaux avec VBA mais j'y arrive pas. Pourriez-vous m'aider s'il vous plaît?

Je voudrais faire des sous totaux pour les colonnes B, D , G des lignes 22, 44, 66, 88 le résultat en bas de la page dans la ligne 90 de la colonne B , D et G. En PJ le fichier .

Merci d'avance

 

[Softmama]

Re : Sous totaux(9) macro ?

Bonsoir,

Une réponse en PJ.

Sub sousTotal()
Dim c As Range, Tableau
Tableau = Array("B90", "D90", "G90")
    For t = 0 To 2
        Set c = Range(Tableau(t))
        c.FormulaR1C1 = "=R[-2]C+R[-24]C+R[-46]C+R[-68]C"
    Next t
End Sub

 

[oki]

Re : Sous totaux(9) macro ?

Merci beaucoup !
C'est parfait 🙂

Bonne soirée