somme si en VBA

Version imprimable

somme si en VBA

Bonjour,

Je suis débutante en VBA et je dois automatiser un fichier dans l'entreprise où je réalise mon stage:

J'ai 2 fichiers
1/ Données
2/ Synthèse des données

La macro que je souhaite réaliser doit me donner ceci :

1/Dans le fichier synthèse lorsque je clique sur le bouton de ma macro, le fichier données doit s'ouvrir
2/ Dans le fichier synthèse dans la cellule K5 faire la somme si :
dans le fichier données en colonne A j'ai le compte "63" et "65" et dans la colonne B "contractuels" alors tu me fait la somme de la colonne H

Pour ouvrir le fichier (1) pas de souci la macro fonctionne mais c'est mon somme si qui ne fonctionne pas. J'ai testé plusieurs écritures de code et là je craque :calim2::calim2:: il y a soit une erreur d'exécution incompatibilité de type soit une erreur de syntaxe

Voici quelques exemples de mes tests :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Sub Ouverture_Données() Dim Fichier As Variant Dim Données As Workbook 'Déclare la variable cs comme classeur source Fichier = Application.GetOpenFilename If Fichier = False Then Exit Sub Workbooks.Open Fichier Set Hypothèse_données = ActiveWorkbook Sheets("Synthèse").Activate.Cells("K5").Value = ApplicationWorksheetfunction.SumIf(Données!Range("A:A"), "=63" Or "65" & Range("b:b"), "=contractuels", Range("h:h")) Else MsgBox "ERROR" End If End Sub
2ème essai

Code:

Sheets("Synthèse").Activate.Cells("K5").Value = ApplicationWorksheetfunction.SumIf(données!Range("A:A"), "63" Or "65" & Range("b:b"), "contractuels", Range("h:h"))

3ème essai :
Code:

1 2 3 4 5 6 7 8 9 10 If Workbooks("données").Worksheets("Analytique").Columns("A").Select = "63" Or "65" & Columns("b") = "contractuel" Then Sheets("Synthèse").Cells("5,12").Value = ApplicationWorksheetfunction.Sum(données!Sheets("Analytique").Columns("h")) Else MsgBox "ERROR" End If
... ET BIEN D'AUTRES ESSAIS!!!!

Si j'arrive à trouver mon code sur cette ligne, je vais pouvoir l'appliquer à tout mon fichier synthèse..

help me

25/10/2014, 09h16
78chris

Bonjour

Le ou n'existe pas pas les fonctions SOMME.SI et consœurs : il faut SOMME.SI basé sur une valeur + SOMME.SI basé sur l'autre.

On peut aussi utiliser SOMMEPROD.

Cependant ce type de synthèse s'obtient plus simplement avec un TCD...

Bonjour,

Tu peux également effectuer une somme plus "basique"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Ouverture_Données()
Dim Fichier As Variant
Dim Cel As Range
Dim SommeH As Double
    Fichier = Application.GetOpenFilename
    If Fichier = False Then Exit Sub
    Application.ScreenUpdating = False
    Workbooks.Open Fichier
    With ActiveWorkbook.Worksheets("Analytique")
        For Each Cel In .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
            If (Cel = 63 Or Cel = 65) And Cel.Offset(0, 1) = "contractuels" Then
                SommeH = SommeH + Cel.Offset(0, 7)
            End If
        Next Cel
    End With
    ThisWorkbook.Sheets("Synthèse").Range("K5") = SommeH
    ActiveWorkbook.Close
End Sub

Cordialement.

25/10/2014, 12h03
eriiic

Bonjour,

Essaie déjà de le faire sur une feuille : tu ne peux pas faire de somme.si() avec un OU.
Tu dois faire la somme de 2 somme.si(), avec chacune des valeurs à tester.

eric

edit : déjà dit par 78chris, désolé
25/10/2014, 12h32
Thautheme

Bonjour le fil, bonjour le forum,

Peut-être comme ça :

Code:

If Cel.Value = 63 Or Cel.Value = 65 And Cel.Offset(0, 1) = "contractuels" Then
26/10/2014, 14h09
MahyST

Code bon

Bonjour à tous,

Merci pour vos réponses. :P

Je ne savais pas que l'opérateur OU ne fonctionne pas avec un somme SI. J'aurais pu chercher longtemps!
J'ai réussi à faire mon code à partir d'une fonction si basique.
J'ai appris des choses grâce à vos messages : le déplacement des cellules, la boucle avec le for each