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