Contrainte sur le prompt d’un InputBox

Bonjour à tous,

Chers amis passionnés d’Excel, d’informatique et tous vous autres, je fais appel à votre amour de VBA Excel et de la réflexion en général.
Je suis en train de bosser sur une macro de saisie depuis 2-3 jours. Je ne suis pas mauvais en VBA Excel, mais là je coince sur une erreur qui m’énerve à un point que vous n’imaginez pas.

Ci-dessous, j’ai isolé mon problème. Quelle est la difference entre les deux morceaux de code ci-dessous? J’ai juste rajouté, pour la ‘troisième ligne’, une douzaine de ‘a’ pour allonger le prompt.

Code:

---

1 2 3 4 5 6

Sub test2() Dim t1 As Integer Dim t2 As Integer t1 = Application.InputBox(Title:="intro", prompt:="Qaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:" & Chr(13) & "R1asdddddddddddddddddddddddddddddddddddddddd" & Chr(13) & "R2aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa") t2 = Application.InputBox(Title:="intro", prompt:="Qaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:" & Chr(13) & "R1asdddddddddddddddddddddddddddddddddddddddd" & Chr(13) & "R2aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa") End Sub

---

Mais alors Camille, ne sais-tu pas qu’il existe une aide VBA ?

Pour la méthode InputBox, voici ce que dit l’aide :
« Message à afficher dans la boîte de dialogue. Il peut s'agir d'une chaîne de caractères, d'un nombre, d'une date ou d'une valeur booléenne (Microsoft Excel contraint la valeur à avoir le type de données String avant de l'afficher). »

Résultat des courses :
• Je ne trouve rien sur Google
• Je ne trouve rien dans l’aide
• Je me prends la tête

Conclusion :
• Je ne sais pas quelles contraintes mon prompt doit respecter
• J’ai besoin de votre aide sinon je crains que mon PC passe par la fenêtre

Ma question est donc : quelles contraintes est-ce que mon prompt doit respecter ? Subsidiairement, ou aurais-je pu / ou avez-vous trouvé cette information ?

Je vous serais extrêmement reconnaissant d’éclairer ma lanterne sur ce sujet. Je suis évidemment disponible pour vous fournir des détails supplémentaires…

Camille Geniès

Bonjour Camille,

il semble que la limite du prompt est à 255 caractère, que tu dépasses sur le 2ème exemple
Je n'ai trouvé cette information nulle part, mais on ne peut que le constater...

Bonjour
Oui effectivement il doit y avoir une limite. Mais rien ne t'empêche de faire une concaténation de deux textes plus réduits.

salut

voici ce que l'on peut lire dans l"'aide VBA à propos de l'argument prompt d'une inputbox :

Citation:

---

Expression de chaîne affichée comme message dans la boîte de dialogue. La longueur maximale de l'argument prompt est d'environ 1 024 caractères, selon la largeur des caractères utilisés. Si prompt occupe plus d'une ligne, n'oubliez pas d'insérer un retour chariot (Chr(13)) ou un saut de ligne (Chr(10)) entre les lignes, ou une combinaison de caractères retour chariot-saut de ligne (Chr(13) & Chr(10)) entre chaque ligne.

---

Il s'agit donc bien plus d'une dimension d'affichage que d'un nombre de caractères.

Bonjour,

Au niveau aide vba, il faut expliciter de quoi on cause !

Il existe une méthode Inputbox ET une fonction Inputbox, les différences sont importantes et disponibles dans la FAQ de DVP :

Quelle est la différence entre InputBox et Application.InputBox ?

et dans l'aide VBA qui ne retourne pas la même chose du coup :D

le code suivant ne plante pas (fonction) :

Code:

---

1 2 3 4 5 6 7 8 9

Sub test2() Dim t1 'As Integer ' la mise en commentaire dispense simplement l'entrée d'une donnée pour les tests... Dim t2 'As integer t1 = "Qaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:" & Chr(13) & "R1asdddddddddddddddddddddddddddddddddddddddd" _ & Chr(13) & "R2aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" & Chr(10) & Chr(13) & "aaaaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb" _ & Chr(13) & "R2aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" & Chr(13) & "aaaaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb" t2 = InputBox(Title:="1 de trop", prompt:=t1)   End Sub

---

à partir des premiers b, on dépasse les 255 caractères fatidiques !

Mais... l'affichage ne les rend pas :calim2:

D'où peut-être la fameuse notion de "largeur de caractères utilisés"...

J'ai eu le souci à une période, j'ai réussi à le contourner grâce à une formulation de texte différente qui entrait dans les normes.

Donc je pense que tu pourrais voir l'approche différemment, soit en réfléchissant dans ton contexte à comment détourner la chose soit en affichant d'abord un msgbox (qui n'a pas ces contraintes) annonçant en détail la saisie à venir "genre vous allez devoir saisir...), puis le inputbox dont le prompt ne sera qu'un rappel bref du desiderata ?

Code:

---

1 2 3 4 5 6

Sub test4()   MsgBox "Qaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa:" & Chr(13) & "R1asdddddddddddddddddddddddddddddddddddddddd" _ & Chr(13) & "R2aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" & Chr(10) & Chr(13) & "aaaaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb" _ & Chr(13) & "R2aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" & Chr(13) & "aaaaaaaaaabbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb" End Sub

---

... soit en utilisant un USF :koi:

cordialement,

Didier

Merci à tous pour vos réponses rapides, et plus particulièrement à toi Didier qui a bien prit le temps de creuser.

En effet, je m'étais aussi dit que c'était au delà d'un problème de nombre de caractères, quelque chose en rapport avec les dimensions.

J'ai pensé aux USF mais je m'étais dit que:
1.Je voulais garder la chose simplissime, une bonne BDDialogue old school
2.Je voulais garder la chose simplissime pour moi car je ne connais pas les USF et il me faudrait une petite journée pour apprendre, temps que je n'ai pas au boulot!

Merci encore,

Sujet résolu