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 :

Calcul avec une boucle


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    64
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 64
    Par défaut Calcul avec une boucle
    Bonjour,
    J'ai 2 feuilles:"Statistiques" et "traitement"
    Je souhaite qu'un bouton permette de multiplier les colonnes B et C de la feuille "traitement" et envoi le résultat dans la cellule C10 de la feuille "Statistiques".
    En gros que le bouton face le calcul suivant: B1*C1 + B2*C2+ B3*C3... jusqu'à la derniére ligne non vide.
    Je joint un fichier Excel pour une meilleur compréhension.
    Merci d'avance pour votre aide
    Cdt

    lien:http://cjoint.com/?iAk3NI567G

  2. #2
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    64
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 64
    Par défaut
    Je me suis trompé sur les calculs que je souhaitais et je n'arrive pas à trouver la bonne formule maintenant (je suis débutant)
    J'avais dit: B1*C1 + B2*C2+ B3*C3...
    En faite c'est: B1*C1 +G1*H1+ B2*C2+ G2*H2+ B3*C3+ G3*H3....

    La formule qu'on m'avait donnée été celle là:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Sub Calcul()
    Dim Ligne As Long
    Ligne = ThisWorkbook.Worksheets("Traitement").Range("B6553 6").End(xlUp).Row
    ThisWorkbook.Worksheets("Statistiques").Range("C10 ").FormulaR1C1 = "=SUMPRODUCT(Traitement!R1C2:R" & Ligne & "C2,Traitement!R1C3:R" & Ligne & "C3)"
    End Sub
    Quel modification faut-il faire par rapport aux modification que j'ai apporté dans le calculs.
    Merci d'avance pour votre aide

  3. #3
    Membre éclairé Avatar de casavba
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    464
    Détails du profil
    Informations personnelles :
    Localisation : Belgique

    Informations forums :
    Inscription : Juillet 2007
    Messages : 464
    Par défaut
    Essaie ça.
    Sachant que pour ton problème, il n'ya pas lieu d'utiliser une macro ---> juste une formule matricielle dans la cellule C10 fera l'affaire.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    Sub TestCalcul()
     
    '===== Déclaration des Variables ======
    Dim A As Double
    Dim LaSomme As Double: LaSomme = 0
     
        With Worksheets("Traitement")
    '=== Boucle qui effectue le calcul demandé =============
    ' Ici on considère que le calcul commence à partir de la ligne 2 jusqu'à la dernière ligne de la colonne B '
    '  /!\ tu peux tester toutes les colonnes et determiner quelle est la dernière ligne non vide (que ce soit
    '  dans B, C, G ou H ou autre)   ---> Dans ce cas tu adaptes le code.
     
            For i = 2 To .Cells(65536, 2).End(xlUp).Row
                A = (.Cells(i, 2) * .Cells(i, 3)) + (.Cells(i, 7) * .Cells(i, 8))
                    LaSomme = LaSomme + A
            Next
        End With
     
    '====== Affichage du résultat dans la cellule C10 de la feuille "Statistiques"
    Worksheets("Statistiques").Cells(10, 3) = LaSomme
     
    End Sub

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

Discussions similaires

  1. Réponses: 4
    Dernier message: 02/06/2015, 20h59
  2. [XL-2010] Insérer une formule de calcul avec une boucle
    Par jessylfoh dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 16/09/2014, 20h13
  3. Macro calculs avec une boucle
    Par mizou00 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 13/08/2010, 03h00
  4. Réponses: 1
    Dernier message: 30/03/2005, 15h50
  5. Generer des noms de variables avec une boucle
    Par moutanakid dans le forum MS SQL Server
    Réponses: 4
    Dernier message: 28/07/2004, 17h45

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