Private Sub Worksheet

bjr tous le monde
j'ai trouvé cette macro dans le forum

Code:

---

1 2 3 4 5 6 7 8

Select Case Cells(1, 10) Case Is < 30 Cells(1, 11) = "message 1" Case 30 To 49 Cells(1, 11) = "message 2" Case Else Cells(1, 11) = "message 3" End Select

---

ma question est : comment je peux executer cette macro en utilisant Private Sub Worksheet_Change et precisement sur la cells(1,10).
merci à tous

b'jour,

Comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$1" Then Select Case Target.Value Case Is < 30 Cells(1, 11) = "message 1" Case 30 To 49 Cells(1, 11) = "message 2" Case Else Cells(1, 11) = "message 3" End Select End If End Sub

---

bjr
merci bcp.:yaisse2::yaisse2::yaisse2:
ça marche