tableau dyn dans une variable???

[Syd]

boujour tout le monde,

Est-ce qq'un pourait me dire comment integrer un tableau de valeurs ds une variable.

Voici Mon code :

Option Explicit
Public vaVariable As Variant
Dim vatableau() As Variant
Dim Compteur as Integer

'Quand on clic sur le bouton "Nombre OK" on incremente le tableau et on lui ajoute des valeurs

Private Sub bnGroupeNROK_Click()
ReDim Preserve vatableau(0 To Compteur)
vatableau(Compteur) = txBox.Value
Compteur = Compteur + 1

'Une foi le tableau "vatableau" rempli, voici mes tentatives pour integer les valeurs du tableau ds la variable "vaVariable" :

'1ere tentative :
vaVariable = vatableau()

'2eme tentative :
For i = 0 To Compteur
ReDim Preserve vaVariable (0 To Compteur)
vaVariable (i) = vatableau(i) 'avec i declaré en Integer
ReDim Preserve vaVariable (0 To Compteur)
vaNbAnx(i) = NbAnxDesGrpes(i)

Next i

End Sub

---> j'ai comme erreur : incompatibilite de type oubien l'indice ne correspond pas à la selection ....

Merci d'Avance.

 

[jaccard]

Hello,

vaVariable = vatableau

et pour parcourir l'un ou l'autre :

For Each strItem In vaVariable
Debug.Print strItem
Next strItem

ou

For intIndex = 0 To UBound(vaVariable)
Debug.Print vaVariable(intIndex)
Next intIndex


dom ;-)

 

[Syd]

Merci Dom, tes boucles vont m'etre tres utiles