Discussion :

[TheRealMike]

Bonjour,

je suis face à un problème de débutant....

je vous l'expose quand même car ca me bloque un peu..

dans une sub,je défini une matrice à partir d'un tableau situé dans une feuille.

dans une autre sub, je voudrais faire apelle à cette matrice que j'ai crée, mais je n'y arrive pas.

Voila le code que j'ai tenté:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub creationtableau()
 
Dim maintien(1 To 45, 1 To 37) As Variant
 
For i = 1 To 45
    For j = 1 To 37
    maintien(i, j) = Worksheets("maintien").Cells(i + 2, j + 1)
    Next j
Next i
 
End Sub
 
Sub essai()
MsgBox maintien(1, 1)
End Sub

seulement, dans la deuxième sub, il me dit que "maintien" n'est pas défini.

Pourriez-vous m'aider s'il vous plaît?

[Qwazerty]

Salut
Tu as 3 choix
soit tu déclares ton tableau avec une portée module

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public maintien(1 To 45, 1 To 37) As Variant
 
Sub creationtableau()
 
For i = 1 To 45
    For j = 1 To 37
    maintien(i, j) = Worksheets("maintien").Cells(i + 2, j + 1)
    Next j
Next i
 
End Sub
 
Sub essai()
MsgBox maintien(1, 1)
End Sub

Mais attention de bien le renseigner avant d'appeler essai.

Soit si Essai est appelé dans la sub création tableau, tu passes ton tableau en paramètre a Essai

Soit si créationtableau est exécuter dans la sub Essai, alors tu fais en sorte que créationessai te renvoi un tableau, tu devras dés lors déclarer CrétionTableau comme etant une Function et non plus une Sub

A++
Qwaz

[TheRealMike]

Merci pour ta réponse,

Mais ca me pose encore probème.

Quand j'exécute, ca m'affiche une erreur :

eurreur de compilation, des constantes, chaines de longueur fixe, tableaux , types définispar l'utilisateur et instruction Declare ne sont pas autorisés comme membres public de modules d'objet.

Y aurait-il une solution?

merci

[Qwazerty]

Salut
Peut etre en le declarant comme ca

Code :

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

Public MonTableau()

Puis dans la procedure tu le redimensionne

Code :

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

Redim MonTableau(1 To 45, 1 To 37)

Tu devrais regarder des tutos sur les définition de variable le cas est certainement énoncé et expliqué.
++
Qwaz

[TheRealMike]

Merci pour tes réponses,

ca marche finalement avec le ReDim.

Mais j'ai encore un autre problème!

je crée quelques tableaux de la même manière :

Code :

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

1
2
3
4
5
6
7
 
Public maintien As Variant
Public proba As Variant
Public table As Variant
Public taux As Variant
Public portefeuille As Variant
Public ages As Variant

ensuite j'ai plusieurs sub qui font toutes appel à ces Variant.

Le problème c'est que tout se passe comme si, au fur et a mesure, les tableaux maintien, proba, etc n'étaient plus en mémoire...je dois donc réexécuter la sub de création de ces tableaux pour pouvoir les utiliser....

Avez-vous une idée pour qu'Excel "retienne" ces tableaux ?

Merci

TRM

[Qwazerty]

Salut
J'ai deja rencontré ce problème, sans en avoir réellement trouvé de solution.
Il semble que les tableaux se "detruise" essentiellement lorsque le code rencontre une erreur (attention aux On Error Resume Next qui masque les plantage du code!) les tableaux sont alors purgés par excel, on observe bien se phénomene en mettant un espion sur le Tableau et en regardant sont comportement au fure et a mesure du code.

Deux choix

Soit effectivement relancer la sub de création du tableau et a ce compte la il vaut mieux travailler avec un tableau de porté Sub

Soit le stocker dans une feuille du tableau que tu prends le soin de cacher.

Il existe peut etre (surrement) d'autres solutions.
++
Qwaz