Arrêt du code en attente d'un ENTER

Bonsoir François, le Forum

En général si on répond par la touche entrée à une MsgBox paramétrée à VbYesNo c'est que l'on répond 'Yes'....

Exemple :

Option Explicit

Sub TheQuestion()
Dim MyQuestion As Byte

MyQuestion = MsgBox('Voulez-Vous Poursuivre ?', vbYesNo + vbQuestion)

    If MyQuestion = vbYes Then
        MsgBox 'Le code continurait de se produire maintenant....'
    Else
        MsgBox 'On arrête ou autre action...'
    End If


End Sub

Cliquez pour agrandir...

Sinon c'est que j'ai mal compris la question ...

Bonne Soirée
[ol]@+Thierry[/ol]

Bonsoir le Thierry, le forum,

Je reformulerai donc mon code pour YES.

Pour la suite, lorsque ma cellule active monte de deux rangées pour que l'utilisateur puisse modifier la valeur et valider le tout par ENTER le code doit continuer sans msgbox car un userform doit s'afficher.

Donc,

If MsgBox('Il manque ' & mavar1 & _
'- pièces pour avoir la quantité nécessaire pour cette semaine' _
& Chr(10) & \\'Voulez-vous changer la quantité ?\\', vbYesNo + vbQuestion, \\'Vérifier la quantité
S.V.P. ?\\') = vbNo Then
Else
ActiveCell.Offset(-2, 0).Select
'arrêt du code pour modifier la valeur et lorsque l'utilisateur aura presser ENTER on continu au End If et l'affichage du userform
End If
...
...

Merci