XL 2016 Sous.Total en VBA

[Scorpio]

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]

Bonsoir Scorpio

D'après D21 et J23, sinon à modifier

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

 

[Scorpio]

Bonsoir Lone-Wolf,
Merci de ton aide, je vais tester a solution, mis pas ce soir. Je te tiens informer
Merci de ton aide et bonne soirée
A+++

 

[Scorpio]

Bonjour Lone-Wolf
J'ai fais le test, j'ai saisi le code dans un module vide, mais les lignes
.Range("D21") = k
.Range("G23") = x

deviennent jaune

A+++

 

[Lone-wolf]

Bonjour Scorpio,

Fait un test mais avec 1 feuille seulement, je pense que cela est dû au faite de faire le sous-total sur toutes les feuilles. Et comme tu n'as pas mis le fichier, je ne peux pas faire de test.

 

[Scorpio]

Bonjour Lone-Wolf
Alors tu voix, mon fichier contient des données sensible, alors voilà.
Mais tu vois, sur un classeur neutre le total n'est pas juste.
A++++

 

[Lone-wolf]

Re Scorpio

En PJ. Il faudra juste prendre la macro et modifier plage et cellules. Sélectionne un nom, puis clique sur le bouton.

 

[Scorpio]

Salut Lone-Wolf,
A oui, ça marche, super merci, j'ai pas encore fais le test sur mon classeur
Je vais regarder ça
Merci et bon Week End
A+++++