[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 164 Date d'inscription   Statut Membre Dernière intervention   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