somme conditionnelle [Résolu]

[Alex.d]

J'aurais une question par rapport à la somme si vous permettez.

J'aimerais savoir s'il est possible avec un macro de calculer ou bien d'une autre façons :

La somme de chaque cellule de la colonne C à chaque fois que la cellule de la colonne B Correspond au mot : "Total"

J'aurais penser à quelque chose dans ce genre, mais je suis bloqué pour additionner la somme de ses chiffre et les placé dans une cellule

Code :

1
2
3
4
5
6
7
8
9
 
Sub GénérationTOT()
LR = Range("B65536").End(xlUp).Row
    For X = LR To 1 Step -1
        If Cells(X, "B").Value = "Total" Then
                Cells(X, "C").
        End If
    Next X
End Sub

merci!

[alsimbad]

interesse toi a la fonction sommeprod

[tedo01]

Bonjour,
La fonction SOMME.SI permet de faire ça. Par exemple, pour faire l'opération sur les lignes de 1 à 1000 :

Code :

=SOMME.SI(B1:B1000;"Total";C1:C1000)

[tarnx]

Voilà pour faire le total :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub GénérationTOT()
Dim Ws As Excel.Worksheet
Dim total As Integer
Dim LR As Integer
Dim X As Integer

Set Ws = ThisWorkBook.WorkSheets("NomDeTaFeuille")

With Ws
    total = 0
    LR = .Range("B65536").End(xlUp).Row
        For X = LR To 1 Step -1
            If .Range("B" & X).Value = "Total" Then
                total = total + .Range("C" & X).Value
            End If
        Next X
End With
End Sub

Pour placer le total dans un cellule, il faut adapter :

Code :

Ws.Range("TaCellule").Value = TonTotal

[Alex.d]

Merci beaucoup!

Cela fonctionne parfaitement!

Alex