Bonsoir
Je cherche à remplir un tableau () en recopiant des valeurs d'une feuille excel le plus rapidement possible car j'ai beaucoup de données ( 1,3 million ) . J'ai essayé un boucle, ça marche bien, mais je veux plus rapide.
Je me suis inspiré du code de Jacques boisgontier ce qui donne le code ci dessous:
sub TEST()
dim Tb_Brut ()
Tb_Brut = [A1:M100000].Value
i = 0
j = 0
For i = 0 To 100000
If IsDate(Tb_Brut(i, 5)) = True Then
Tb_Brut(i, 13) = Month(Tb_Brut(i, 5))
Tb_Brut(i, 14) = WorksheetFunction.WeekNum(Tb_Brut(i, 5))
End If
Next
end sub
Mon problème, c'est que je n’arrive pas à travailler avec les données du tableau, il plante sur "IsDate".
Pourtant les données existent, car, quant je fait la manip inverse ( [A1].Resize(UBound(Tb_Brut, 1), UBound(Tb_Brut, 2)).Value = Tb_Brut ) je les copie bien sur ma feuille.
Quelqu'un peut-il m'expliquer ce mystère, et me proposer une solution ?
Teckno