[VBA Excel] fonction sous.total(9; ) en vba

chercheur92 Messages postés 28 Date d'inscription   Statut Membre -  
ccm81 Messages postés 11033 Statut Membre -
Bonjour !
Sur ma feuille total, j'ai plusieurs sous totaux. le nbre des sous totaux est variable selon le choix de l'utilisateur. mes sous totaux sont calculés avec la fonction SUM( ). Mon probleme est que je n'arrive pas à faire le total des sous totaux
Pour chaque sous total, j'ai le detail. Donc quand j'utilise SUM pour calculer le total j'ai la somme de tous les détails mais aussi la somme de tous les sous totaux.
en excel la fonction sous.total(9; plage ) permet de calculer la somme. pour calculer le total, il suffit de mettre sous.total(9; ), il prendra que les sous totaux. le probleme est qu'en vba je n'arrive pas à utiliser cette fonction.
pour resumer ma question est : comment mettre en A5 la somme de A6 à A10 avec l'équivalent de sous.total(9; ) en vba ? comme ça pour faire le total j'utiliserai de nouveau sous.total(9; )
Merci d'avance. je compte sur votre aide.

2 réponses

  1. Kobaya Messages postés 282 Date d'inscription   Statut Membre Dernière intervention   214
     
    bonjour,

    Range("A5").FormulaR1C1 = "=SUBTOTAL(9,R[1]C:R[6]C)"
    0
    1. Mysth
       
      Bonjour,

      Kobaya, juste merci, je ne pensais pas que c'était aussi simple... Tu me sauves la vie !
      0
    2. mysth
       
      cac
      0
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    bonjour à tous les deux

    ou encore, en bon français (utiliser FormulaLocal)
    Range("A5").FormulaLocal = "=SOUS.TOTAL(9;A1:A5)"

    bonne suite
    -1