Est il possible d'appeler une variable tableau dans un autre module

Bonjour à tous.
Je viens de scinder mon code pour alléger le contenu du module et du coup j'ai une erreur générée (erreur d'éxécution 5, argument ou appel de procédure incorrect.

dans le module principal appelé listing_et_compil ma variable est bien déclarée en public

Code:

---

1 2	Option Base 1 Public tablo()

---

dans le module que j'ai nommé tableau j'ai écris cette ligne de code :

Code:

---

Range("C5:J16") = Application.Transpose(Application.Transpose(listing_et_compil.tablo))

---

j'ai bien vu la double transposition je vais corriger.
je pensais à cela :

Code:

---

Range("C5:J16").Value = listing_et_compil.tablo

---

je confirme que ce code

Code:

---

Range("C5:J16").Value = tablo

---

fonctionne à l’intérieur du module principal...
Votre avis docteur?
Merci par avance de votre aide.:P

Bonjour,
j'ai créé 3 module (A,B,C) j'ai placé des variable comme suit!

Code:

---

1 2	Public S As String Public tablo()

---

Code:

---

1 2	Public S As Date Public tablo()

---

Code:

---

1 2 3 4 5 6 7

Sub test() A.S = "toto" B.S = Now A.tablo = Array(A.S, B.S) B.tablo = A.tablo Range("A1:B1") = B.tablo End Sub

---

et ça marche!

ah zut wtf :oops:
effectivement votre exemple fonctionne.:calim2:

ou implémente tu listing_et_compil.tablo = Array(A.S, B.S) '?????

pour faire simple du moins je vais essayer.

L'implémentation de tablo se fait dans l'exemple suivant (remplir la ligne 12 et les colonnes suivantes) code qui se situe dans le module listing_et_compil:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

If zone(i, 5) = "XXXX" Then h2 = h2 + 1 ReDim Preserve tabloa(h2)   tabloa(h2) = Application.Index(zone, i) tablo(12, 1) = h2 'trouve la valeur min et l'écrit dans le tableau de synthese tablo(12, 2) = Application.Min(Application.Index(tabloa, , 3)) 'trouve la valeur max et l'écrit dans le tableau de synthese tablo(12, 3) = Application.Max(Application.Index(tabloa, , 3)) 'quantité inf 1000 et l'écrit dans le tableau de synthese If Application.Min(Application.Index(tabloa(h2), , 3)) < 1000 Then tablo(12, 4) = tablo(12, 4) + 1 End If 'quantité 1000/2000 et l'écrit dans le tableau de synthese If Application.Min(Application.Index(tabloa(h2), , 3)) >= 1000 And Application.Min(Application.Index(tabloa(h2), , 3)) < 2000 Then tablo(12, 5) = tablo(12, 5) + 1 End If 'quantité 2000/3000 et l'écrit dans le tableau de synthese If Application.Min(Application.Index(tabloa(h2), , 3)) >= 2000 And Application.Min(Application.Index(tabloa(h2), , 3)) < 3000 Then tablo(12, 6) = tablo(12, 6) + 1 End If 'quantité sup 3000 et l'écrit dans le tableau de synthese If Application.Min(Application.Index(tabloa(h2), , 3)) >= 3000 Then tablo(12, 7) = tablo(12, 7) + 1 End If 'calculs la moyenne et l'écrit dans le tableau de synthese tablo(12, 8) = Application.Average(Application.Index(tabloa, , 3)) End If

---

l'objectif étant de charger la variable tablo de toutes les informations nécessaires afin d'en faire une synthèse (dans une feuille de calcul excel)

dans le module tableau que je voulais créer
1/ je génère la feuille Excel qui va bien
2/ je formate un tableau avec les titres
3/ je veux remplir les cellules avec les données contenues dans la variable tablo

quand ce code est dans le module listing_et_compil tout fonctionne les données s'écrivent bien au bon endroit

Code:

---

Range("C5:J16").Value = tablo

---

si je crée le module tableau en appelant la variable tableau implémentée par ce code

Code:

---

Range("C5:J16").Value = listing_et_compil.tablo

---

là ca ne fonctionne pas...
Il faut bien que je mette Public tablo() dans le module listing_et_compil et pas ailleurs on est bien d'accord....:calim2:

Merci pour tout

Bonjour,

Et si tu écris

Code:

---

Range("C5:J16").Value = tablo

---

Ca donne quoi?

Bonjour,

Si j'écris ce code ans mon module principal qu'on appel A

Code:

---

Range("C5:J16").Value = tablo

---

les données s'écrivent très bien.

si j'appelle dans le module A

Code:

---

module1.toto

---

et que je place dans module1

Code:

---

1 2 3

Sub toto() Range("C5:J16").Value = tablo End Sub

---

rien ne s'écrit

alors qu'au niveau du module A j'ai bien déclaré en amont:

Code:

---

Public tablo()

---

:?

Merci à toi.:)

bonjour,
fais un imprime écran de l’explorateur d'objet de ton projet vba!

dans tes entête de module écris option explicite!