Boucle For, formule et cellule fixe

Bonjour,

Je cherche a réaliser une boucle de calcul mais je ne trouve pas la syntaxe correcte pour ma formule...Je m'explique:

Je voudrais qu'a chaque cellule de la colonne "y" un calcul se réalise : multiplier la valeur d'une case situé dans la même colonne "y" mais située 269 lignes plus haut avec la valeur d'une cellule qui elle reste a une position fixe (colonne 1). Ma commande réalise bien la boucle pour chaque colonne, mais le calcul ne garde pas la position de la case fixe a chaque tour de boucle (Colonne A, ligne 273).

Je n'arrive pas a trouver la syntaxe correcte pour spécifier à la formule que la case de calcul A273 reste fixe

For y = 2 To 651

Cells(273, y).Select

ActiveCell.FormulaR1C1 = "=A273*R[-269]C"

Next

La deuxième étape de mon problème est d'implémenter une nouvelle boucle qui répétera la commande précédente a chaque ligne "i"

mais une fois de plus je suis bloqué par la syntaxe de la formule.

Merci d'avance pour votre aide précieuse!

Cordialement,

Salumanu

Bonjour ,

Pense à joindre un fichier-exemple , c'est plus parlant ^^

Sinon pour ta boucle tu peut créer une variable qui prend la valeur de "A273" avant la lancement de la boucle , elle ne devrait pas bouger .

Et pour la seconde boucle juste rajouter un for

for i =  2 to 651
For y = 2 To 651
Cells(i, y).Select
ActiveCell.FormulaR1C1 = "=A273*R[-269]C"
next y
Next i

ou un truc du genre non ?

cordialement

Merci pour votre aide!

Je ne suis pas très a l'aise avec les variables mais ça me semble être une bonne solution, seulement une fois de plus je ne trouve pas de syntaxe correcte!

' Macro3 Macro

'

'For i = 273 To 273

For y = 2 To 651

Dim STI As Single

STI = (i, "A")

Cells(273, y).Select

ActiveCell.FormulaR1C1 = "= STI*R[-269]C"

Next y

Next i

Ma variable STI comprends les nombres a virgule, donc une variable de type "Single" si j'ai bien compris. J'ai essayé avec et sans Cells mais j'ai une message d'erreur de syntaxe

Cordialement

Re

Encore une fois , avec un fichier exemple c'est plus parlant

Macro3 Macro
Dim STI As Single'
dim i , y as integer

STI = Range("A" & i).Value

For i = 273 To 273
For y = 2 To 651
Cells(273, y).Select
ActiveCell.FormulaR1C1 = "= STI*R[-269]C"

Next y
Next i

essaye comme sa , je ne suis pas très à l'aise avec l'utilisation de "cells" ^^

cordialement

Voila un fichier exemple c'est vrai que ce sera plus simple!

Chaque cellule de la première ligne doit etre mpultipliée a la valeur en rouge (valeur fixe) de la ligne qui lui correspond, et ce pour chaque ligne

J'ai le message d'erreur suivant: La méthode range de l'objet_Global a échoué

Ça ne marche pas non plus avec Cells

j'ai adapté la macro au fichier exemple

'Macro3 Macro

Dim STI As Single '

Dim i, y As Integer

STI = Range("A" & i, "A" & i).Value

For i = 6 To 7

For y = 2 To 20

Cells(6, y).Select

ActiveCell.FormulaR1C1 = "= STI*R[-269]C"

Next y

Next i

End Sub

Merci encore pour votre aide,

Cordialement,

Salumanu

Bonjour,

si j'ai bien compris voici le code qui fonctionne:

Sub Macro1()
Application.ScreenUpdating = False
For Y = 2 To 651
For I = 6 To 7
Cells(I, Y).FormulaR1C1 = "= R[0]C1*R[-5]C"
Next I
Next Y
Application.ScreenUpdating = True
end Sub

Amicalement

Super ça marche!

Merci beaucoup pour votre aide!

Cordialement,

Salumanu