Bonjour,
J'ai un MsgBox me renvoyant sur 2 valeurs à choisir.. A savoir.. oui et non...
Ma question, est-il possible de modifier ces valeurs?
Voilà ma macro, à la place de OUI et NON j'aimerai avoir :
OUI = "Switch to non-stock"
NON = "Keep Stock"
Sub GetData()
x = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
Answer = MsgBox(Prompt:="This items belongs to SKU-RATIONALIZATION list and should be therefore switched to non-stock unless a very specific reason is provided. Do you agree to switch the item to non-stock?", Buttons:=vbYesNo + vbQuestion)
If Answer = vbYes Then Cells(x, 10).Value = "Switch to non-stock"
If Answer = vbNo Then
UserForm1.Show
If Reason = "Yes, I do confirm, this item has to be kept in stock" Then
ReceiveText = InputBox("Please provide a reason")
Cells(x, 10).Value = ReceiveText
Else
Cells(x, 10).Value = "Switch to non-stock"
End If
End If
End Sub
Si qqun à une idée ce serait parfait!
J'ai un MsgBox me renvoyant sur 2 valeurs à choisir.. A savoir.. oui et non...
Ma question, est-il possible de modifier ces valeurs?
Voilà ma macro, à la place de OUI et NON j'aimerai avoir :
OUI = "Switch to non-stock"
NON = "Keep Stock"
Sub GetData()
x = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
Answer = MsgBox(Prompt:="This items belongs to SKU-RATIONALIZATION list and should be therefore switched to non-stock unless a very specific reason is provided. Do you agree to switch the item to non-stock?", Buttons:=vbYesNo + vbQuestion)
If Answer = vbYes Then Cells(x, 10).Value = "Switch to non-stock"
If Answer = vbNo Then
UserForm1.Show
If Reason = "Yes, I do confirm, this item has to be kept in stock" Then
ReceiveText = InputBox("Please provide a reason")
Cells(x, 10).Value = ReceiveText
Else
Cells(x, 10).Value = "Switch to non-stock"
End If
End If
End Sub
Si qqun à une idée ce serait parfait!