Insertion de sous totaux en VBA

Bradvid · 29 Août 2007

Bonjour le forum,

Je souhaiterais insérer des sous totaux dans une liste à chaque changement de valeur dans la cellule. Un peu comme la fonction mais sans le mode plan et tout ceci en langage VBA.

Merci par avance.

CB60 · 29 Août 2007

Re : Insertion de sous totaux en VBA

Bonjour
Peut être de cette façon:
une zone nommée,
toto=DECALER(Feuil2!$I$2;;;NBVAL(Feuil2!$I:$I)-1)

et une macro,qui met la formule en "L3"

Range("L3").FormulaR1C1 = "=SUBTOTAL(9,toto)"

Bradvid · 29 Août 2007

Re : Insertion de sous totaux en VBA

Bonjour CB60,

Merci pour ton retour mais je ne suis pas sur de tout comprendre.

Comment dois je nommer la matrice avec une formule decaler?

CB60 · 29 Août 2007

Re : Insertion de sous totaux en VBA

re
avec :
Insertion, nom, définir
le nom= "toto "
et la formule ="=DECALER(Feuil2!$I$2;;;NBVAL(Feuil2!$I:$I)-1)"
sur cet exemple je prend la colonne I à partir de I2 (Feuil2!$I$2) et il me comptabilise combien de cellules sont renseignés (NBVAL(Feuil2!$I:$I)-1 le moins 1 correspont au titre de la colonne)

Bradvid · 29 Août 2007

Re : Insertion de sous totaux en VBA

CB60 à dit:
re
avec :
Insertion, nom, définir
le nom= "toto "
et la formule ="=DECALER(Feuil2!$I$2;;;NBVAL(Feuil2!$I:$I)-1)"
sur cet exemple je prend la colonne I à partir de I2 (Feuil2!$I$2) et il me comptabilise combien de cellules sont renseignés (NBVAL(Feuil2!$I:$I)-1 le moins 1 correspont au titre de la colonne)

Re CB60,

Je vois maintenant ce que tu voulais faire mais ce n'est pas tout à fait cela:

Je cherche également à insérer des lignes à chaque changement de valeur pour y mettre le total qui correspond.
Petit exemple en attaché.

Merci encore pour ton aide.

CB60 · 29 Août 2007

Re : Insertion de sous totaux en VBA

re
et avec une liste déroulante et sommeprod cela n'irais pas

Insertion de sous totaux en VBA

Bradvid

XLDnaute Occasionnel

CB60

XLDnaute Barbatruc

Bradvid

XLDnaute Occasionnel

CB60

XLDnaute Barbatruc

Bradvid

XLDnaute Occasionnel

Pièces jointes

CB60

XLDnaute Barbatruc

Pièces jointes

Discussions similaires