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 :

Cacul de sous total en VBA avec conditions [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2014
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2014
    Messages : 8
    Par défaut Cacul de sous total en VBA avec conditions
    Bonjour,
    J'aimerais calculer en vba selon la date faire la somme des données.je suis débutant en vba et un coup de main serait bien sympathique.
    Exemple pour la date du 05/01/2015 j'aimerais avoir 9208689 à la ligne 6 dans la colonne Total Général.
    Pour info,le nombre de lignes selon les dates est variable.

    Merci d'avance

    Nom : excel.JPG
Affichages : 716
Taille : 65,3 Ko

  2. #2
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Comme il est plus rapide de taper ce code que d'expliquer comment faire :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Dim Som as Double
    Dim Lig as Long
    Som = 1
    For Lig = 2 to Cells(Rows.Count,1).End(xlUp).Row
       Som = Som + Cells(Lig,3)
       If Cells(Lig,1).Value <> Cells(Lig+1,1).Value Then 
          Cells(Lig,5).Value = Som
          Som = 0
       End If
    Next Lig

  3. #3
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    Menhir, y'a deux trucs que je comprend pas, je dois passer à côté de quelque chose

    1) Pourquoi tu initialises Som à 1 en début de procédure ? J'aurai plutôt laissé à 0
    2) le total général est en colonne D, j'aurai plutôt vus Cells(Lig,4).Value = Som

  4. #4
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Oui pour Som=0. J'ai mélangé deux sujets.

  5. #5
    Membre averti
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2014
    Messages
    8
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : Finance

    Informations forums :
    Inscription : Avril 2014
    Messages : 8
    Par défaut
    J'ai testé ça marche nickel!!!!!merci beaucoup
    Par contre il faillait bien mettre ceci comme remonté par joe.levrai
    2) le total général est en colonne D, j'aurai plutôt vus Cells(Lig,4).Value = Som

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

Discussions similaires

  1. [XL-2007] Recherche VBA avec condition
    Par Leodams dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 20/06/2013, 12h40
  2. boucle sous vba avec condition
    Par ons1402 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 19/06/2012, 12h20
  3. faire une boucle sous vba avec condition
    Par ons1402 dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 05/03/2012, 17h16
  4. numérotation en vba avec condition
    Par nrdz83 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 26/01/2010, 20h06
  5. Macro somme/sous.total(9;..) automatique avec code couleur
    Par jerem2007 dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 03/07/2009, 19h46

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