debutantn1
XLDnaute Junior
Salut à tous,
On m'a filé un fichier excel à étudier et je ne comprend pas une partie du code.
ReDim TABLEAU(1, cREF)
For k = 1 To UBound(REF, 1)
If IsEmpty(REF(k, 6)) = False Then TABLEAU(1, REF(k, 6)) = Sheets(FEUIL + "0").Cells(L1, REF(k, 4)).Resize(l - L1 + 1, 1)
Next k
ReDim MATRICE(UBound(TABLEAU(1, 1), 1), UBound(TABLEAU, 2))
For i = 1 To UBound(MATRICE, 1)
For j = 1 To UBound(MATRICE, 2)
MATRICE(i, j) = TABLEAU(1, j)(i, 1)
Next j
Next i
Cela fait partie d'une macro qui prend des données sur un onglet, les retraite dans une matrice virtuelle, et les colle dans un ordre et un format défini sur un autre onglet. Ce n'est pas moi qui ai fait ce code et j'ai donc du mal à le debogger: l'avant, avant dernière ligne bloque. Si quelqu'un saurait me dire ce que ce code signifie cela me serait tres utile.
merci, paul
On m'a filé un fichier excel à étudier et je ne comprend pas une partie du code.
ReDim TABLEAU(1, cREF)
For k = 1 To UBound(REF, 1)
If IsEmpty(REF(k, 6)) = False Then TABLEAU(1, REF(k, 6)) = Sheets(FEUIL + "0").Cells(L1, REF(k, 4)).Resize(l - L1 + 1, 1)
Next k
ReDim MATRICE(UBound(TABLEAU(1, 1), 1), UBound(TABLEAU, 2))
For i = 1 To UBound(MATRICE, 1)
For j = 1 To UBound(MATRICE, 2)
MATRICE(i, j) = TABLEAU(1, j)(i, 1)
Next j
Next i
Cela fait partie d'une macro qui prend des données sur un onglet, les retraite dans une matrice virtuelle, et les colle dans un ordre et un format défini sur un autre onglet. Ce n'est pas moi qui ai fait ce code et j'ai donc du mal à le debogger: l'avant, avant dernière ligne bloque. Si quelqu'un saurait me dire ce que ce code signifie cela me serait tres utile.
merci, paul