Macro avec boucle for

[seblob]

Bonjour,
Je cherche à réaliser une macro avec boucle for. Le but est de faire un calcul un certain nombre de fois et de reporter le résultat de chaque calcul dans un tableau.

Voilà la macro:

Sub Macro1()

Sheets("Rayonnement").Select

For i = -4 To 11
If Range("BF8") = "x" Then

Range("BJ8:BM8") = "=Meteo!RC[-58]" 😡
Else: Range("BJ8:BM8").Select
ActiveCell.FormulaR1C1 = "=RC[-40+3*i]" 😡
End If
If Range("CX8") = "x" Then
Range("DB8") = "=Meteo!RC[-102]" 😡
Else: Range("DB8").Select
ActiveCell.FormulaR1C1 = "=RC[-40]"
End If
Sheets("Bilan").Select
Range("O6:R6").Select
ActiveCell.FormulaR1C1 = "=Rayonnement!R[2]C[109]*Rayonnement!R[2]C[118]"
Range("S6:V6").Select
Next i

End Sub

Le problème est lorsque je place la variable i entre les [] la macro ne fonctionne plus.
Merci beaucoup pour vos éclairsissements éclaircissements 🙂🙂

 

[tbft]

Re : Macro avec boucle for

bonjour

as tu essayé de mettre +cstr(i)+ à la place de i??

 

[seblob]

Re : Macro avec boucle for

Quelle rapidité!!
J'ai essayé mais cela ne marche pas.
erreur 1004 "les type ne coïncident pas"
Seb.

 

[tbft]

Re : Macro avec boucle for

pourrais tu me donner le code de ta macro ,stp?
celle avec le for

 

[Si...]

Re : Macro avec boucle for

bonsoir

avec une variable i, à essayer :

Range("J8:M8") = "=Meteo!R[[B]" & i & "[/B]]C[-58]"

 

[tbft]

Re : Macro avec boucle for

Bonjour

essaye avec

 "=Meteo!R[" & cstr(i) & "]C[-58]"

cstr() renvoi un string

 

[seblob]

Re : Macro avec boucle for

hello
ça fonctionne.🙂🙂 Merci beaucoup pour le coup de main. Je me doutais bien du problème mais je n'ai trouvé aucune doc sur le R [] C[] dans l'aide.
Encore merci.

Bonjour

essaye avec

 "=Meteo!R[" & cstr(i) & "]C[-58]"

cstr() renvoi un string

 

[tbft]

Re : Macro avec boucle for

Hi

Le problème ne vient pas de R [] C[] mais du faite que tu essayais de mélanger des chiffres et des lettres....

 

[Pierrot93]

Re : Macro avec boucle for

Bonjour,

le code ci-dessous fonctionne chez moi, et ce sans passer par une fonction de conversion....

Dim i As Integer
i = 5
ActiveCell.FormulaR1C1 = "=RC[" & i & "]"

bon après midi
@+

 

[tbft]

Re : Macro avec boucle for

Faites comme si j'avais rien dit