Discussion :

[thomas.r]

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

[SfJ5Rpw8]

Bonjour,

ajout d'un Redim preserve

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If CheckBox.CheckBoxInst.Value = "Vrai" Then
                 Redim Preserve LibelleChoisi(j) 
                 LibelleChoisi(j) = CheckBox.CheckBoxInst.Caption 
 
             J = J+1

[thomas.r]

Ca marche.

Merci