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
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
Pièces jointes
Dernière édition: