Erreur de compilation InputBox
Résolu
sifusalade
Messages postés
142
Statut
Membre
-
sifusalade Messages postés 142 Statut Membre -
sifusalade Messages postés 142 Statut Membre -
Bonjour,
Je me retourne vers la communauté car cela fait deux heures que je cherche à comprendre pourquoi je n'arrive pas à utiliser une simple InputBox et je n'y arrive pas.
Je ne comprends absolument pas pourquoi ceci ne fonctionne pas :
Non seulement je n'ai aucune autocomplétion avec l'infobulle qui liste les arguments, mais en plus j'obtiens une erreur de compilation.
C'est quelque chose de très basique que j'ai utilisé souvent et qui a toujours fonctionné mais là c'est un mystère.
J'utilise actuellement Excel 2019.
Il y'a une référence à activer ?
Merci pour vos réponses.
Je me retourne vers la communauté car cela fait deux heures que je cherche à comprendre pourquoi je n'arrive pas à utiliser une simple InputBox et je n'y arrive pas.
Je ne comprends absolument pas pourquoi ceci ne fonctionne pas :
Sub InputBox()
Dim reponse As String
reponse = InputBox("La question", "Le titre", "Par Défaut")
End Sub
Non seulement je n'ai aucune autocomplétion avec l'infobulle qui liste les arguments, mais en plus j'obtiens une erreur de compilation.
C'est quelque chose de très basique que j'ai utilisé souvent et qui a toujours fonctionné mais là c'est un mystère.
J'utilise actuellement Excel 2019.
Il y'a une référence à activer ?
Merci pour vos réponses.
A voir également:
- Erreur de compilation InputBox
- Erreur 0x80070643 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- J'aime par erreur facebook notification - Forum Facebook
- Erreur de lecture reconnecté en 3s - Forum TV & Vidéo
2 réponses
Bonjour
Tu es sûr que ce n'est pas
reponse = MsgBox("La question", "Le titre", "Par Défaut")
Cdlmnt
Tu es sûr que ce n'est pas
reponse = MsgBox("La question", "Le titre", "Par Défaut")
Cdlmnt
Sifusalade
Bonjour, oui, sûr et certain. Je n'ai pas de problème avec MsgBox().
Alors essaies ceci
reponse = Application.InputBox("La question", "Le titre", "Par Défaut")
Cdlmnt
reponse = Application.InputBox("La question", "Le titre", "Par Défaut")
Cdlmnt
Avec "Application" pas de problème, mais sans, ça coinçait. Je viens à l'instant de résoudre le problème. J'ai activé les références "Visual Basic for Applications" et "Visual Basic For Application".
Ces références ont toujours été actives par défaut, mais pour une raison que j'ignore, maintenant que j'ai installé Office 2019, ça n'a pas semblé être le cas. En activant ces deux références, j'ai pu utiliser la fonction (donc sans le Application).
Merci ;-)
Ces références ont toujours été actives par défaut, mais pour une raison que j'ignore, maintenant que j'ai installé Office 2019, ça n'a pas semblé être le cas. En activant ces deux références, j'ai pu utiliser la fonction (donc sans le Application).
Merci ;-)
