Discussion :

[CaptJack]

Salut,

Je voulais savoir comment remplir un tableau à une dimension dans le desordre
voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Class Form1
    Public tab(3) As String
    Public i As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ReDim Preserve tab(1)
        tab(1) = "suis"
        ReDim Preserve tab(3)
        tab(3) = "garcon"
        MsgBox(tab(3))
        ReDim Preserve tab(0)
        tab(0) = "je"
 
        ReDim Preserve tab(2)
        tab(2) = "un"
        For i = 0 To 3
            MsgBox(tab(i))
        Next
    End Sub
End Class

Lorsque je fai affiche le tableau par messagebox il ne m'affiche que "je" et "un", est ce normal? Comment y remedier?

[neptune]

Je n'ai plus fait de VB (6) depuis 10 ans mais çà me parait clair.

ReDim Preserve tab(0)
tab(0) = "je"

Tu redimensionne ton tableau à 1 place, tu as donc perdu les informations dans les cases supérieures.

PS: je ne vois vraiment pas à quoi peut servir ce genre de code :-)

[CaptJack]

Il sert pour remplir un tableau dans le desordre
En fait je pense kil faut introduire une nouvelle variable, je vai essayer
Merci pour la reponse

[neptune]

Pourquoi utilises tu un redim??

[sharrascript]

Bah oui pourquoi un redim??

tu déclare :

Code :

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

Public tab(3) As String

Donc tu as déjà tes 4 emplacements!

Ensuite juste à faire:

Code :

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

1
2
3
4
5
6
7
8
tab(1) = "suis"
tab(3) = "garcon"
        MsgBox(tab(3))
tab(0) = "je"     
tab(2) = "un"     
For i = 0 To 3
            MsgBox(tab(i))
        Next

Et là, ca marche^^

++