Discussion :

[tarantino]

Bonjour,

J'utilise l'outil "solver" d'excel pour trouver un optimum.
Pour des raisons techniques je voudrais le faire boucler en changant quelques parametre concernant une variable fixée. (variable jouant sur les contraintes mais pas sur les variables, bref)

Je veux donc changer 4 données de départ puis faire calculer l'optimum avec le solveur. Ceci "i" fois.

Cependant je n'arrive pas a ecrire de la bonne manière le fait de passer au données suivantes. ("offset" était ma dernière tentative)
Pouriez-vous m'aider?

Voici la partie du code qui pose problème :
est ce que je devrai faire passer le "i" apres le -26 et si oui avec quelle syntaxe?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sheets("Données projet").Select
For i = 1 To j
        Range("F28").Select
        ActiveCell.FormulaR1C1 = "=Vitrage!R[-26]C[7].Offset(i, 0)"
        Range("F29").Select
        ActiveCell.FormulaR1C1 = "=Vitrage!R[-27]C[8].Offset(i, 0)"
        Range("F32").Select
        ActiveCell.FormulaR1C1 = "=Vitrage!R[-30]C[12].Offset(i, 0)"
        Range("F39").Select
        ActiveCell.FormulaR1C1 = "=Vitrage!R[-37]C[13].Offset(i, 0)"
 
...
 
next i

Merci beaucoup.

[mercatog]

Sans les Select ni les activecell svp

Code :

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

1
2
3
4
5
6
With Sheets("Données projet")
   For i = 1 To j
      .Range("F28").FormulaR1C1 = "=Vitrage!R[" & i - 26 & "]C[7]"
      '...la suite
   Next i
End With

[tarantino]

Merci beaucoup pour ta contribution. Ca marche nikel et cloture mon programme.