[VBA Excel] tableau à dimension paramétrée

Question

Bonjour,
Je programme en VBA pour Excel. 
Dans une procédure j'ai besoin de déclarer des tableau dont la taille est un paramètre que je dois calculer. Comment dois-je faire ?
j'ai essayé

m=XXXX
dim tableau(m) as currency

ça ne fonctionne pas...

merci pour votre aide

irem · Answer

fait plutot

dim MyTableau
Redim MyTableau(m)

ca devrait marcher, attention le tableau va se vider, autrement utiliser Redim Preserve

Irem

Farf · Answer

Plus simple :
Dim MyTableau(1 to m)

Farf

Utilisateur anonyme · Answer

Bonjour,

exemple type :


Sub Tableau()

    Dim MonTableau() As Currency
    Dim Boucle As Integer, Compt As Integer
    Dim strMessage As String
    
    For Boucle = 1 To 100
        ReDim Preserve MonTableau(Boucle)
        MonTableau(Boucle - 1) = 5 * Boucle
    Next Boucle
    
    For Boucle = 1 To 10
        For Compt = 1 To 10
            strMessage = strMessage & MonTableau((Boucle * Compt) - 1) & " - "
        Next Compt
        strMessage = strMessage & vbLf
    Next Boucle
    
    MsgBox strMessage
    
End Sub
'

Lupin

[VBA Excel] tableau à dimension paramétrée

3 réponses

Votre réponse