Bonjour,
Si je comprends bien, vous désirez que l'un des critères de la formule se trouvant en M11 soit automatiquement modifié pour ne pas à avoir à éditer la formule manuellement ?
Dans ce cas, il suffit d'ajouter dans votre formule une référence à une cellule que vous viendrez ensuite modifier (manuellement ou par macro).
Exemple :
- Code: Tout sélectionner
=SI(L10<O6;"continue";"arret")
Dans cette formule, le critère <5 est remplacé par O6. Il suffirait ensuite de venir renseigner votre valeur 5;10;15 etc. dans cette cellule O6 :
- En la saisissant à la main
- ou en créant une macro qui renseignerait la valeur.
Exemple pour mettre 5 dans la cellule O6 :
- Code: Tout sélectionner
Sub Macro1()
Range("O6").Select
ActiveCell.FormulaR1C1 = "5"
End Sub
Ensuite, vous pouvez faire appel à cette macro grâce à un bouton qui aurait le code suivant :
- Code: Tout sélectionner
Private Sub CommandButton1_Click()
Call Macro1
End Sub
Bonne année à vous également.
@+