Accès aux boutons d'une InputBoxRésolu

Question

Bonjour à tous, si j'écris le code de la sorte :


Dim code_inf As String = InputBox("Veuillez saisir le code de l'infirmière :", "Accès aux actes pratiqués")


Comment puis-je accéder aux boutons "OK" et "Annuler" de cette InputBox?
J'aimerais pouvoir ne rien faire si on appuie sur le second...


Merci d'avance^^

Kristof_Koder · Accepted Answer

Tu dois te faire ta propre inputbox pour cela car tu ne peux rien faire avec l'inputbox fournie par défaut

cs_casy · Answer

C'est quoi cette réponse Kristof, as-tu lu la question au moins ???? Extrait de l'aide MSDN sur l'InputBox : "... Si l'utilisateur clique sur OK ou appuie sur ENTRÉE , la fonction InputBox renvoie le texte contenu dans la zone de texte. Si l'utilisateur clique sur le bouton Annuler, la fonction renvoie une chaîne de longueur nulle ("")...." Donc : Dim code_inf As String = InputBox("Veuillez saisir le code de l'infirmière :", "Accès aux actes pratiqués") If code_inf <>"" Then 'Faire ce que tu as à faire End If ---- Sevyc64 (alias Casy) ----

# LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php

cs_JMO · Answer

Bonjour à tous,

Bonsoir Kristof,
On peut néanmoins vérifier la saisie d'une inputbox standard.

Call VerifInputBox(InputBox("Veuillez saisir le code de l'infirmière :", "Accès aux actes pratiqués"))

Function VerifInputBox(Reponse)
   If LenB(Reponse) > 0 then 
      msgbox Reponse,,"click sur OK et zone saisie non vide"
      '........
   Else
      msgbox "soit:" &vbCr&_
             "- click sur la croix" &vbCr&_
             "- click sur Annuler" &vbCr&_
             "- click sur OK mais zone saisie vide",,"Anomalie"
      '.....
   End If
End Function 

jean-marc

cs_Exploreur · Answer

Salut,

Moi je comprend pas ta demande...lol...Du moment que tu appuis sur Annuler, tu ne fera rien...Maintenant, si tu veux tester ce qu'il y a comme retour de saisie dans la box, fait le test : 

Dim code_inf As String
 code_inf  = InputBox("Veuillez saisir le code de l'infirmière :", "Accès aux actes pratiqués")
 
 If LenB(code_inf ) = 0 Then MsgBox "Aucune saisie"

A+
Exploreur

 Linux a un noyau, Windows un pépin 

  If My Answer Is Good Then Click Réponse Acceptée <>

franklin626 · Answer

J'aimerais pouvoir distinguer, dans le cas d'une saisie nulle, si on a cliqué sur "Envoyer" ou "Quitter" ^^

cs_Exploreur · Answer

Bonsoir à tous,

Lol...les 3 postes ont du être mis sur le topic en même temps, car je n'ai pas reçu de mail concernant le post de Casy et Jmo...Arfff le rafraichissement de IE !

A+
Exploreur

 Linux a un noyau, Windows un pépin 

  If My Answer Is Good Then Click Réponse Acceptée

cs_Exploreur · Answer

Salut,

franklin626 >> Je pense que là tu as toutes les réponses....Suffit juste de faire le test avec les bouts de code proposés...

A+
Exploreur

 Linux a un noyau, Windows un pépin 

  If My Answer Is Good Then Click Réponse Acceptée

Kristof_Koder · Answer

Casy < Exact ! Faut que j'aille me chouher de bonne heure ce soir, car je viens de passer 10 jours à faire des formations,et ca m'a atteind les neurones du developpement !!!

Utilisateur anonyme · Answer

Salut à tous, 

Je viens rajouter du piquant :
Si dans un programme on demande à l'utilisateur de saisir une info via une inputbox (ca on s'en serais douter, c'est le sujet) et qu'on veille que l'utilisateur ait la possibilité de laisser le champ vide. Mais aussi qu'il puisse annuler pour aller je ne sais ou.
Donc, si il laisse le champ vide, inputbox retournera "", et si il appui sur annuler, ca retournera aussi "".
Comment en faire la différence ?

Dans ce cas, la seule solution est : créer ca propre dialog !
non ?

__________
  Kenji

cs_Exploreur · Answer

Quel intérêt d'avoir un champ vide pour une InputBox, nous perdons l'intérêt de celle-ci de pouvoir à la base saisir une information...Ou alors j'ai pas compris ton raisonnement Charles Racaud(Salut ).

A+
Exploreur

 Linux a un noyau, Windows un pépin

Utilisateur anonyme · Answer

Ben oui, quel interet ? Mais je me souviens que j'en avais eu besoins jadis.

__________
  Kenji

cs_casy · Answer

L'interet est simple : Effacer une donnée précédenment saisie.

Dans ce cas, un  click sur Annuler, on annule la saisie et on laisse les choses en état, on click sur ok avec une chaine vide, on valide la saisie et on efface la donnée. Il faut donc pouvoir distingué les 2 chaines vides.

C'est un cas très particulier assez courant, et dans ce cas là, il n'y a pas beaucoup de solution. Soit faire sa propre InputBox, soit utiliser l'inputbox classique, mais en cas de retour vide, on affiche on message de confirmation avec une messagebox surlaquelle on peut distingué le bouton cliqué.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

Accès aux boutons d'une InputBox

12 réponses

Votre réponse

Discussions similaires