Bonjour à tous et à toutes,
J'aurai voulu adapter cette macro de manière à ce qu'elle calcule uniquement les sommes pour les périodes allant du 01/10 au 31/06 de l'année SUIVANTE. Il s'agirait donc de coupler des années en excluant les mois de juillet, août et septembre.
Voici un exemple:
01/10/1988 au 31/06/1989
01/10/1989 au 31/06/1989
etc...jusque 2012
Merci d'avance pour votre aide! Voici ma macro à modifier
Sub genformule()
' b =début de période pour l'instruction sum
b = 2
' l numéro de ligne
l = 2
' pas de mise à jour de l'écran pendant la durée de la macro
Application.ScreenUpdating = False
' oldcalc paramètres du recalcul des formules
oldcalc = Application.Calculation
' pas de recalcul pendant la durée de la macro
Application.Calculation = xlCalculationManual
' boucle pour 370 grille
For i = 1 To 370
Cells(l, "G") = i
' boucle pour 25 années
For j = 1988 To 2012
Cells(l, "H") = j
' détermination du nombre de jours pour l'année
If j Mod 4 = 0 Then nj = 366 Else nj = 365
' insertion de la formule sum pour une année
f = "=sum(C" & b & ":C" & b + nj - 1 & ")"
Cells(l, "I").Formula = f
l = l + 1 : ' on passe à la ligne suivante
b = b + nj ' on adapte le début de la période pour l'instruction sum
Next j
Next i
Application.ScreenUpdating = True
Application.Calculation = oldcalc
End Sub