Somme avec 2 conditions vba excel

Version imprimable

12/08/2014, 20h21
ChNoirhomme

1 pièce(s) jointe(s)

Somme avec 2 conditions vba excel

Bonjour,

Je suis toujours aussi bleu en VBA et cela fait deux jours que je cherche un code VBA pour:

Voila mon problème.

Voici en annexe.
En fait si valeur en A = valeur suivant et valeur en B = valeur suivante tant que ses egalité existe => rappel des données en E et F on fait la somme des valeur en G => sinon on passe aux valeur suivante .
En attaché voici mon fichier.

Merci de votre aide.

Bonsoir
13/08/2014, 10h17
Kimy_Ire

Bonjour ChNoirhomme,

Alors, je ne sais pas si c'est ce que tu veux, mais d'après ce que j'ai compris tu veux voir la "QTY" chaque "Pays".
Je pense qu'il n'y a pas plus simple qu'un TCD.

Tu sélectionnes ta plage de valeur sur A, B et C. Tu cliques sur "Insertion" / Tableau croisé dynamique. Tu le positionnes où tu le souhaites (Feuil2 par exemple). Puis tu mets "Type" sur les étiquettes de lignes, "Pays" sur les colonnes et "Somme de QTY" sur les valeurs !

Le tour est joué ! =D

Cordialement,
Kimy
13/08/2014, 11h43
ChNoirhomme

Somme avec 2 conditions vba Excel

Merci pour votre aide mais cette opération fait partie d’un processus pour déterminer plus tard d’autre résultat, j’aurai vraiment besoin d’un Macro.

bien à vous
13/08/2014, 14h31
rjamin

Bonjour,
Il ne faut pas nécessairement passer par VBA pour faire cela, en G2 vous inscrivez la formule

Code:

=SOMMEPROD(($A$2:$A$1203=E2)*($B$2:$B$1203=F2)*$C$2:$C$1203)

et vous la copier vers le bas.
13/08/2014, 15h33
ChNoirhomme

Somme avec 2 conditions vba excel

Merci pour votre aide mais j'ai déja 20 macro avant et j'en aurais encore + d'une dizaine après.
Chaque semaine comme le parc machines change je doit adapter automatiquement.
Je doit passer par une macro.
J'ai vraiment besoin de votre aide
en avance merci.

Christian:calim2:

Salut ChNoirhomme,

Je ne vois pas bien l'intérêt de la macro pour ton cas mais quoi qu'il en soit, je te propose ceci.
Ca fonctionne mais je n'ai pas vérifié que les valeurs étaient exactes.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Option Explicit
 
Sub ChNoirhomme()
Dim i, j As Integer
Dim rng_tab As Range
Dim table_pays_pays()
Dim rd As Integer
Dim bool As Boolean
 
With Worksheets("Feuil1")
    Set rng_tab = .Range("B2")
    rd = 1
    ReDim table_pays(1 To 3, 1 To rd)
    table_pays(1, rd) = rng_tab.Offset(0, -1)
    table_pays(2, rd) = rng_tab
    table_pays(3, rd) = rng_tab.Offset(0, 1)
 
    For i = 1 To .Columns(2).Find("*", , , , , xlPrevious).Row - 1
        If rng_tab.Offset(i, 0) <> "" Then
            bool = True
            For j = LBound(table_pays, 2) To UBound(table_pays, 2)
                If (rng_tab.Offset(i, 0) = table_pays(2, j) And rng_tab.Offset(i, -1) = table_pays(1, j)) Then
                    table_pays(3, j) = table_pays(3, j) + rng_tab.Offset(i, 1)
                    bool = False
                    Exit For
                End If
            Next j
 
            If bool Then
                rd = rd + 1
                ReDim Preserve table_pays(1 To 3, 1 To rd)
                table_pays(1, rd) = rng_tab.Offset(i, -1)
                table_pays(2, rd) = rng_tab.Offset(i, 0)
                table_pays(3, rd) = rng_tab.Offset(i, 1)
            End If
        End If
    Next i
 
'    .Range("E1") = "Type"
'    .Range("F1") = "Pays"
'    .Range("G1") = "QTY Total"
 
    .Range("E2:G" & .Columns(7).Find("*", , , , , xlPrevious)).ClearContents
 
    Set rng_tab = .Range("E1")
    For i = LBound(table_pays, 2) To UBound(table_pays, 2)
        For j = 0 To 2
            rng_tab.Offset(i, j) = table_pays(j + 1, i)
        Next j
    Next i
 
End With
 
End Sub

Je te laisse revenir vers moi pour tout complément. :ccool:

Cordialement,
Kimy