Bonsoir à tous !!
J'ai eu à créer une matrice à 2 dimensions de 1000 lignes :
- dans la première dimension, les dates à partir du 04/02/2016 sur 1000jours.
- dans la seconde dimension, la date du dernier jour du mois précédent par rapport aux dates de la premières dimension.
Mon problème arrive car je dois extraire les dates supérieures à 2016 de la seconde dimension et mettre ces valeurs une matrice finale doit être redimensionnée automatiquement.
je vous mets ci-dessous le début de mon code.
Sub TestArray()
Dim Array_Temp(1 To 1000, 1 To 2) As Variant
Dim i As Integer
Dim iets As Date
Do Until i = 1000
i = i + 1
Cells(i, 1) = DateAdd("d", i, "04/02/2016")
Loop
For i = 1 To 1000
iets = Cells(i, 1)
Cells(i, 2) = DateAdd("d", -1, DateSerial(year(iets), month(iets), 1))
Next i
For i = 1 To 1000
If Cells(i, 2) > #12/31/2016# Then
Cells(i, 3) = Cells(i, 2)
End If
Next
End Sub
J'avoue que là je sèche, je n'ai jamais utilisé de tableau de cette façon.
Je vous remercie de votre aide.