Discussion :

[Currahee]

Bonjour,

Je sais comment associer à une liste de choix à une cellule.

Mon besoin serai d'associer une liste de choix à toutes les cellules d'une colonne, la liste de choix étant les valeurs des cellules de cette même colonne...

En résumé, c'est permettre la saisie automatique (j'ai activé l'option, mais cela ne marche pas )

Cela marche en faisant la procédure classique, mais ce que j'aimerai c'est avoir une liste sans doublons. Est-ce qu'il y a une fonction excel qui à partir d'un range renvoie le range sans doublons ???? (accessoirement trié en plus mais c'est moins critique).

Merci d'avance à ceux qui pourront m'aider

[ouskel'n'or]

Tiens j'ai modifié mon post précédent pour que ça fonctionne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub ListerSansDoublon()
Dim NoLigne As Long, NoCol As Byte
Dim Liste As Range, Cell as range
    NoCol = 1
    DerniereLigne = Range("A65535").End(xlUp).Row
 
    Set Liste = Cells(2, NoCol)
    For NoLigne = 2 To DerniereLigne 'en supposant que tu aies une ligne d'entête
      Set Liste = Union(Liste, Cells(NoLigne, NoCol))
      Do While Cells(NoLigne + 1, NoCol) = Cells(NoLigne, NoCol)
        NoLigne = NoLigne + 1
      Loop
    Next
    Debug.print Liste.Address 'affiche la donnée dans la fenêtre Exécution
    For Each Cell In Liste
        Debug.print Cell
        TaListeAtoi.additem Cell
    Next
End Sub

Tu dis
A+

NB - Dans cette ligne

DerniereLigne = Range("A65535").End(xlUp).Row

tu mets la colonne des données concernées