Redim d'un tableau et portée

BAROTOLI · 21 Avril 2010

Bonsoir à toutes et à tous,

J'aurais besoin de vos lumières pour une question toute simple.

J'alimente une variable tableau en fonction d'une base de données en utilisant la fonction Redim puisque je ne connais pas à l'avance la taille de cette base de données.
Je souhaiterai ensuite utilisé ce tableau dans plusieurs Private Sub et malheureusement cela ne semble pas possible à cause de la fonction Redim.

Existe t-il une solution ?

Un grand merci d'avance à celui qui pourra m'aider,
Bonne soirée,
Olivier

JNP · 21 Avril 2010

Re : Redim d'un tableau et portée

Bonsoir Barotoli 🙂,
Pas sûr d'avoir compris, mais teste ce code en lançant Test

Code:

Dim Tableau()
Private Sub Test()
ReDim Tableau(1)
Tableau(0) = "Titi"
Tableau(1) = "Toto"
Test2
End Sub
Private Sub Test2()
Dim I As Integer
For I = LBound(Tableau) To UBound(Tableau)
MsgBox Tableau(I)
Next I
ReDim Preserve Tableau(2)
Tableau(2) = "Tutu"
For I = LBound(Tableau) To UBound(Tableau)
MsgBox Tableau(I)
Next I
Erase Tableau
End Sub

Bonne soirée 😎

BAROTOLI · 21 Avril 2010

Re : Redim d'un tableau et portée

J'ai cherché pendant des heures... Il suffisait juste de déclarer le tableau en dehors d'une procédure... et le Redim ne pose aucun problèlme, le tableau est disponible dans toutes les procédures Private Sub.

Ca n'a l'air de rien, mais tu m'enlèves une sacrée épine du pied.
Un immense merci !
Bonne soirée !

Redim d'un tableau et portée

BAROTOLI

Guest

JNP

XLDnaute Barbatruc

BAROTOLI

Guest

Discussions similaires

Redim d'un tableau et portée

BAROTOLI

Guest

JNP

XLDnaute Barbatruc

BAROTOLI

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency