Bonjour,

Voici un nouveau problème auquel je suis confronté, qui semble venir d'un simple problème de boucle, mais qui est en train de me rendre fou.

En partant d'un premier tableau de référence, de taille X*Y, je veux créer Y tableaux, les uns en dessous des autres.
Chacun des Y nouveaux tableaux étant composés de formules de calcul faisant appel au tableau de référence, le tableau 1 se sert de la colonne 1, le tableau 2 de la colonne 2, et le tableau Y de la colonne Y.

Mon raisonnement se décompose pour le moment en 2 étapes.

Dans la première, j'ai simplement dupliqué Y fois le tableau de référence :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
    With Sheets("TCD")
        x = .Range("A" & .Rows.Count).End(xlUp).Row
        y = .Cells(1, .Columns.Count).End(xlToLeft).Column
        Z = .Range(.Cells(1, 1), .Cells(x, y))
        For i = 1 To y - 2
            .Cells(i * (x + 1) + 1, 1).Resize(x, y) = Z
        Next i
    End With
Première étape qui s’avérera certainement inutile par la suite, mais je n'ai pas trouvé mieux pour le moment...

Et dans la deuxième étape, je parcours chaque cellule de tous les tableaux pour y appliquer la formule (en dur) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
Cells(i, j).FormulaR1C1 = "=(R[-17]C-R[-17]C2)^2"
Bien sûr, cette formule fonctionne, mais uniquement pour le premier tableau résultat. Je n'arrive pas à jouer avec les variables à l'intérieur de la formule.

J'ai testé plusieurs choses du style :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 Cells(i, j).FormulaR1C1 = "=(R[-" & (x + 1) * j & "]C-R[-" & x + 1 & "]C2)^2"
mais cela ne va pas du tout....

Merci d'avance de votre aide!