[VBA] Formater String dans Msgbox (5 lignes séparés par vTab), comment ?

[Staple1600]

Bonjour à tous


Voila le problème

Sub test()
For i = 1 To 55
s = s & i & " "& String(3, "t") & Chr(13)
Next
MsgBox s
End Sub

Comment formater la chaine s pour que la msgbox
se présente ainsi
(diviser la chaine par lignes de 5 séparé par un vbTab)

1 ttt 6 ttt etc...
2 ttt 7 ttt
3 ttt 8 ttt
4 ttt 9 ttt
5 ttt 10 ttt


Merci à tous de vos conseils.

PS : fil en rapport avec The 24 game

 

[Pierrot93]

Re : [VBA] Formater String dans Msgbox (5 lignes séparés par vTab), comment ?

Bonjour Jean-Marie

pas sur d'avoir tout compris, mais peut être comme ceci :

Dim i As Integer, s As String
For i = 1 To 55
s = s & i & " " & String(3, "t")
If i Mod 11 = 0 Then s = s & vbLf
Next
MsgBox s

a voir...

bonne soirée
@+

 

[Pierrot93]

Re : [VBA] Formater String dans Msgbox (5 lignes séparés par vTab), comment ?

Re

je viens de voir le post sur ton jeux, alors sans doute plus ceci :

Sub test()
Dim i As Integer, s As String
For i = 1 To 55
s = s & i & " " & String(3, "t") & vbTab
If i Mod 5 = 0 Then s = s & vbLf
Next
MsgBox s
End Sub

@+

 

[tototiti2008]

Re : [VBA] Formater String dans Msgbox (5 lignes séparés par vTab), comment ?

Bonjour Staple1600,

c'est la période des colles

ne fonctionne que si le nombres de possibilités est divisible par 5....

Sub test()
nbre = 55
For i = 1 To 5
s = s & i & " " & String(3, "t") & vbTab
For j = 1 To Int(nbre / 5) - 1
s = s & i + j * 5 & " " & String(3, "t") & vbTab
Next j
s = s & Chr(13)
Next i
MsgBox s
End Sub

 

[Staple1600]

Re : [VBA] Formater String dans Msgbox (5 lignes séparés par vTab), comment ?

Bonsoir Pierrot93, tototiti2008, le forum


Merci pour vos réponses


Je dois prendre la route vers la Normandie


J'essaierai de tester tout cela (si je trouve un PC) ce wek-end


Bon week-end à tous

PS: la chaine de caractères sera aléatoire
(voir le fil The 24 game), c'est la chaine sol
qui contient les formules solutions et parfos la chaine est plus grande que l'écran (en fin la msgbox) d'ou le pourquoi de ce post.

Désolé de ne pouvoir rester avec vous plus longtemps.