VBA gestion erreur dans inputbox

Bonjour à tous

J'ai un problème avec le code vba que je suis entrain de réaliser

J'ai des inputbox et je voudrais gérer les erreurs :

• si on clique sur ok et qu'elle est vide -> msgbox pour demander de saisir une valeur et passer à l'inputbox suivante ou sortir de la macro
• si on clique sur annuler --> sortir de la macro

je n'arrive pas à coder cette procédure, la macro passe toujours à l'inputbox suivante

Lg = InputBox("Entrer la longueur du document en mm")
If Lg = "" Then
If MsgBox("Veuillez saisir une valeur !", vbCritical + vbYesNo, "invalide") = vbNo Then
cancel = True

If Lg = vbCancel Then Exit Sub
End If
End If

Je joins la partie du code qui pose problème

Merci pour votre aide

Cordialement

Stéphane

Tu veux que si LG est vide l'autre apparaisse ?

Lg = InputBox("Entrer la longueur du document en mm")
If Lg = "" Then
If MsgBox("Veuillez saisir une valeur !", vbCritical + vbYesNo, "invalide") = vbNo Then
Exit sub
Else
goto ici
end if
:ici
'ici ta suite du traitement
End If

Bonjour EngueEngue,

Merci pour ta réponse, qui me permet déjà de sortir de la macro si on souhaite annuler.

Par contre sur Lg si l'utilisateur clique sur OK alors qu'il n'a pas saisie de valeur, je souhaite que le message d'erreur s'affiche et s'il clique ensuite sur le OUI de la Msgbox que l'inputbox Lg s'affiche de nouveau.

Merci pour ton aide

Cordialement

stéphane

:ici
Lg = InputBox("Entrer la longueur du document en mm")
If Lg = "" Then
If MsgBox("Veuillez saisir une valeur !", vbCritical + vbYesNo, "invalide") = vbNo Then
Exit sub
Else
goto ici
end if
End If
'ici suite traitement

Merci beaucoup pour ton efficacité et la rapidité des tes réponses EngueEngue, le code fonctionne parfaitement,

c'est ce que je recherchais vainement depuis un bon moment.

bonne fin de journée

Cordialement

Stéphane