Sous total en VBA

Bonjour,

J'en appelle à vos connaissance pour pouvoir intégrer par une macro un sous-total de la feuille BASE par code Flux.

Le seul moyen que j'ai trouvé, c'est de faire le TCD en macro pour avoir le total de chaque code Flux.

En vous remerciant de votre aide.

20test.zip (33.41 Ko)

Bonjour,

à tester.

Cordialement.

28sophang.xlsm (52.67 Ko)

Bonjour, il existe une fonction dans excel qui l’exécute. Sur 2007 allez dans l'onglet Donnée puis tout à droite dans la sous-rubrique Plan.

Bonjour,

pour ajouter à ce que disent avec raison mes petits camarades, il y a aussi ceci

(nommer les colonnes de la feuille "base" avant par depuis A1 --> CTRL* et puis CTRL-Maj provi-F3)

Sub SousTotal()

Dim Ws1, Ws2 As Worksheet

Dim C

Set Ws2 = Sheets("base")

Set Ws1 = Sheets("macros")

Set d = CreateObject("Scripting.Dictionary")

For Each C In [flux] "flux doit être une zone nommée !!!

d(C.Value) = d(C.Value) + C.Offset(, 2).Value

Next C

Ws1.[a25].Resize(d.Count, 1) = Application.Transpose(d.keys)

Ws1.[b25].Resize(d.Count, 1) = Application.Transpose(d.items)

End Sub

Bonjour,

Une solution avec tableau (dynamique) et TCD.

Cdlt.

13test.xlsm (43.30 Ko)
snip 20151125034738

Bonjour bigdaddy154,

Ta macro me semble plus compréhensible à mon niveau. Je ne dis pas que les autres réponses sont mauvaises.

J’ai essayé d’incorporer ta macro à la mienne (bouton macro « Importation fichier »), je ne comprends pas ce message :

« Erreur de compilation : Variable non définie »

Cordialement.

Bonjour,

l'erreur viens du fait qu'au début du module tu as Option Explicit qui t'impose de déclarer l'ensemble de tes variables.

Ps : j'ai également supprimer tes modules vierges ça commençait à être le boxon

Cordialement.

Merci !

Rechercher des sujets similaires à "total vba"