Hello!

Je fais (encore) appel à vous, pour un problème de variable tableau. J'ai vu dans le forum qu'avec redim, on peut que modifier la taille de la dernière dimension, j'ai fait ce code pour récupérer les données d'un tableau excel pour pouvoir le trier ensuite et renvoyer le tableau obtenu dans une feuille fraichement créée :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Filtre()
Dim dureetable() As String
Dim i As Integer, dureetableubound As Integer
 
Set WScible = Worksheets("Résumé")
ReDim dureetable(2, 0)
 
'Entrée des valeurs nom, date login et durée dans le tableau
For i = 2 To WScible.Range("B65536").End(xlUp).Row
 
    dureetableubound = UBound(dureetable, 2)
    ReDim Preserve dureetable(2, dureetableubound To dureetableubound + 1)
    dureetable(0, dureetableubound + 1) = WScible.Range(Cells(i, 1).Address).Value
    dureetable(1, dureetableubound + 1) = WScible.Range(Cells(i, 2).Address).Value
    dureetable(2, dureetableubound + 1) = WScible.Range(Cells(i, 6).Address).Value
 
Next i
End Sub
Malheureusement, ça me fait une erreur après que mon tableau ait un Ubound de "1"... je suis pas sûr de cette ligne :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ReDim Preserve dureetable(2, dureetableubound To dureetableubound + 1)
Est-ce que quelqu'un pourrait éclairer ma lanterne? Je n'ai pas trouvé la réponse dans le forum