Bonjour,
(j'ai préféré faire des petits dessins pour essayer que ce soit clair... (car j'ai toujours du mal à expliquer....
J'ai un Tblo :
J'aimerai le transformer à partir de la valeur tblo(x,1) pour obtenir ça :
La manipulation est :
aujourd'hui, je fais :
Mais je pense qu'il doit y avoir plus rapide.....
Merci pour votre aide,
(j'ai préféré faire des petits dessins pour essayer que ce soit clair... (car j'ai toujours du mal à expliquer....
J'ai un Tblo :
J'aimerai le transformer à partir de la valeur tblo(x,1) pour obtenir ça :
La manipulation est :
aujourd'hui, je fais :
VB:
Sub es()
'creation tblo
tblo = Feuil1.Range("AC2:AJ" & Feuil1.Range("AJ" & Rows.Count).End(xlUp).Row)
'ce que je fais actuellement, mais qui n'est pas très rapide car 200000 lignes...
Set F = Feuil1
For i = 2 To F.Range("AC" & Rows.Count).End(xlUp).Row 'boucle
tbl(F.Cells(i, 29), F.Cells(i, 30), 1) = F.Cells(i, 31)
tbl(F.Cells(i, 29), F.Cells(i, 30), 2) = F.Cells(i, 32)
tbl(F.Cells(i, 29), F.Cells(i, 30), 3) = F.Cells(i, 33)
tbl(F.Cells(i, 29), F.Cells(i, 30), 4) = F.Cells(i, 34)
tbl(F.Cells(i, 29), F.Cells(i, 30), 5) = F.Cells(i, 35)
tbl(F.Cells(i, 29), F.Cells(i, 30), 6) = F.Cells(i, 36)
Next
End Sub
Mais je pense qu'il doit y avoir plus rapide.....
Merci pour votre aide,
Pièces jointes
Dernière édition: