VBA, déclarer un tableau pour tout un projet Fermé

Question

Bonjour, 

Je suis en train de développer une petite application avec VBA en relation avec un classeur excel associé.
Le problème sur lequel je bloque est que je souhaite déclarer un tableau de valeurs d'Excel dans l'application VBA pour tout le projet, et non juste une seule procédure.
J'ai besoin de ceci car ce tableau sert à plusieurs reprises.

Je n'arrive pas à cette déclaration générale. 
J'ai essayé Public tableau(3,5) as single. Refusé lors du lancement.
Et en mettant seulement Dim tableau... , VBA oublie purement et simplement les valeurs après la procédure...

Merci d'avance, 

Patrick

Utilisateur anonyme · Answer

Bonjour,

Exemple type :


Option Explicit

Public Tableau(3, 5) As Single

Sub Principal()

    Call Insere
    Call Affiche

End Sub

Sub Insere()

    Dim Boucle1 As Integer
    Dim Boucle2 As Integer
    
    For Boucle1 = 0 To 3
        For Boucle2 = 0 To 5
            Tableau(Boucle1, Boucle2) = Boucle1 * Boucle2
        Next Boucle2
    Next Boucle1

End Sub

Sub Affiche()

    Dim strTexte As String
    Dim Boucle1 As Integer
    Dim Boucle2 As Integer
    
    strTexte = ""
    For Boucle1 = 0 To 3
        For Boucle2 = 0 To 5
            strTexte = strTexte & CStr(Tableau(Boucle1, Boucle2)) & vbCrLf
        Next Boucle2
    Next Boucle1
    
    MsgBox strTexte

End Sub
'


n.b. Le tableau sera aussi vu par un autre module

Cdt

Lupin

VBA, déclarer un tableau pour tout un projet

1 réponse

Discussions similaires