XL 2016 Sous.Total en VBA

Scorpio

XLDnaute Impliqué
Bonjour à tous,
Alors voilà, j'ai un code pour extraire mes données sur une autre feuille, est j'aimerais ajouter un bout de code supplémentaire pour faire le sous.Total d'une colonne ou plus de colonne
J'ai fais ce code, mais il est fait que pour la feuille SEFA, est j'aimerais qu'il fonctionne sur toutes feuilles
Quelqu'un pourrais me donner un coup de pouce s'il vous plaît, merci
A++++

Sub SousTot()
ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,Sefa!R[-19]C:R[-1]C)"
Range("D21").Select
Range("J23").Select
End Sub
 

Lone-wolf

XLDnaute Barbatruc
Bonsoir Scorpio

D'après D21 et J23, sinon à modifier
VB:
Public i As Long, k, x

Sub Sous-Total()
For i = 1 to Sheets.count
With Sheets(i)
k = WorksheetFunction.SubTotal(9, .Range("d2:d65536"))
x = WorksheetFunction.SubTotal(9, .Range("j2:j65536"))
End With
Next i
For i = 1 to Sheets.count
With Sheets(i)
.Range("d21") = k
.Range("j23") = x
End With
Next i
End Sub
 

Discussions similaires

Réponses
5
Affichages
273
Réponses
21
Affichages
499

Statistiques des forums

Discussions
312 884
Messages
2 093 245
Membres
105 658
dernier inscrit
Mario Richard