Discussion :

[TheRealMike]

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 :

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

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

[delphine35]

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

Code :

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

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

[Theze]

Bonjour à vous deux,

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

Code :

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

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é.