Bonjour à toutes et à tous,
ma question porte sur une inputbox qui plante quand, semble-t-il, je rentre trop de texte.
Mes recherches d'info sont assez contradictoires, tantôt je lis qu'on a droit à 1024 caractères, tantôt 254
Malgré cela, pour m'en convaincre, j'ai additionné le nombre de caractères et je ne retrouve pas mes petits …
Doit-on tout inclure, y compris les blancs (passages à la ligne), le titre etc ?
Même en incluant, excluant les blancs, le titre etc., je ne m'y retrouve pas (voir feuille "Contrôle taille")
Quelqu'un peut-il me dire si je vois clair ou si mon code plante pour une autre raison ?
Merci d'avance
Sebast
ma question porte sur une inputbox qui plante quand, semble-t-il, je rentre trop de texte.
Mes recherches d'info sont assez contradictoires, tantôt je lis qu'on a droit à 1024 caractères, tantôt 254
Malgré cela, pour m'en convaincre, j'ai additionné le nombre de caractères et je ne retrouve pas mes petits …
Doit-on tout inclure, y compris les blancs (passages à la ligne), le titre etc ?
Même en incluant, excluant les blancs, le titre etc., je ne m'y retrouve pas (voir feuille "Contrôle taille")
Quelqu'un peut-il me dire si je vois clair ou si mon code plante pour une autre raison ?
Merci d'avance
Sebast
Code:
Public Titel As String ' Public car dans le code grandeur nature sert ailleurs
Public Reponse As String
Sub Mon_code()
Dim M10 As String
Dim M11 As String
Dim M12 As String
Dim M13 As String
Dim M14 As String
Titel = "Super Titres1"
M10 = "Saisissez le type d'affichage trimestriel souhaité"
M11 = "(ne concerne que les tableaux comportant une synthèse trimestrielle)"
M12 = "Synthétique affiche les totaux trimestriels"
M13 = "Détaillé affiche les trimestres et les mois du dernier trimestre"
M14 = "Saisissez s pour" ' au-delà ça plante ... (normalement s pour synthétique etc.)
' --- cause do loop
Reponse = Empty
Do Until Reponse = "s" Or Reponse = "S" Or Reponse = "d" Or Reponse = "D"
Reponse = _
Application.InputBox(M10 + vbCrLf + vbCrLf + M11 + vbCrLf + vbCrLf + M12 + vbCrLf + M13 + vbCrLf + vbCrLf + M14, Titel, Type:=2)
Loop
End Sub