Discussion :

[Lucky062]

Bonjour à tous,

Voilà ! Je sais que cela est possible pour l'avoir vu il y a quelques années, mais je ne trouve rien

Dans une colonne de 2500 lignes se trouvent les elements suivants que l'on retrouve plusieurs fois parmi d'autres :

***
MZPO-LIN3-RE12-DIVERS
MZUT-DEMI-CH01
MZPO-COMM-POLY-DIVERS
MZPO-LIN4-RE16-DIVERS
MZPO-LIN4-RE16-DIVERS
MZSE-LIN1-FLUI-K1311
******
Comment puis je faire pour mettre dans une autre colonne par exemple :
MZPO-LIN4-RE16-DIVERS qui serira de choix dans une liste déroulante ?
Autrement dit comment récupérer chaque item et l'inclure dans une autre colonne, s'il vous plait ?

Merci d'avance pour votre aide !

[EngueEngue]

Soit tu te galères à boucler, soit tu utilises le sub removeduplicates de la classe range soit tu demandes à Ormonth l'intellectuel de te répondre puisqu'il n'a pas daigné me répondre à moi.

Après il suffira de recopier ton objet sans doublons et d'affecter ce range à une liste déroulante

[parmi]

Bonjour,

Comme j'imagine que tu veuilles conserver les données de base, il te faudrait utiliser le filtre avancé ou élaboré sans doublon que tu copies dans une autre colonne et dont tu te sers pour ta liste de choix

[EngueEngue]

Peux tu récupérer les éléments de l'objet filtre sans doublon via VBA ?

[Invité]

Bonjour,
avec l'objet MyCollection tu récupère tes données sans doublon et tu peux charger ta liste avec.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim MyCollection As New Collection
Dim MyRange As Range
Dim L As Long
Set MyRange = ActiveSheet.UsedRange
On Error Resume Next
For L = 2 To MyRange.Rows.Count
    MyCollection.Add MyRange(L, 1), MyRange(L, 1)
Next
On Error GoTo 0
For L = 1 To MyCollection.Count
    Debug.Print MyCollection(L)
Next
End Sub

[EngueEngue]

Merci Chef! Tu m'apprends quelque chose de très utile