Discussion :

[thibault67100]

Bonjour, j'ai un petit problème dans mon code VBA que voici :

Code :

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

1
2
3
4
If est_utilisable = True And m = 1 Then
            ReDim Caisses_utilisables(UBound(Caisses_utilisables) + 1)
            Caisses_utilisables(UBound(Caisses_utilisables) - 1) = Caisses(0, i)
End If

Sous certaines conditions, je rajoute une valeur à la fin de mon tableau dynamique et je dois donc augmenter de 1 sa taille. Si je rajoute un

Code :

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

MsgBox Caisses_utilisable(UBound(Caisses_utilisables))

avant le End If, la macro affiche bien toutes mes valeurs.
Par contre avec ce code qui est censé afficher l'ensemble du tableau (le code marche avec d'autres tableaux) je reçois un ensemble de case vide (mais le bon nombre de case).

Code :

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

1
2
3
4
5
6
7
 
frag = ""
For i = 0 To UBound(Caisses_utilisables) - 1 Step 1
           MsgBox Caisses_utilisables(i)
           frag = frag & Caisses_utilisables(i) & " / "
Next i
MsgBox frag

Je pense qu'il y à un problème d'affectation de variable dans cette histoire, une idée ?
Merci d'avance,
Cordialement

[Al__22]

Essaye :

Code :

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

ReDim Preserve Caisses_utilisables(UBound(Caisses_utilisables) + 1)

[thibault67100]

C'est bon ça à marché !
Une petite explication ?
Merci !

[Al__22]

Selectionne le Preserve et

Non en vrai tu peux lire ceci : A lire

En gros Redim te permets de redimensionner ton tableau (entendons bien que la dernière dimension) mais efface tout ce qui est dedans
Le Preserve te permets de garder tes données