s'obtient en écrivant par exemple ceci (entre autres manières de faire)je veux sortir de la procédure lorsque je clique sur le bouton annuler
afficher à nouveau l'InputBox lorsque rien n'est saisi ou que la saisi n'est pas un nombre entier après avoir cliqué sur ok
Dim toto As Boolean
Do While Not toto
titi = Application.InputBox("Saisis un nombre ENTIER", , , , , , 1)
If titi = False Or (titi <> "" And titi Like String(Len(titi)...
s'obtient en écrivant par exemple ceci (entre autres manières de faire)je veux sortir de la procédure lorsque je clique sur le bouton annuler
afficher à nouveau l'InputBox lorsque rien n'est saisi ou que la saisi n'est pas un nombre entier après avoir cliqué sur ok
Dim toto As Boolean
Do While Not toto
titi = Application.InputBox("Saisis un nombre ENTIER", , , , , , 1)
If titi = False Or (titi <> "" And titi Like String(Len(titi), "#")) Then toto = True
Loop