Discussion :

[PJ_VBA]

Bonjour,
J'ai un besoin urgent d'effectuer des sommes sous condition en VBA (excell 97). Je joins un petit fichier où j'ai résumé simplement la problématique.

En fait, je souhaite obtenir en feuille 3 (cellule B6) la somme des montants de la colonne G (plage variable) dans la feuille 2 avec la condition d'avoir en correspondance "CE" en colonne H.

Voici mon code qui ne m'apporte pas la solution :

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
23
24
25
26
27
Sub somme_finale()
 
Dim compteur As Long
 
 
Sum = 0
 
ligne = 2
 
finG = Sheets("Feuil2").Range("G65535").End(xlUp).Row
 
For compteur = 2 To finG
 
 
   If Sheets("Feuil2").Range("H" & compteur).Value = "CE" Then
 
        Sum = Sum + Sheets("Feuil2").Range("G" & ligne).Value
 
     ligne = ligne + 1
 
    End If
 
Next
 
Sheets("Feuil3").Range("B6").Value = Sum
 
End Sub

Merci d'avance pour l'aide

[mercatog]

Pas besoin de vba
En B6 de Feuil3

Code :

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

=SOMME.SI(Feuil2!H2:H100;"CE";Feuil2!G2:G100)

[gFZT82]

Bonjour,

Dans ta boucle, tu utilises 2 variables : "compteur" pour l’itération et "ligne" pour la ligne correspondant à la valeur à intégrer au cumul.
Le problème, c’est que "ligne" ne s’incrémente que lorsque la condition sur la cellule adjacente à celle pointée par "compteur" est vérifiée. Tu crée ainsi un décalage entre la ligne scrutée et la ligne qui contient la valeur à cumuler et au final, tu ne cumules pas les bonnes valeurs.
Pour obtenir un résultat correct, il te suffit d’utiliser une seule variable (Ligne).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Sub Somme_finale()
Dim FinG As Long, Ligne As Long
Dim Cumul As Double
    With Worksheets("Feuil2")
        FinG = .Range("G65535").End(xlUp).Row
        For Ligne = 2 To FinG
            If .Range("H" & Ligne).Value = "CE" Then
                Cumul = Cumul + .Range("G" & Ligne).Value
        End If
    Next
    End With
    Worksheets("Feuil3").Range("B6").Value = Cumul
End Sub

Cela dit, il est vrai que VBA ne s’impose pas dans un cas pareil.

Cordialement.

[PJ_VBA]

Bonjour et merci aux 2 personnes m'ayant répondu rapidement.

En fait je connais la SOMME.Si sous Excel mais je travaille sur un projet entièrement à traiter en VBA.

La réponse apportée en VBA marche très bien. Cependant, en réalité (je ne l'avais pas précisé), en colonne G il y a parfois des valeurs égales à zéro. Le cumul s'arrête alors et je n'obtiens pas le véritable total par code se trouvant en colonne H. Pourriez-vous m'aider ?

J'ai aussi un problème avec VLookup. Je maitrise la syntaxe de base mais dans mon projet il y a des plages variables dans 2 feuilles distinctes. Si j'applique la méthode de base je rapatrie plus de valeurs qu'il n'en faut ("N/A"). J'ai essayé de définir des plages variables mais cela ne marche pas. Pourriez-vous également m'aider ?

Précisions :Si les 2 plages étaient fixes, le code serait

Code :

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

Range("K2:K2667") = Application.WorksheetFunction.VLookup(Range("C2:C2667").Value, Worksheets("feuil2").Range("A2:B2667"), 2)

Malheureusement, la colonne K (en feuil1) varie et la colonne C aussi (information associée à la colonne K). Idem pour la zone en feuil2. La feuil1 contient des données et la feuil2 des normes que je veux lui associer.

Par avance merci

[mercatog]

SOMME.SI en vba

Code :

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

1
2
3
4
5
6
7
8
Sub Somme_Finale()
Dim FinG As Long
 
With Worksheets("Feuil2")
    FinG = .Cells(.Rows.Count, "G").End(xlUp).Row
    Worksheets("Feuil3").Range("B6").Value = Application.SumIf(.Range("H2:H" & FinG), "CE", .Range("G2:G" & FinG))
End With
End Sub