tri et doublon combobox

[Michel]

bonjour

comment trier et virer les doublons dans une combobox en faisant au plus simple

merci

 

[Gérard DEZAMIS]

Bonsoir Michel

Lien supprimé
Hervé y propose une solution

C'est une des nombreuses pistes que tu aurais pu trouver en faisant Recherche => Doublon Combobox

Ce qui aurait été 'au plus simple'

@+GD

 

[Michel]

bonjour

c'est ce que j'ai fait mais je ne comprend pas ce code en particulier 'collection' je me suis permis de reposer la question pour savoir si il n'y a pas plus simple tout au moins plus clair car ce code ne fonctionne pas chez moi !!!
j'ai modifie ce code ce qui donne ca

Dim typemachine As Collection
Dim c As Range
Dim i As Byte

Set typemachine = New Collection

On Error Resume Next

For Each c In Range('w2:w' & Range('w500').End(xlUp).Row)
 typemachine.Add c.Text, c.Text
Next c

For i = 1 To typemachine.Count
 ComboBox2.AddItem typemachine(i)
Next i

mais comme je ne capte pas ce a quoi correspond 'collection' je suis coince
le combobox reste vide a l'ouverture de l'USF

pourrais tu m'eclairer

merci

 

[_Thierry]

Bonjour cher Gérard, bonjour Michel, le Forum

Je pense que si tu t'y prends de cette façon ce devrait aller mieux :

Private Sub UserForm_Initialize()
Dim Typemachine As Collection
Dim c As Range
Dim i As Integer

Set Typemachine = New Collection

With ThisWorkbook.Worksheets('NomDeTaFeuille')
    On Error Resume Next
        For Each c In .Range('w2:w' & .Range('w500').End(xlUp).Row)
            Typemachine.Add CStr(c.Text), CStr(c.Text)
        Next c
    On Error GoTo 0
End With

For i = 1 To Typemachine.Count
    ComboBox2.AddItem Typemachine(i)
Next i
End Sub

Pour connaître cette astuce avec la méthode Collection, je te conseille ces fils :

Lien supprimé

Lien supprimé

Lien supprimé


Ici tu auras cette fameuse démo assez aboutie et complète :

Lien supprimé

Le fil avec explications complémentaires
Lien supprimé

Bon dimanche
[ol]@+Thierry[/ol]

PS Gérard tu viens au Stade de France le 3 Juin pour les R.S. ? (j'y sera aussi et je passerai aussi quelques jours sur Panam)

Message édité par: _Thierry, à: 09/04/2006 13:42

 

[Michel]

merci mais entretemps j'ai utilisé ça

Dim Cel As Range
Dim x As Long

For Each Cel In Range('W2:W' & Range('W500').End(xlUp).Row)
 If ComboBox2.ListCount > 0 Then
 For x = 0 To ComboBox2.ListCount - 1
 If Cel.Value = ComboBox2.List(x) Then GoTo suite
 Next x
 End If
 ComboBox2.AddItem Cel.Value
suite:
Next Cel

j'ai continué a chercher je ne m'attendais pas a avoir une réponse aussi rapide 🙂

d'autre part j'ai un autre petit souci je pose la question mais je vais aussi chercher pour voir si il y a des réponses

je souhaite mettre une plage de cellule ex:h1:m56
dans un tableau a 6 colonnes et mettre la colonne i dans un combobox puis en fonction de la selection de la combobox prendre les données de la ligne correspondant et les mettre dans des textbox de mon USF quelle est la solution la plus rapide a savoir que ma plage est une plage extraite de ma base principale a1:f20000 et que je ne sais pas comment faire pour mettre ça en tableau directement pour mes recherches et selection