Discussion :

[nouveauvba]

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 :

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

1
2
Option Base 1
Public tablo()

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

Code :

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

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 :

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

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

je confirme que ce code

Code :

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

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

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

[Invité]

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

Code Module A :

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

1
2
Public S As String
Public tablo()

Code Module B :

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

1
2
Public S As Date
Public tablo()

Code module C :

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

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!

[nouveauvba]

ah zut wtf
effectivement votre exemple fonctionne.

[Invité]

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

[nouveauvba]

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 :

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
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 :

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

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

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

Code :

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

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

Merci pour tout

[AlainTech]

Bonjour,

Et si tu écris

Code :

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

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

Ca donne quoi?

[nouveauvba]

Bonjour,

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

Code :

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

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

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

si j'appelle dans le module A

Code :

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

module1.toto

et que je place dans module1

Code :

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

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 :

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

Public tablo()

Merci à toi.

[Invité]

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

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