IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[E-03] Après un tri comment faire des sous totaux


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé
    Inscrit en
    Décembre 2007
    Messages
    1 235
    Détails du profil
    Informations forums :
    Inscription : Décembre 2007
    Messages : 1 235
    Par défaut [E-03] Après un tri comment faire des sous totaux
    Bonjour, j'ai actuelement une macro qui me tri une plage de données par référence de produit. ce qui va me donner un résultat comme suit:

    Colonne A ........ Colonne Q

    Référence Produit Quantité


    80650 63
    80650 61
    80650 10


    80651 28
    80651 12
    80651 10


    .....

    Ce que je voudrais réussir à faire après execution de la macro, c'est faire un sous total après chaque changement de référence produit comme suit, en rappelant le numéro de référence en face du sous total

    Colonne A ........ Colonne Q

    Référence Produit Quantité


    80650 63
    80650 61
    80650 10


    80650 134 (Somme de 63+61+10)


    80651 28
    80651 12
    80651 10


    80651 50 (Somme de 28+12+10)

    Si quelqu'un voit comment faire?

    Et a la dernière ligne, je souhaiterais avaoir le total de tous les sous-totaux.

    Merci pour votre aide

    [EDIT]
    je n'arrive pas à vous illustrer la mise en forme, si besoins je peut fournir une petite explication sur WORD.

  2. #2
    Membre éprouvé
    Inscrit en
    Décembre 2007
    Messages
    1 235
    Détails du profil
    Informations forums :
    Inscription : Décembre 2007
    Messages : 1 235
    Par défaut
    Je pense qu'il y a moyen d'adapter la formule Excel "Sous-Total" et de l'adapter en VBA jusqu'à la dernière ligne?

  3. #3
    Membre Expert Avatar de Godzestla
    Homme Profil pro
    Chercheur de bonheur
    Inscrit en
    Août 2007
    Messages
    2 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de bonheur
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2007
    Messages : 2 403
    Par défaut
    Bonsoir Moilou2,

    je ne comprends pas ta demande, du tout car ce que tu demandes est très basique.

    J'ai saisis tes données dans une feuille puis via l'enregistreur de macro j'ai mémorisé ce que fais la fonction sous-total.

    J'obtiens ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
        Range("A1:B7").Select
        Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2), _
            Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    Ou est ta difficulté ?

  4. #4
    Membre éprouvé
    Inscrit en
    Décembre 2007
    Messages
    1 235
    Détails du profil
    Informations forums :
    Inscription : Décembre 2007
    Messages : 1 235
    Par défaut
    Non ce n'est pas sa que je veux faire. Je te met en fichier joint mon fichier et on en reparle directement.
    Fichiers attachés Fichiers attachés

  5. #5
    Membre Expert Avatar de Godzestla
    Homme Profil pro
    Chercheur de bonheur
    Inscrit en
    Août 2007
    Messages
    2 403
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 60
    Localisation : Belgique

    Informations professionnelles :
    Activité : Chercheur de bonheur
    Secteur : Industrie

    Informations forums :
    Inscription : Août 2007
    Messages : 2 403
    Par défaut
    Bon, ok et puis.

    Ca donne ça. Tu veux quoi à la place.

  6. #6
    Membre éprouvé
    Inscrit en
    Décembre 2007
    Messages
    1 235
    Détails du profil
    Informations forums :
    Inscription : Décembre 2007
    Messages : 1 235
    Par défaut
    Oui c'est sa que je veux, mais la le problème c'est que tu as fait par rapport au nombre de ligne pile poil, mais moi ce que je veux faire c'est que cela soit adaptable si j'ai 100, 200, 5 lignes et non pas pour un nombre de lignes définies...

    Tu vois se que je veut dire? ou Pas?

    En gros dans la formule que je ne vois pas ou tu la mise dailleur parce que c'est en lecture seul, il ne faut pas que se soit défini par exemple de la ligne A1 à la ligne A10..... Mais que ce soit de la ligne A1 jusqu'à la dernière ligne où il y a des données....

    C'est sa la formule que tu as utilisée?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
        Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("G2") _
            , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
            False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2 _
            :=xlSortNormal
        Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(15), _
            Replace:=True, PageBreaks:=False, SummaryBelowData:=True
    Mais en fait tu n'a pas définit une ligne pour la fin des données si? Je n'en ai pas l'impression?

    Tu as juste défini que c'était en fonction de la cellule A2 et G2 c'est tout, mais si il y avait eu 500 lignes sa aurait fonctionné aussi?

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [AC-2002] Comment calculer des sous-totaux dans une requete croisee
    Par babinou dans le forum Requêtes et SQL.
    Réponses: 2
    Dernier message: 19/08/2009, 09h43
  2. Faire des sous totaux
    Par Niagala dans le forum Excel
    Réponses: 3
    Dernier message: 07/02/2008, 14h52
  3. [Etat] Faire des sous totaux
    Par SBranchu dans le forum IHM
    Réponses: 3
    Dernier message: 30/03/2007, 09h50
  4. [MySQL] Comment faire des sous-totaux ?
    Par renaud26 dans le forum Langage SQL
    Réponses: 6
    Dernier message: 03/02/2006, 15h56
  5. [Debutant] Comment faire des sous-packages
    Par benratti dans le forum Eclipse Java
    Réponses: 2
    Dernier message: 17/02/2005, 13h46

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo