Est-il possible de cadrer un tableau dans un msgbox ?
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 2018
-
31 août 2006 à 22:29
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 2018
-
1 sept. 2006 à 14:08
Bonsoir,
En vbs, j'ai les variables suivantes:
var0 = "AAAAAAAA "
var1 = "BBBBBBBBBBb"
var2 = "CCCCC "
var3 = "DDDDDDDDDD "
Var0 à var3 sont de longueurs différentes.
Je rajoute des spaces, à droite, pour que celles-ci soient de même longueur.
En faisant var0 & " ! " var1" & " ! " &vbCrLf& var2 & " ! " var3" & " ! ",
mon souhait est d'afficher le résultat suivant, dans une MsgBox:
AAAAAAAA ! BBBBBBBBBBb !
CCCCC ! DDDDDDDDDD !
J'arrive à obtenir ce résultat dans un fichier .txt, mais impossible
de l'obtenir dans une MsgBox.
Quelqu'un aurait-il une idée ???
Merci d'avance de vos suggestions.
jean-marc
Ps: send pour Julien (jrivet), je n'ai pas encore eu le temps de tester pour mon problème
de copier/coller excel vers mailto (translation de vba en vbs)....peut-être dimanche si je suis en forme....
=========================================================
'Test pour voir si conforme dans un .txt
'Création d'un fichier pour visu du tableau
Dim fso, fichier, file_temp, Lecture
file_temp = "d:\fichier_test.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fichier = fso.CreateTextFile(file_temp, True)
Set fichier = fso.OpenTextFile(file_temp, 1)
Do While fichier.AtEndOfStream <> True
Lecture = fichier.ReadAll
Loop
Call fichier.Close
'Visu du fichier
Dim WshShell, Shell
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Shell = Wscript.CreateObject("Shell.Application")
Shell.MinimizeAll
'shell.Open "d:"
Shell.Open file_temp
Shell.TileVertically
WshShell.Popup "Restaure"
Shell.UndoMinimizeAll
Set WshShell = Nothing
Set Shell = Nothing
Call fso.DeleteFile(file_temp)
Set fso = Nothing
Set fichier = Nothing
MsgBox Lecture
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function Modify_Len_Var(result, sep)
While Len(result) < 20 ' Teste la valeur du compteur.
result = Replace(result,result, result & " ")
'MsgBox "Vérif result dans While Len(result)" &vbCrLf&_
' "Longueur de result: " & Len(result) &vbCrLf& result
Wend ' Fin de la boucle While lorsque result > 19.
result = result & sep
'MsgBox "Vérif de result après le While Len(result)" &vbCrLf&_
' result &vbCrLf& "Longueur de result: " & Len(result)
End Function
WScript.Quit
A voir également:
Est-il possible de cadrer un tableau dans un msgbox ?
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 31 août 2006 à 23:37
Re,
Si la solution du MsgBox n'est pas possible, je vais remplacer la
msgbox par l'affichage du tableau dans un fichier .htm tempry.
Je completerai ce topic pour les gens interessés (ou curieux !!).
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 1 sept. 2006 à 08:51
Salut,
Ce qui t'empêche de réaliser celà, c'est la police utilisée pour écrire dans un MsgBox. Un 'i' y est moins large qu'un 'M', ...
Pour éviter ce souci, fabriques ta propre MsgBox, et utilises un Label avec une police du style COURIER.
Dans cette police, toutes les lettres (ainsi que les espaces) ont la même largeur, et tu pourras réaliser ton tableau.
Tu as réussi à le faire dans ton premier post ...
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.