Mémoriser valeur tableau

Version imprimable

Bonjour à tous,

Je me permets de poster car je rencontre un problème dans mon code VBA.
Je voudrais créer une matrice via un "sub", qui prend ses valeurs dans une feuille excel.
Par la suite, je voudrais faire appel aux valeurs de cette matrice dans d'autres procédure ("sub", "function"), mais malheureusement Excel supprime la matrice en entrant dans une autre procédure.

Pour exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub def() Dim Plage As Range ReDim Tableau(1 To 100, 1 To 2) Set Plage = Worksheets("mafeuille").Range("B3:C123") Tableau = Plage.Value End Sub Sub ess() s = Tableau(3, 2) End Sub
Biensur, dans la deuxième Sub, j'ai une erreur...

Auriez-vous une idée pour résouder mon problème ?

Merci d'avance,

TheRealMike

tu déclare ta variable en public (avant les déclarations de fonctions) ;):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim tableau As Variant
 
Sub def()
    Dim Plage As Range
    ReDim Tableau(1 To 100, 1 To 2)
    Set Plage = Worksheets("mafeuille").Range("B3:C123")
 
    Tableau = Plage.Value
 End Sub
 
Sub ess()
s = Tableau(3, 2)
End Sub

Bonjour à vous deux,

Et si ta plage risque de changer, tu peux dimensionner ton tableau dynamiquement par rapport à cette dernière :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Public tableau() Sub def() Dim Plage As Range Set Plage = Worksheets("mafeuille").Range("B3:C123") ReDim tableau(1 To Plage.Rows.Count, 1 To Plage.Columns.Count) tableau = Plage.Value End Sub
Hervé.