Cellule en read only

Bonjour à tous,

Est-il possible d'empêcher l'édition d'une cellule en fontion de la valeur d'une autre ?


Merci par avance.

Bonjour,

Une piste avec "Worksheet_Change". A mettre dans le module de la feuille concernée. Le contrôle se fait sur la cellule A1, si A2 = 1000 alors, A1 doit garder sa valeur (ici 500) sinon, la modif est autorisée :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Worksheet_Change(ByVal Target As Range)   'si c'est A1 If Not Intersect(Target, [A1]) Is Nothing Then   'si A2 = 1000 alors, la valeur de A1 doit rester inchangée et est égale à 500 If [A2] = 1000 Then   Application.EnableEvents = False   [A1] = 500   Application.EnableEvents = True   End If   End If   End Sub

---

Hervé.

Merci Theze ça marche nickel. :ccool: