Manipulation de Tableau

Bonjour,

Pouvez-vous me dire pourquoi j'ai l'erreur "L'indice n'appartient pas à la sélection" quand je veux ajouter des éléments dans un tableau de String mais pas dans un tableau de Variant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub CommandOK_Click() Dim CheckBoxCollection As Collection Dim CheckBox As CheckBoxClass Dim LibelleChoisi() As Variant Dim j As Long j = 0 Set CheckBoxCollection = ControlCollection For Each CheckBox In CheckBoxCollection If CheckBox.CheckBoxInst.Value = "Vrai" Then LibelleChoisi(j) = CheckBox.CheckBoxInst.Caption j = j + 1 End If Next CheckBox Call Traitements.preTraitement(LibelleChoisi) End Sub

---

Ah non je l'ai aussi.

La question est donc comment ajouter des éléments dans un tableau de String.

Merci d'avance

Bonjour,

ajout d'un Redim preserve

Code:

---

1 2 3 4 5 6

If CheckBox.CheckBoxInst.Value = "Vrai" Then Redim Preserve LibelleChoisi(j) LibelleChoisi(j) = CheckBox.CheckBoxInst.Caption   J = J+1

---

Ca marche.

Merci