Discussion :

[Yal17]

Bonjour,

J'essaye de créer un tableau à 2 dimensions.
Dans l'exemple, je vois qu'on le dimensionne à 10 (ReDim monTableau(9, 9))

Cependant, comment peut on le dimensionner vraiment dynamiquement?
En fait, le nombre d'enregistrements dans mon tableau dépend d'un chiffre variable.

J'essayais de faire quelque chose du genre :

Code :

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

1
2
Dim Nbre = mvar.count
Dim MonTableau (Nbre ,Nbre )

Ca n'a pa l'air possible.
Le message que j'obtiens : "Constante requise"

[AlainTech]

Ca devrait marcher:

Code :

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

1
2
3
4
Dim Nbre
Dim MonTableau()
Nbre = mvar.Count
ReDim MonTableau(Nbre, Nbre)

[zazaraignée]

et si tu veux conserver les données déjà entrées dans le tableau tu ajoutes Preserve entre Redim et le nom de ton tableau.

Code :

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

ReDim Preserve MonTableau(Nbre, Nbre)

[Yal17]

Super!
Ca fonctionne!

En fait, il semblerait que le typage que j'essayais de mettre générait l'erreur.

Merci

[zazaraignée]

Une astuce que j'utilise pour ajouter un indice à la fois, la fonction UBound (pour les tableaux à une dimensions, ça marche bien en tout cas...)

Code :

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

1
2
3
4
5
6
7
Dim unTableau() As String ' He! oui! on peut le typer
 
Private Sub cmdAjouter_Click()
    Dim i As Integer
    i = Ubound(unTableau)
    unTableau(i) = InputBox("Votre nom, s'il vous plaît", "Identification", "invité")
End Sub

[ProgElecT]

zazaraignée, ton astuce me plait, avec un tableau à plusieurs dimensions, c'est possible aussi, je m'en suis servi cette semaine

Dim A(1 To 100, 0 To 3, -3 To 4)

Instruction Valeur renvoyée
UBound(A, 1) 100
UBound(A, 2) 3
UBound(A, 3) 4

[Delbeke]

Seul bémol, le redim ne fonctionne que sur le dernier indice