A voir également:
- [Excel]Somme avec conditions
- Liste déroulante excel - Guide
- Formule excel - Guide
- Somme excel - Guide
- Somme si couleur excel - Guide
- Déplacer une colonne 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