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

helene.hauduc -  
 Utilisateur anonyme -
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
A voir également:

3 réponses

Réponse 1 / 3
Utilisateur anonyme
 
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
1
Réponse 2 / 3
irem Messages postés 166 Statut Membre 99
 
fait plutot

dim MyTableau
Redim MyTableau(m)

ca devrait marcher, attention le tableau va se vider, autrement utiliser Redim Preserve

Irem
0
Réponse 3 / 3
Farf
 
Plus simple :
Dim MyTableau(1 to m)

Farf
0