Sujet Précédent Sujet Suivant

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

Fermé
helene.hauduc - 7 juin 2007 à 13:33
 Utilisateur anonyme - 30 oct. 2007 à 13:22
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
30 oct. 2007 à 13:22
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 mardi 22 mai 2007 Statut Membre Dernière intervention 9 octobre 2012 99
7 juin 2007 à 14:11
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
30 oct. 2007 à 11:44
Plus simple :
Dim MyTableau(1 to m)

Farf
0