Discussion :

[esse2016]

Bonsoir à tous,

je suis confronté à petit problème. J'ai regardé si il existait, mais à priori non.

Voilà, j'ai dans une feuille excel une colonne nom et dans une autre colonne des produits.

ma ComboBox3.list contient une liste de nom correspondant à ma colonne nom. elle a été créée par ComboBox3.list = array("", "nomA", "nomB", ... , "nomN"). (tous les noms sont différents !)

Dans un UserForm, L'utilisateur choisit dans le menu déroulant du ComboBox3, le nom qu'il souhaite. C'est alors que la macro va rechercher dans la colonne produits, tous les produits rattachés au nom choisit. Cela a pour effet d'enrichir la liste du ComboBox4 de produits. La ComboBx4 ne doit pas avoir de doublons.

j'ai un début de mon code

Code :

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

1
2
3
4
5
6
7
8
For ligne = 9 To Sheets("Base").Range("J" & Rows.Count).End(xlUp).Row
If Cells(ligne, 4).Value = ComboBox3.Value Then
ComboBox4.AddItem Cells(ligne, 10).Value
ElseIf Me.ComboBox4.ListIndex = -1 Then
Me.ComboBox4.AddItem Cells(ligne, 10).Value
End If
End If
Next ligne

Si vous savez m'aider, je vous remercie par avance. Je ne sais pas comment m'y prendre.

Au plaisir de vous lire.

[jerome.vaussenat]

Salut,

Tu peux utiliser l'objet dictionary. Avec lui, on peut tester si une valeur est déjà dedans et l'ajouter dans le cas contraire.

Tu trouveras là, de bonnes explications et des exemples pour comprendre :
http://boisgontierjacques.free.fr/pa...#ListeSansDoub

[esse2016]

merci,

mais cela ne marchera pas, j'ai déjà consulté ce site. ça ne marchera pas car son tableau est rangé. je m'explique les doublons se suivent. or dans mon cas les doublons ne suivent pas forcément...

Donc comment faire ?

[gFZT82]

Bonjour,

Bien que tu sois persuadé que le dictionnaire ne donnera pas le résultat attendu, il ne faut pas hésiter à faire le test :

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim mondico
Dim Ligne As Long
    Set mondico = CreateObject("Scripting.Dictionary")
    Me.ComboBox4.Clear
    For Ligne = 9 To Sheets("Base").Range("J" & Rows.Count).End(xlUp).Row
        If Cells(Ligne, 4).Value = ComboBox3.Value Or Me.ComboBox3.ListIndex = -1 Then
            mondico(Cells(Ligne, 10).Value) = ""
        End If
    Next Ligne
    ComboBox4.List = Application.Transpose(mondico.keys)

Cordialement.

[esse2016]

Bonjour,

Merci gtz d'avoir écrit le code avec "mondico" car je ne suis pas fort en vba. Je vais tenter pour voir.

Cependant j'ai cru comprendre qu'avec la methode "mon dico" suivant qu'on avait un pc ou un mac la methode n'est pas compatible.

Cependant j'ai "bricolé" autrement, mais je vous fais parvenir tout cela ce soir...

Merci pour le moment aux 2 intervenants pour votre aide, c'est gentil.

[Marc-L]

Bonjour,

sur MAC comme sous Windows il est possible d'effectuer les mêmes opérations via l'objet VBA Collection
ou encore en combinant une variable tableau et la fonction EQUIV, tout dépend du volume à traiter,
quelques exemples dans les discussions de ce forum …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …