Utilisation d'un tableau avec d'autres SUB

Bonjour,

J'ai créé une macro qui est trop longue (excel ne veux donc pas la lire). Je suis donc obligé de créer des sous programmes. Ca tombe bien car ma macro est une succession de tâches qui peuvent très bien être mise chacune dans un sub. Mon problème est que au départ de la macro, je transpose toutes les données de fichiers excel dans un tableau et chacune des tâches utilisent ce tableau. Or, lorsque je met une tâche à part dans un Sub, le tableau n'est plus reconnu.

Que faire pour que mon tableau soit vu et lu par tous les sub ?

Merci à vous !:D

Bonsoir
Si j'ai bien compris, passe le tableau en paramètre des sous sub.

Exemple simpliste (remplie A1:A12 de feuil2 et exécute la Sub Test)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Transf(Tb As Variant) Dim i As Integer   For i = LBound(Tb) To UBound(Tb) Tb(i, 1) = Tb(i, 1) & " bis" Next i End Sub   Sub Test() Dim Tablo   With Sheets("Feuil2") Tablo = .Range("A1:A12") Transf Tablo .Range("B1:B12") = Tablo End With End Sub

---

Bonjour,

2 solutions:

1)
Le tableau peut être passé en paramètre des autres sub en utilisant le mot clé byref...

Code:

---

1 2 3 4

sub proc1(byref montab) montab(1)=545 end sub

---

2)
Le tableau peut être déclaré dans le module et non dans une sub.

Code:

---

1 2 3 4 5 6

Dim montab(10) as String   sub proc1() montab(1)=545 end sub

---

Si le tableau doit être appelé dans différents modules il faut ajouter le mot clé "Global".

Code:

---

Global montab(10) As String

---