Discussion :

[MahyST]

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 : il y a soit une erreur d'exécution incompatibilité de type soit une erreur de syntaxe

Voici quelques exemples de mes tests :

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 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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...

[gFZT82]

Bonjour,

Tu peux également effectuer une somme plus "basique"

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
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.

[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é

[Thautheme]

Bonjour le fil, bonjour le forum,

Peut-être comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cel.Value = 63 Or Cel.Value = 65 And Cel.Offset(0, 1) = "contractuels" Then

[MahyST]

Bonjour à tous,

Merci pour vos réponses.

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