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 :

SUMIF qui plante


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
    Novembre 2008
    Messages
    123
    Détails du profil
    Informations personnelles :
    Âge : 48
    Localisation : France, Calvados (Basse Normandie)

    Informations forums :
    Inscription : Novembre 2008
    Messages : 123
    Par défaut SUMIF qui plante
    Bonjour,

    Je débute sous VBA et ma principale difficulté c'est comment bien écrire mes formules de calcul.

    Ex : je bute sur un SumIf :
    - je veux connaître la somme conditionnelle de la condition QOTSA.
    - la plage est C:C
    - la somme est d:d

    je ne veux afficher que le résultat.

    La formule ci-dessous plante
    ------
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Dim sumif As Integer
     
        sumif = Application.WorksheetFunction.SumIf(Range("c1:c3"),""QOTSA"",Range("d1:d3"))
    L'autre méthode ci-dessous fonctionne bien:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Range("D8").Select
        ActiveCell.FormulaR1C1 = _
            "=SUMIF(R[-7]C[-1]:R[-5]C[-1],""Therapy"",R[-7]C:R[-5]C)"
    PLus généralement, auriez vous de la doc pour les formules de calcul sous vba excel ?

    Merci

  2. #2
    Membre éclairé
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    48
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 48
    Par défaut
    Bonjour


    J'ai oté les " en trop
    J'ai défini les plages de cellules avec Set

    Si tu as des questions, n'hésites pas.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Sub MACRO_TEST()
    Dim Plage As Range
    Dim Plage_A_Sommer As Range
    Set Plage = _
        Range("C1:C" & [C65536].End(xlUp).Row)
    Set Plage_A_Sommer = _
        Range("D1:D" & [C65536].End(xlUp).Row)
    Dim result As Double
    result = _
        Application.SumIf(Plage, "QOTSA", Plage_A_Sommer)
    MsgBox result
    End Sub
    A+

    J.L

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

Discussions similaires

  1. PB d'update qui plante aléatoirement sans renvoyer d'erreur
    Par plc402 dans le forum MS SQL Server
    Réponses: 5
    Dernier message: 01/08/2005, 09h10
  2. [Novice] Problème avec Eclipse 3.0.x qui plante
    Par esolarc dans le forum Eclipse Java
    Réponses: 1
    Dernier message: 27/05/2005, 13h22
  3. Programme qui plante
    Par harris_macken dans le forum C++
    Réponses: 1
    Dernier message: 22/05/2005, 23h50
  4. Pc qui plante
    Par tooms2028 dans le forum Ordinateurs
    Réponses: 9
    Dernier message: 19/03/2005, 17h32
  5. [JTextArea] redessin qui plante
    Par phil_ma dans le forum Composants
    Réponses: 3
    Dernier message: 04/01/2005, 05h19

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