A voir également:
- [Excel]Somme avec conditions
- Formule somme excel colonne - Guide
- Liste déroulante excel - Guide
- Excel cellule couleur si condition texte - Guide
- Somme si couleur excel - Guide
- Si et excel - Guide
3 réponses
Désolé petit prob de mise en page , j'ai oublié la balise code ;)
A B 1 0 1 2 1 1 3 0 1 4 1 1 5 1 1 6 1 1 7 0 1 8 0 1 9 1 1 10 1 1 11 1 1 12 0 0 | | | | | |
je ne sait pas si cela peut régler ton problème,
tu fait une colonne Cavec la condition (si a<1;c=0;c=b) et faire la somme de C par la site
tu fait une colonne Cavec la condition (si a<1;c=0;c=b) et faire la somme de C par la site
pour ecrire en Colonne C
Sub Macro1()
'
Dim i As Integer, valA As Integer, sumB As Integer
i = 1
Do While Range("A" & i).Value <> ""
If Range("A" & i).Value = 0 Then
sumB = Range("B" & i).Value 'on initialise la valeur de la somme
i = i + 1
Do While Range("A" & i).Value = 1
sumB = sumB + Range("B" & i).Value
i = i + 1
Loop
Range("C" & i - 1).Value = sumB
Else
Range("C" & i - 1).Value = sumB
End If
Loop
End Sub
Sub Macro1()
'
Dim i As Integer, valA As Integer, sumB As Integer
i = 1
Do While Range("A" & i).Value <> ""
If Range("A" & i).Value = 0 Then
sumB = Range("B" & i).Value 'on initialise la valeur de la somme
i = i + 1
Do While Range("A" & i).Value = 1
sumB = sumB + Range("B" & i).Value
i = i + 1
Loop
Range("C" & i - 1).Value = sumB
Else
Range("C" & i - 1).Value = sumB
End If
Loop
End Sub