Discussion :

[D@rkneo]

comme l'indique le titre j'aurrais besoin d'aide, j'ai cherché un peu sur le net et sur ce forum mais je n'ai rien trouvé.
je voudrais remplacer une valeur ecrite en dur dans une condition par une valeur contenue dans une variable pour commencer, j'aurrais une autre question après, mais je créerais un topic approprié
je veux remplacer 3900 par la variable ecretage, la ligne que j'ai modifié fonctionne pas

Code :

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

1
2
3
4
Dim ecretage As Integer
ecretage = 3900
'ActiveCell.FormulaR1C1 = "=(IF(RC[-10]<3900,RC[-10],3900))"
ActiveCell.FormulaLocal = "=(IF(RC[-10]<" & ecretage & ",RC[-10]," & ecretage & "))"

merci de votre aide

[tonton fred]

Bonjour,

Tu peux commencer par remplacer ca

Code :

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

ActiveCell.FormulaLocal = "=(IF(RC[-10]<" ....

par ca

Code :

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

ActiveCell.FormulaR1C1 = "=(IF(RC[-10]<....

[D@rkneo]

j'avais déja testé ça et en cherchant j'ai trouvé sur ce forum d'essayer de remplacer FormulaR1C1 par FormulaLocal mais ça ne marche pas, voilà pourquoi j'ai posté pour avoir de l'aide

[tonton fred]

Chez moi ton code marche bien avec FormulaR1C1 mais pas avec FormulaLocal. Tu as quoi comme message d'erreur ? Tu as bien une cellule activee ?

[D@rkneo]

je comprends pas là, je viens de retester et ça marche
tant mieux

merci de votre aide