VBA affcher le contenu d'une variable dans une msgbox

Dim Seuilx As Variant
'Définition du Seuil d'Approvisionnement
    
    Seuilx = 300
Seuilx = InputBox("Le seuil actuel est à : " & Seuilx & ", voulez vous le modifier ?", "Attente d'une réponse utilisateur", Seuilx)

camarchepas à dit:

Bonjour ,

Quelque chose comme cela :

Code:

Sub Question()
Dim Réponse As Variant
Dim Seuil As Long
Seuil = Range("A1")
Réponse = InputBox("Le seuil actuel est à : " & Seuil & ", voulez vous le modifier ?", "Attente d'une réponse utilisateur", Seuil)
MsgBox "Et voilà le nouveau seuil  est : " & Réponse
Range("A1") = Réponse
End Sub

Cliquez pour agrandir...