msgbox excel vba

Bonjour a tous

Voila je travail avec excel avec des valeurs en automatique qui varies et j aimerai faire une petite macro avec des alertes . ( je m explique )

- la cellule A1 = 72 , je voudrai que quand 72 apparait dans ma cellule une
inputbox apparait avec un titre : titre => Echantillion , et la question => prendre echantillon !
- quand je clic sur [ok] cela me mais une croix dans B2 , style comme une validation

cordialement a tous ;)

Bonjour,

Est ce que cela te convient
Code a mettre au niveau de la feuille

Code:

---

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

Private Sub Worksheet_Change(ByVal Target As Range)   If Target.Column = 1 And Target.Count = 1 Then   If Target.Value = 72 Then   If MsgBox("prendre echantillon !", vbYesNo, "Echantillion") = vbYes Then Range("B" & Target.Row).Value = "X"   End If   End If   End Sub

---

Merci je vais tester ca

cordialement