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 :
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
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 SubEst-ce que quelqu'un pourrait éclairer ma lanterne? Je n'ai pas trouvé la réponse dans le forum
Code : Sélectionner tout - Visualiser dans une fenêtre à part ReDim Preserve dureetable(2, dureetableubound To dureetableubound + 1)
Partager