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

Stéphane_1

XLDnaute Nouveau
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

Capture.PNG







Capture2.PNG


VB:
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

XLDnaute Accro
Supporter XLD
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

XLDnaute Nouveau
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 !
 

Discussions similaires

Réponses
4
Affichages
279

Statistiques des forums

Discussions
313 297
Messages
2 096 926
Membres
106 789
dernier inscrit
FrancoisVLD