Bonjour CHti160,
J'ai utilisé ton code pour coller mon tableau dans une plage de même dimension.
à l'issue de la commande il semble que chaque ligne soit remplie de la première ligne de mon tableau.
Code:
Worksheets(8).Activate
count = ActiveSheet.Range(Selection, Selection.End(xlDown)).Rows.count ' compte le nombre de jeu il y a.
Dim A as Integer
Dim tableau_Jeu()
Dim tableau_conso()
ReDim tableau_Jeu(count - 1)
ReDim tableau_conso(count - 1)
For A = 0 To count - 1
tableau_Jeu(A) = Cells(A + 4, 2).Value
tableau_conso(A) = "=Max('" & tableau_Jeu(A) & "'!$K$79:$K$300)" 'défini la bonne "adresse" de la valeur qu'on veut récupérer
'Cells(A + 4, 9).Value = tableau_conso(A) 'exemple de quelque chose qui fonctionne mais prend du temps on colle la valeur incrémentation après incrémentation
Next A
' Range(Cells(4, 9), Cells(4 + UBound(tableau_conso, 1), 9)).Select
' Selection = tableau_conso
Cells(4, 9).Resize(1 + UBound(tableau_conso, 1)) = tableau_conso
Lorsque je fais ça, il me colle ma valeur tableau_conso(0) dans toutes les cases de ma plage excel.
Je vous remercie par avance de votre aide.
En l'occurrence je n'ai pas créé les feuilles portant le nom encore donc ça m'affiche REF mais la formule dans toutes les cases est donc =MAX(Element1!$K$79:$K$300)