détection du bouton oui non ok ou cancel en vba

Bonjour,

je débute juste en vba et je souhaiterai écrire un petit programme via les macros. mon problème est que je ne comprend pas comment on fait pour détecter si l'utilisateur a cliqué sur le bouton ok ou cancel après avoir répondu à la question. pour l'instant j'ai écrit ça :

Code:

---

1 2 3 4 5

Sub trie_bom_1() Dim code As String code = InputBox("Entrez le code a 10 chiffres.", "demande de code", "exemple : 4612091900")   end sub

---

merci d'avance de votre aide !

lysander 31

Bonjour,

Testez ceci :

Code:

---

1 2 3 4 5

Sub trie_bom_1() Dim code As String code = InputBox("Entrez le code a 10 chiffres.", "demande de code", "exemple : 4612091900") MsgBox code End Sub

---

Saisissez une valeur et regardez le résultat de code pour OK et Annuler.

Pour exploiter la valeur de Code par la suite en dehors de votre procédure trie_bom_1, il vous faut déclarer votre variable Code au niveau Private ou Public en tête du module.

Cordialement.

Réponse : quand il a appuyé sur "annuler", Code est toujours à vide

Comment je l'ai trouvée(bien plus important que la réponse) :
(1) J'ai mis un point d'arrêt sur le "End Sub" en cliquant sur la bande grise à gauche du code
(2) J'ai lancé la macro
(3) Dans le menu Affichage de l'éditeur, j'ai activé la fenêtre variable locales
(4) J'ai regardé, dans cette fenêtre, le contenu de la valeur "code"

Et j'ai fait quelques essais, pour comprendre comment ça marche. Je te conseilles de faire de même. A priori, il ne sait pas faire la distinction entre "Annuler" et une réponse vide. Mais vu que tu attends 10 chiffres, ça n'est pas grave - au final, tu n'as pas ce que tu voulais.

Perso, je gérerais ça de la manière suivante :

Code:

---

1 2 3 4 5 6 7 8 9

Sub trie_bom_1() Dim Code As String Code = InputBox("Entrez le code a 10 chiffres.", "demande de code", "exemple : 4612091900") If Len(Code) = 10 And IsNumeric(Code) Then MsgBox ("OK") Else MsgBox ("KO") End If End Sub

---

En remplacant les msgbox par les actions que tu souhaites réellement faire. Elles m'ont juste servi pour valider que je n'avais pas écrit de clowneries. En l'occurence, je vérifiie que j'ai bien 10 caractères(Len est la longueur d'une chaine) et qu'ils sont tous des chiffres(fonction standard IsNumeric qui est vraie si et seulement si tout dans la chaine est numérique).

EDIT : grillé, par une autre manière de faire, tout aussi efficace.

merci beaucoup de vos réponses rapides et claires

Bonjour,

Citation:

---

Envoyé par lysander31

Bonjour,
je débute juste en vba et je souhaiterai écrire un petit programme via les macros. mon problème est que je ne comprend pas comment on fait pour détecter si l'utilisateur a cliqué sur le bouton ok ou cancel après avoir répondu à la question

---

Voilà ce que l'aide de VBA t'indique si tu places le pointeur de ta souris sur la fonction InputBox et qu'ensuite tu tapes sur F1

Citation:

---

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 ("").

---