bonjour,
macro modifiée
Option Explicit
Sub Macro1()
'
Dim nbserie&, i&, j&, dl&, ng&
nbserie = 3 ' nbseries à créer, progression linéaire
With ActiveSheet
dl = .Cells(Rows.Count, 2).End(xlUp).Row 'dl= dernière ligne utilisée en colonne 2 (colonne B)
For j = 1 To nbserie ' titre colonne en ligne 2
.Cells(2, 6 + j * 2) = "Serie"
.Cells(2, 5 + j * 2) = j + 0.5
Next j
For i = 3 To dl 'on parcourt toutes les lignes
If .Cells(i, 2) = "" Then Exit For 'on quitte la boucle si journée=""
ng = .Cells(i, 4) + .Cells(i, 5) 'ng nombres de goals =somme colonne D+colonne E pour la ligne i
.Cells(i, 6) = ng 'mettre nombre de goals en colonne F
For j = 1 To nbserie ' nbseries à créer
If ng > j + 0.5 Then 'test si nombre de goals supérieur à la valeur pivot pour la série j ( donc 1.5 pour série 1, 2.5 pour série 2, ....)
If .Cells(i - 1, 3) = .Cells(i, 3) Then 'equipe sur la ligne = equipe sur la ligne précédente
.Cells(i, 6 + j * 2) = .Cells(i - 1, 6 + j * 2) + 1 'incremente compteur de la série
'sinon
Else
.Cells(i, 6 + j * 2) = 1 'initialise compteur à 1
End If
.Cells(i, 5 + j * 2) = "Oui" 'score pivot dépassé
Else
.Cells(i, 6 + j * 2) = 0 'initialise compteur à 0
.Cells(i, 5 + j * 2) = "Non" 'score pivot pas dépassé
End If
Next j 'série suivante
Next i 'ligne suivante
End With
'
End Sub