Autres inputbox condition xl 2007

[kkamadou]

Bonsoir
Je veux créer un fiche adhérent en passant par l'Inputbox
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

 

[job75]

Bonsoir kkamadou,

Sub a()
Dim v As Variant, i
Do
    v = Application.InputBox("Entrez un nombre entier :", "Numéro", CStr(v), Type:=2)
    If v = False Then Exit Sub
    For i = 1 To Len(v)
        If Not IsNumeric(Mid(v, i, 1)) Then Exit For
    Next
Loop While i <= Len(v) Or v = ""
[A1] = v
End Sub

Edit : ah oui fil en doublon !!!

https://www.excel-downloads.com/threads/inputbox.20042707/#post-20308477

A+