Discussion :

[francky74]

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 !

[mercatog]

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 :

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

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

[arosec]

Bonjour,

2 solutions:

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

Code :

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

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 :

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

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 :

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

Global montab(10) As String