msgbox excel vba

[Chdic]

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

[jfontaine]

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

[Chdic]

Merci je vais tester ca

cordialement