Re bonjour
Je viens d'essayer de comprendre ça marche partiellement on va dire !
J'ai écris à force de bidouille ça :
For f = 0 To nb_soc
For m = 0 To Nb_lignes_tab + 1
For p = 0 To 5
tab_soc(f, m, p) = x
x = x + 1
Next
Next
Next
ReDim tab1(Nb_lignes_tab + 1, 5)
For m = 0 To Nb_lignes_tab + 1
For p = 0 To 5
tab1(m, p) = tab_soc(f, m, p)
Next
Next
MsgBox "date :" & tab1(2, 0) & "Open :" & tab1(2, 1) & "Higt :" & tab1(2, 2) & "low:" & tab1(2, 3) & "Close:" & tab1(2, 4)
'Sheets("Graph").Range(Cells(W - 1, col), Cells(W + Nb_lignes_tab, col + 5)) = tab1
Sheets("Graph").Range("A51").Resize(Nb_lignes_tab + 1, 5) = tab1
Conclusion : Je m'explique, la colonne "A" rien pas de données, vide !
Les colonnes se remplissent de la "B" à la "E" !
| 06/01/2020 | 12.985 | 12.995 | 12.740 |
J'ai un Msgbox qui lui si je le rempli comme ça :
MsgBox "date :" & tab1(2, 0) & "Open :" & tab1(2, 1) & "Higt :" & tab1(2, 2) & "low:" & tab1(2, 3) & "Close:" & tab1(2, 4) !!! j'ai la date de vide, donc la colonne "A" est vide !
si je le rempli comme ça :
MsgBox "date :" & tab1(2, 1) & "Open :" & tab1(2, 2) & "Higt :" & tab1(2, 3) & "low:" & tab1(2, 4) & "Close:" & tab1(2, 5) !!!!! là dans le Msgbox ça marche j'ai bien toutes mes données !
Je suis léger en vba je manque d'expérience et là je ne trouve pas !
Désolé
Est ce que tu as une solution stp ?
Merci