Discussion :

[LeForestier]

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

Code :

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

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 :

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

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 :

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

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.

[Michel Delapouaitte]

Bonjour à tous.

Bon. J'ai essayé de tourner la chose dans pas mal de sens encore ce matin, mais ça ne marche toujours pas.
Entre temps, il y a eu un changement de cahier des charges, du coup je vais plus du tout faire comme ça.

Merci beaucoup pour ton aide LeForestier, et merci à Laetitia aussi, même si j'ai pas tout compris aux bouts de codes que tu as postés.

Bonne journée à tous.