Discussion :

[manguigs]

Bonjour tous,

je veux pouvoir afficher dans une boite de dialogue (msgbox) ligne par ligne les éléments d'un tableau dynamique(taille pas défini à l'avance)
voila mon bout de code pour alimenter le tableau dynamique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim t As Long
Dim tablo() As Long
Dim i As Long
Randomize
t = Int((3 * Rnd) + 1)
For i = 0 To t
    ReDim Preserve tablo(t)
    tablo(t) = 3 * Int((6 * Rnd) + 1)
 
Next i

si par exemple le tableau est de taille 3 dont tablo(0)=3, tablo(1)=15, tablo(2)=6, tablo(3)=3
JE veux un tel affichage dans une boite de dialogue:
3
15
6
3

Merci de m'aider à realiser cela grace à un msgbox

[Invité]

Bonjour

Un exemple :

Déclares une variable de type texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Dim strResult As String

Rajoutes le code suivant à la suite de celui que tu as actuellement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
For i = 0 To UBound(tablo())
       strResult = tablo(i) & vbCrLf & strResult
Next i
MsgBox strResult

Philippe