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 : Sélectionner tout - Visualiser dans une fenêtre à part
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