Re(bonjour),
Personne n'a d'idée sur la procedure?
J'ai la double boucle ci-dessous. Est-ce que ça pourrait marcher (ça dépend aussi de comment je défini mes variables je suppose). Et j'ai un message d'erreur m'indiquant que l'indice n'appartient pas à la selection (PluieObs(j))...
Dim CumulAnnuel(1 To 9, 1 To 21) As Double
Dim PluieObs() As Double
Dim DateObs As Date
Dim NbAnn As Integer, NPluvio As Integer
Dim i As Integer, j As Integer, m As Integer
ReDim PluieObs(1 To NPluvio, 1 To Nval)
For i = 1 To NPluvio
For j = 1 To NbAnn
Do
CumulAnnuel(j, i) = 0
CumulAnnuel(j, i) = CumulAnnuel(i, j) + PluieObs(j)
Loop Until Year(DateObs) <> Ann1 + a - 1
Next j
Next i
Merci d'avance.
Bonne journée !