2 questions sur les tableaux s.v.p. (merci d'avance)

[beegees]

Bonjour tout le monde,

Deux questions sur les tableaux s.v.p. :

1) comment dire for i = 0 to longueur tableau ?

2) j'ai créé un tableau que voici :

Dim Tabl_class(15) As Double

Je ne connais pas à l'avance le nombre d'éléments qui seront mis dans mon tableau.

Je sais que je dois utiliser redim et prevent pour garder les données mais auriez-vous un petit exemple s.V.p. ?

Voici comment je remplis actuellement mon tableau :

While ActiveCell.Value <> ""
    cote_actuelle = ActiveCell.Value
    position = position + 1
    ActiveCell.Offset(1, 0).Select
    While ActiveCell.Value = cote_actuelle
        ActiveCell.Offset(0, -1).Select 'je sélectionne le nombre dans la rangée juste avant
        position = position + ActiveCell.Value
        ActiveCell.Offset(0, 1).Select
        ActiveCell.Offset(1, 0).Select
        i = i + 1
    Wend
    Tabl_class(class_number) = position / i
    class_number = class_number + 1
    i = 1
    position = 0
Wend

Merci d'avance.

beegees

 

[Pierrot93]

Re : 2 questions sur les tableaux s.v.p. (merci d'avance)

Bonjour,

pour ta 1ère question, le code ci-dessous effectue une boucle du plus petit indice d'un tableau au plus grand :

For i = LBound(t) To UBound(t)

bonne journée
@+

 

[beegees]

Re : 2 questions sur les tableaux s.v.p. (merci d'avance)

Bonjour Pierrot,

Merci pour ta réponse qui me permet d'avancer.

Encore merci.
beegees

 

[Pierrot93]

Re : 2 questions sur les tableaux s.v.p. (merci d'avance)

Re

pour ta 2ème question, tu peux également alimenter un tableau ainsi :

Dim t() As Variant
t = Range("A1:A" & Range("A65536").End(xlUp).Row).Value

bonne journée
@+

 

[Pierrot93]

Re : 2 questions sur les tableaux s.v.p. (merci d'avance)

Re

un exemple avec l'utilisation de "redim" et "preserve" :

Dim montableau()
For i = 0 To 9
    ReDim Preserve montableau(0 To i)
    montableau(i) = Range("A" & i + 1).Value
Next i

@+

 

[beegees]

Re : 2 questions sur les tableaux s.v.p. (merci d'avance)

Re Pierrot,

ça me semble fonctionner.

Merci beaucoup pour ton dévouement et ton efficacité.

beegees