XL 2016 Problème dans la création d'une liste

[Stéphane_1]

Bonjour,

Je cherche à créer une liste en prenant en compte les informations déjà indiqué. Le code arrive à savoir où se trouve les données qu'il doit prendre dans le tableau, mais pas à prendre les bonnes valeurs. J'ai cherché à savoir quelle valeur il prenait ligne par ligne sans succès.

Merci à tous ceux qui m'apporteront leur aide

ElseIf Target.Address = "$E$2" Then
    
    For i = 2 To UBound(TV, 1)
            
        If TV(i, 1) = Range("A2").Value And TV(i, 2) = Range("B2").Value And TV(i, 3) = Range("C2").Value And TV(i, 4) = Range("D2").Value Then
            D(TV(i, 5)) = ""
            MsgBox i
            Debug.Print D(TV(i, 5))
        End If
            
    Next i
    
    L = Join(D.keys, ",")
    Debug.Print L
    
    If L <> "" Then
        
        With Target.Validation
            
            If L <> "" Then .Delete
            .Add xlValidateList, Formula1:=L
        
        End With
    
    End If
        
End If

 

[AtTheOne]

Bonjour à toutes & à tous, bonjour @Stéphane_1
Ton problème vient du fait que pour certaines sections de profilés tu as des valeurs décimales avec comme séparateur une virgule. La virgule étant aussi utilisée pour séparer les éléments de tes listes de validation.
Utilise plutôt le point-virgule comme séparateur dans L = Join(D.Keys, ";")

A bientôt

 

[Stéphane_1]

Bonjour à toutes & à tous, bonjour @Stéphane_1
Ton problème vient du fait que pour certaines sections de profilés tu as des valeurs décimales avec comme séparateur une virgule. La virgule étant aussi utilisée pour séparer les éléments de tes listes de validation.
Utilise plutôt le point-virgule comme séparateur dans L = Join(D.Keys, ";")

A bientôt

C'était encore pire, il ne faisait plus de séparation
Mais comme tu m'as donné la source du problème j'ai pu le régler en changeant les virgule par des point dans mon tableau. Maintenant la séparation fonctionne correctement.

Merci pour ton aide !