Discussion :

[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. pour l'instant j'ai écrit ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Bonjour,

Testez ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[el_slapper]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[lysander31]

merci beaucoup de vos réponses rapides et claires

[Philippe Tulliez]

Bonjour,

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

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