Discussion :

[NulenVBA]

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
Dim j As Integer
Dim i As Integer
Dim somme As Byte
For i = 36 To 60
somme = 0
For j = 1 To Worksheets.Count - 2
If Cells(i, 6).Value > 0 Then
MsgBox "Ok"
somme = somme + Worksheets(j).Cells(i, 6).Value
Else: somme = 0
End If
Next j
Worksheets("Résultats d'ensemble").Cells(i - 8, 4).Value = somme
Next i
End Sub

La condition de test if toute simple ne marche pas, le programme fait comme si il n'y avait pas de valeur supérieure à 0. Or, si j'enlève la condition la somme fonctionne et me revoie un nombre supérieur à 0. J'ai vérifié que les nombres étaient au format nombre. Vraiment pas simple de coder :-)

[pgz]

Bonjour


As-tu essayé cela

Code :

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

If Worksheets(j).Cells(i, 6).Value > 0 Then

?

PGZ

[alsimbad]

Code :

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

1
2
somme = somme + Worksheets(j).Cells(i, 6).Value
Else: somme = 0

si tu fais comme ça, chaque fois que la condition n'estr pas nbonne ta somme reviens a zéro. donc elle ne peut pas etre bonne
il te faut faire

Code :

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

1
2
3
if Cells(i, 6).Value > 0 Then
somme = somme + Cells(i, 6).Value > 0
end if

et pas de else. somme restera ce qu'il était

[NulenVBA]

Oui, merci! D'ailleurs en effet entretemps j'avais corrigé