InputBox exécutable une seule fois

Bonjour,

j'essaie simplement de saisir une variable à l'aide d'une InputBox mais je ne peux exécuter la macro qu'une seule fois. Quand j'essaie de la relancer Excel plante et je suis forcé de quitter. J'ai essayé de vider le contenu des variables en fin de code (test1 = Empty) mais cela ne résout pas mon problème.

Si je change simplement le nom de la variable, le code fonctionne sans problème mais 1 seule fois et plante sur la commande InputBox.

J'avoue ne pas comprendre sachant que je peux sans problème exécuter les autres macros du fichier.

Merci d'avance du soutien

Code:

---

1 2 3 4 5 6 7 8 9

Sub TestInput()   Dim test1 As String   test1 = InputBox("test saisie", "test titre", "test defaut")   MsgBox (test1)   End Sub

---

Enchainer les InputBox ne pose pas de problème, tout comme relancer une macro qui en contient.
Ton problème ne vient pas du code que tu présentes.
Il manque donc des éléments dans ta demande : ce que fait ta macro, comment elle s'arrête, s'il n'y a pas d'autres éléments actifs, ce que signifie "Excel plante", etc.

Hello,

le code mis en exemple ne fonctionne qu'une seule fois (sauf si je change le nom de la variable). Lorsque je relance, je ne peux plus rien faire sur excel et je n'ai d'autre choix que le "Forcer à quitter" Mac (équivalent Ctrl-alt-del).

Ce qui est surprenant c'est que ce code fonctionne parfaitement de multiples fois dans un fichier ne comprenant que cette macro.

Le problème semble donc se situer dans une autre dimension mais même si je n'ouvre que le fichier concernée et lance directement l’exécution de la macro (y compris dès l'ouverture du Mac), excel se bloque.

Citation:

---

Envoyé par projeesp

Ce qui est surprenant c'est que ce code fonctionne parfaitement de multiples fois dans un fichier ne comprenant que cette macro.

---

C'est la raison pour laquelle je persiste à dire que le problème vient d'un autre élément de ton fichier, peut-être une macro évènementielle.

Sans nul doute mais je peux sans difficulté exécuter les autres macros tant qu'il n'a pas de commande InputBox. Comment puis chercher le grain de sable "permanent" vu qu'il subsiste même après fermeture du fichier et du poste de travail, que je le copie ou que je l'enregistre sous un autre nom ?

Le rapport d'erreur microsoft fait apparaître la mention suivante "_CFRUNLOOP_IS_CALLING_OUT_TO_A_SOURCE0_PERFORM_FUNCTION".

Merci du retour,

Hello,

le problème ne vient pas du code mais il s'agit d'un problème d'affichage. Lorsque j'ai débranché mon second écran (je travaille avec 2 écrans de taille différente) la boîte de dialogue est apparue et j'ai pu saisir ma valeur.

En effet n'ayant pas définit de position dans les paramètres de l'InputBox elle s'affichait donc dans une zone non visible .

Il m'a donc suffit de préciser les positions X et Y pour résoudre mon problème.

Merci aux bonnes âmes qui se sont penché sur mon souci.:)