[XL-97] Listbox dépendantes en VBA

J'ai vérifié avec une donnée valide dans plage..

Code:

1
2
3
4
5
6
7
8
Dim plage As String
plage = "B3,B8,C8,D4"
   i = 0
    For Each cel In Range(plage)
        ReDim Preserve tablo(i)
        tablo(i) = cel.Value
        i = i + 1
    Next cel

et ça sort bien le résultat attendu
deux pistes..
Tu n'active aucune feuille dans la sub, elle ne serait pas changée ailleur ?
Suivre la sub.. plageValeur et controller ce qu'elle renvoi.

Remarque .. Tu fait

Code:

1
2
3
4
5
6
7
8
9
For item = 0 To lstCle.ListCount - 1
    If lstCle.Selected(item) = True Then
        If plage = "" Then
            plage = plageValeur(lstCle.List(item), plgLstCle, decal)
        Else
            plage = plage & "," & plageValeur(lstCle.List(item), plgLstCle, decal)
        End If
    End If
Next

alors que...

Code:

1
2
3
4
5
6
For item = 0 To lstCle.ListCount - 1
    If lstCle.Selected(item) = True Then
        plage = plage & "," & plageValeur(lstCle.List(item), plgLstCle, decal)
    End If
Next
plage = Mid(plage, 2)

suffit.