Essaie la démarche suivante dans une macro :
- tu récupères la liste des valeurs avec les doublons dans un tableau
- tu supprimes les doublons dans ce tableau (tu arriveras à trouver un algo ailleurs sur ce forum ou sur le net je pense)
- tu affectes ce tableau comme liste de validation aux cellules que tu veux
Ex de code pour affecter un tableau comme liste de validation :
Dim MyList(5) As String
MyList(0) = 1
MyList(1) = 2
MyList(2) = 3
With Range("A1").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=Join(MyList, ",")
End With
Essaie déjà la démarche sans l'algo de suppression de doublons pour la valider...