Calcul multiple à partir d'un tableau de référence

Version imprimable

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:

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:

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:

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!

04/12/2013, 13h47
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 ?
04/12/2013, 14h11
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
04/12/2013, 14h25
illight

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

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

Code:

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à :) )
04/12/2013, 15h18
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 ?
04/12/2013, 15h32
illight

Normalement, c'est comme tu avais écrit :)

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

Citation:

J'ai testé plusieurs choses du style :

Code:

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 (:mrgreen:), essaye de nous dire ce qui ne va pas justement : erreur, formule erronée, etc...
05/12/2013, 10h51
discus23

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

La formule

Code:

"=(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.
05/12/2013, 10h57
illight
Un truc comme ça :
Code:

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 :)
05/12/2013, 11h06
discus23

Quelle réactivité, merci !!
Ok, je ne connaissais pas ce .address, je vais essayer ça de suite.
05/12/2013, 11h20
illight

Moi non plus, je l'ai découvert il y a peu de temps ici :mrgreen:
05/12/2013, 11h30
Marc-L

Bonjour !

Et pourtant vous avez toute l'aide sous le coude, enfin à portée de souris !

Suffit de lire dans l'aide les propriétés de la collection Range …

__________________________________________________________________________________________
En informatique, la curiosité n'est pas un vilain défaut !
05/12/2013, 11h42
discus23
Je tatonne et j'avance avec tous ces conseils.
J'arrive maintenant à remplir chaque case de chacun de mes tableaux, mais la formule fait toujours référence à la même ligne dans le tableau de base.
Pour boucler sur les lignes du tableau, j'ai rajouté un For :
Code:

1 2 3 4 5 6 For j = 2 To y - 1 For k = 2 To nbAxe Cells(i, j).Formula = "=(" & Cells(k, j).Address & "-$B2)^2" Next k Next j
La boucle K me permet de lire toutes les lignes du tableau de référence, mais dans les tableaux résultats, les formules font toutes appel à la dernière ligne du tableau de base (= fin de la boucle K).
Cela est-il dû au fait que .address retourne l'adresse d'une cellule avec des "$" ?
Comment palier à ce problème?
05/12/2013, 12h51
Marc-L

Citation:

Envoyé par discus23

Cela est-il dû au fait que .address retourne l'adresse d'une cellule avec des "$" ?
Comment palier à ce problème?

Tout est pourtant dans l'aide de la propriété Range.Address ‼
05/12/2013, 13h39
discus23

Effectivement.
05/12/2013, 14h03
illight
Citation:
Envoyé par discus23

Je tatonne et j'avance avec tous ces conseils.
J'arrive maintenant à remplir chaque case de chacun de mes tableaux, mais la formule fait toujours référence à la même ligne dans le tableau de base.
Pour boucler sur les lignes du tableau, j'ai rajouté un For :

Code:

1 2 3 4 5 6 For j = 2 To y - 1 For k = 2 To nbAxe Cells(i, j).Formula = "=(" & Cells(k, j).Address & "-$B2)^2" Next k Next j

La boucle K me permet de lire toutes les lignes du tableau de référence, mais dans les tableaux résultats, les formules font toutes appel à la dernière ligne du tableau de base (= fin de la boucle K).
Cela est-il dû au fait que .address retourne l'adresse d'une cellule avec des "$" ?
Comment palier à ce problème?
Autre question : que vaut i dans ton code là ?

Mon problème initial part d'un tableau de base, à partir duquel je crée autant de tableau que le tableau de base contient de colonnes.
Si mon tableau initial a 7 colonnes et 10 lignes, le i me permet de parcourir les 70 lignes totales.

Voilà ma tambouille finale, je ne sais pas si c'est très propre, mais j'obtiens ce que je souhaitais :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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
 
k = 1
l = 2
 
For i = x + 2 To (x + y + (x * y))
    For j = 2 To y - 1
        If Cells(i, 1).Value > 0 And Cells(i, 1).Value <= nbAxe Then
            Cells(i, j).Interior.ColorIndex = 3
            Cells(i, j).Formula = "=(" & Cells(k, j).Address(False, False) & "-" & Cells(k, l).Address & ")^2"
        End If
    Next j
 
    If Cells(i, 1) = "" Then
        l = l + 1
    End If
 
    k = k + 1
 
Next i

Merci pour ton aide !!

05/12/2013, 15h33
illight

Je te conseille de mettre quelques commentaires dans ton code, ça sera plus simple si tu dois le reprendre après ;)