[Catégorie modifiée .Net -- VBA] Utiliser le bouton Cancel de l'inputBox = Pro

Question

Bonjour,

Petit problème concernant ma inputbox : 

Voici mon code Private Sub Domaine_Click()
Application.ScreenUpdating = False

Dim resp As String
Dim numericcheck11 As Boolean

Do
    Do
MsgBox ("Le nom doit être composé de lettres et non vide")
resp = InputBox("Indiquez le nom de la personne à ajouter")

numericcheck11 = IsNumeric(resp)


Loop While numericcheck11 <> False
    Loop While resp = ""
resp1 = Sheets("feuil2").Range("C9999").End(xlUp).Row + 1
Sheets("Feuil2").Range("C" & resp1).Value = resp
End Sub

Le problème est que, lorsqu'on clique sur Cancel, il semblerait que ca fasse cancel = "" dans l'input + ok 

Comment éviter celà et ainsi faire qu'il n'y ait pas une boucle infinie qui se lance ??? 

Merci d'avance

cs_Jack · Answer

Salut
Quand tu cliques sur Cancel, la fonction ne renvoie rien = facile à tester :
    resp = InputBox("Indiquez le nom de la personne à ajouter")
    If resp = "" Then Exit Do
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

tonioux · Answer

Justement, est-ce possible de différencier : 

-Le fait de cliquer sur Cancel
-Le fait de ne rien mettre dans la inputbox et de cliquer sur ok ???

cs_Jack · Answer

Non, pas avec InputBox

tonioux · Answer

Comment faire alors ? Y a t'il un moyen d'inscrire quelque-chose et de différencier le cancel de ce qu'on écrit ?

cs_Jack · Answer

Non
Si l'utilisateur efface volontairement la zone de saisie (en cas d'utilisation de valeur par défaut), il n'y a aucun moyen.

(27 secondes plus tard)

Correction votre honneur :
Une simple recherche sur mon moteur de recherche favori de "vb6 detect cancel inputbox" m'a renvoyer sur <cette source vbfrance> qui t'offre la solution !

CTAC · Answer

Bonjour,

Avec Application.InputBox Cancel renvoie False.

ctac

[Catégorie modifiée .Net --> VBA] Utiliser le bouton Cancel de l'inputBox => Pro

6 réponses

Votre réponse

Discussions similaires