Supprimer de tableau temporaire valeurs

Private Sub CommandButton1_Click()
Dim L As Integer, x As Integer
Dim L2 As Integer
Dim i As Byte
Dim durée As Variant
Dim TabTemp() As Date
Dim TabTemp2() As Date
Dim TabTemp3() As Date

Columns(1).ClearContents
durée = CDate(TextBox2.Value) - CDate(TextBox1.Value)
' Remplir le tableau de valeurs, tous les jours de la semaine.
For L = 1 To durée
x = x + 1
ReDim Preserve TabTemp(1 To x)
TabTemp(x) = CDate(TextBox1.Value) - 1 + L
Next L
'remplir 2 ieme tableau en ne gardant que les jour voulu
x = 0
For i = 1 To UBound(TabTemp)
If Weekday(TabTemp(i)) = Val(TextBox3.Value) Then
x = x + 1
ReDim Preserve TabTemp2(1 To x)
TabTemp2(x) = TabTemp(i)
End If
Next i
'Supprimer du tabTemp les jours de vacances
x = 0
For i = 1 To UBound(TabTemp2)
If TabTemp2(i) CDate(TextBox4) Then
x = x + 1
ReDim Preserve TabTemp3(1 To x)
TabTemp3(x) = TabTemp2(i)
End If
Next i



'Coller valeurs tab
If Not x = 0 Then 'ici on gere le fait que le tableau tabtemp pourrait etre vide
For L2 = 1 To UBound(TabTemp3, 1)
Cells(L2, 1).Value = TabTemp3(L2)
Next L2
End If

End Sub

Cliquez pour agrandir...