Discussion :

[Maxgad]

Bonsoir,
Si quelqu'un peut m'aider svp
Je souhaiterai faire les sous totaux selon plusieurs If, dont voici le code:

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
28
29
30
31
32
33
34
35
36
37
38
39
 
Sub Total_OPCVM()
    Application.ScreenUpdating = False
Dim DerLig As Long, LigneAjout As Long, i As Long, Valeur As Long
Dim var1 As Single, var2 As Single
Dim var3 As Variant
Dim var4 As Variant
Dim Compteur As Double
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
 
Sheets("Fluval").Select
    Set Ws1 = Worksheets("Fluval")
    Set Ws2 = Worksheets("total OPCVM")
    DerLig = Ws1.Range("A" & Ws1.Rows.Count).End(xlUp).Row
    LigneAjout = 1
 
    Ws2.Range("A:AL").ClearContents
    For i = 1 To DerLig
        Compteur = Compteur + Ws1.Range("V" & i).Value
        var1 = Ws1.Range("A" & i).Value 'colonne A
        var2 = Ws1.Range("A" & i).Offset(1, 0).Value ' colonne A
        var3 = Ws1.Range("K" & i).Value 'colonne K
        var4 = Ws1.Range("R" & i).Value ' colonne R
 
        If (var2 <> var1 And var3 = "3" And var4 = "PROPRE") Then
 
            Ws2.Range("A" & LigneAjout) = var1
            Ws2.Range("B" & LigneAjout) = Compteur
            Compteur = 0
            LigneAjout = LigneAjout + 1
 
        End If
        End If
     Next i
 
    Set Ws1 = Nothing
    Set Ws2 = Nothing
    End Sub

Mais le problème c'est que le total ne tient pas compte des deux conditions var3 = "3" And var4 = "PROPRE".
Comment faire svp
NB: le fichier joint a été simplifié, l'original fait plus de 4000 lignes
Merci