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