InputBox qui ne s'affiche pas - Erreur 2015

dionys0s · 28 Février 2014

Hello le forum

j'ai un petit soucis avec une macro :

j'ai créé une fonction générique qui permet de sélectionner un élément (elle s'appelle SelectElement) d'une variable tableau en 1 dimension.
Dans le classeur en PJ, je fais un premier choix (parmi 5 classifications), et en fonction du premier choix, il y a un deuxième choix à effectuer.

Lorsque je choisis l'une des 4 premières classifications, tout se passe bien, et ma fonction se comporte comme il faut.
Mais lorsque je choisis la 5ème classification, la fonction générique plante, sans que je comprenne pourquoi : tout s'initialise comme il faut, mais au moment où le code doit traiter la ligne

Code:

SelectElement = Application.InputBox(Prompt, Title)

(les variables "Prompt" et "Title" ayant été affectées lors de l'initialisation), l'exécution "glisse" sur cette ligne, sans afficher l'InputBox, et ma fonction récupère "Erreur 2015", et plante au moment de tester la validité de la variable récupérée par ce qui aurait dû être tapé par l'utilisateur.

Est-ce que sur votre ordinateur le code se comporte comme chez moi ? Si oui, quelqu'un aurait-il une idée du pourquoi du comment ? Ca fait un bout de temps que je me triture les méninges sur ce truc, et je ne comprends vraiment pas pourquoi ça fait ça...

D'avance merci pour votre aide

dionys0s

Efgé · 28 Février 2014

Re : InputBox qui ne s'affiche pas - Erreur 2015

Re
Je ne voulais pas dire que tu metais en doute
N'aillant pas vraiment suivi, je voulais juste vous montrer mon résultat.
Je pensai que la boite ne s'affichai pas

Cordialement

gilbert_RGI · 28 Février 2014

Re : InputBox qui ne s'affiche pas - Erreur 2015

dionys0s à dit:
Oui, j'avais déjà vu que ça marchait sans Application, mais j'ai besoin de Application pour traiter l'annulation

Code:

if VarType(SelectElement) = vbBoolean then End

Je ne sais pas faire autrement...

comme ceci pour sortir de la fonction si annuler est cliqué

Code:

If Len(SelectElement) = 0 Then MsgBox "erreur": Exit Function

puis mettre une gestion d'erreur pour sortir du sub

dionys0s · 3 Mars 2014

Re : InputBox qui ne s'affiche pas - Erreur 2015

Re,

le problème Gilbert, c'est que la réponse vide peut être autorisée, et l'annulation l'est systématiquement, donc je ne peux pas généraliser cette méthode. Seul Application.InpuBox permet de récupérer de manière fiable l'évènement annulation...

gilbert_RGI · 3 Mars 2014

Re : InputBox qui ne s'affiche pas - Erreur 2015

Comme dirait Laspales c'est vous qui voyez !!!!

Si... · 3 Mars 2014

Re : InputBox qui ne s'affiche pas - Erreur 2015

salut

je n'utilise qu'exceptionnellement cette boîte (trop de problèmes comme ici).
Je suis plus à l'aise avec un "Userform".

dionys0s à dit:
Bon bah il ne me reste plus qu'à gérer ça avec un UserForm créé à la volée...

Pourquoi à la volée ? Tu peux l'appleler de la même façon que l'autre boîte non ?

Voilà un exemple avec un code bien plus simple (ici l'exploitation n'est pas traitée)

dionys0s · 3 Mars 2014

Re : InputBox qui ne s'affiche pas - Erreur 2015

Effectivement...

Pour récupérer le résultat du UserForm directement dans une fonction d'un module normal, je suis obligé de l'affecter à une variable globale ?

Si... · 3 Mars 2014

Re : InputBox qui ne s'affiche pas - Erreur 2015

re

pas obligatoire mais tout dépend de l'ensemble du Projet !
Fournis un exemple de fonction et j'essaierai de répondre dans le contexte.

InputBox qui ne s'affiche pas - Erreur 2015

dionys0s

XLDnaute Impliqué

Pièces jointes

Efgé

XLDnaute Barbatruc

gilbert_RGI

XLDnaute Barbatruc

dionys0s

XLDnaute Impliqué

gilbert_RGI

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

Pièces jointes

dionys0s

XLDnaute Impliqué

Si...

XLDnaute Barbatruc

Discussions similaires