Discussion :

[discus23]

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!

[illight]

Personnellement, j'ai toujours eu du mal avec le FormulaR1C1, qui est une référence relative pas très explicite.

Pourquoi tu n'utilise pas un Formula simple ? c'est quoi ta formule initiale dans ta case, quand tu l'écris à la main ?

[discus23]

Merci pour ce premier retour.

Il est vrai que j'utilise FormulaR1C1 car je l'ai appris comme ça à l'époque (via l'enregistreur de macro).

Sinon, ma formule est : =(B1-$B2)^2

[illight]

Ta cellule B2 ne doit pas bouger ? ou le '$' qui traine c'est une faute de frappe ?

En tout cas, avec la ligne Formula ça donnerait ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(i, j).Formula = "=(B1-$B2)^2"

Après, suivant tes variables et tout ça, tu peux remplacer facilement ce que tu souhaites

Tes références peuvent par la suite être modifier, en les incluant dans tes boucles,e t en les incrémentant correctement.

(je ne sais pas ce que représente j donc je préfère te laisser gérer cette partie-là )

[discus23]

Merci,
Je vais essayer ça dès que possible.

Dans Formula, si je veux intégrer des variables donc, je dois procéder comme j'avais tenter de le faire dans mon premier message, en concaténant le texte de la formule et mes variables ?
Ou bien existe t il une autre façon de procéder ?

[illight]

Normalement, c'est comme tu avais écrit

Par ailleurs, je reviens un peu en arrière, mais :

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....

Qu'entend-tu par "cela ne va pas du tout" ? ça ne te met pas la bonne formule ? ça te fait une erreur ? quelle est la formule dans ta cellule ?

Vu que tu vas passer par le "Formula", si jamais "ça ne va pas du tout (), essaye de nous dire ce qui ne va pas justement : erreur, formule erronée, etc...

[discus23]

Je me permets de relancer ce sujet car je ne vois pas comment boucler avec Formula.

La formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=(B1-$B2)^2"

ne vaut que pour la première ligne/première colonne du premier tableau.
Mais comment boucler sur les Y colonnes du tableau ?...

Merci encore de votre aide.

[illight]

Un truc comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
for j = 2 to 10
cells(3,j).formula = "=(" & cells(1,j).address & "-$" & cells(2,j).address & ")^2"
next j

Cette boucle te permettra de mettre ta formule dans la 3e ligne pour chaque colonne, de la colonne 2 à 10.

A toi de l'adapter à ton code après

[discus23]

Quelle réactivité, merci !!
Ok, je ne connaissais pas ce .address, je vais essayer ça de suite.