Discussion :

[setinor]

Bonjour,

Après un filtre de la colonne "A" un combobox s'alimente avec les lignes visibles de la colonne "R"
J'aimerai ajouter dans le code l’enlèvement de doublon.

Voici le code ;

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 TestRecuperation()
Range("R10").Select
Dim i As Integer
Dim ILIGNE As String
'Parcours les lignes visibles
While ActiveCell.Value <> ""
    With ActiveCell
        ILIGNE = .Row
        Cells(ILIGNE + 1, .Column).Resize(16384 - ILIGNE).SpecialCells(xlVisible).Cells(1).Select
    End With
    ActiveSheet.ComboBox1.AddItem ActiveCell.Value
    i = i + 1
Wend
End Sub

Pouvez-vous m'aider svp.
En vous remerciant d'avance

[Invité]

Bonjour,

Regardez du côté des Dictionnaires Dico VBA

Cordialement.

[mathspountz]

Quelque chose comme ça peut-être ?

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
20
21
22
Sub TestRecuperation()
Range("R10").Select
Dim i As Integer
Dim ILIGNE As String
 
Dim str$
Dim dict
Set dict = CreateObject("Scripting.Dictionary")
 
'Parcours les lignes visibles
While ActiveCell.Value <> ""
    With ActiveCell
        ILIGNE = .Row
        str = Cells(ILIGNE + 1, .Column).Resize(16384 - ILIGNE).SpecialCells(xlVisible).Cells(1).Select
    End With
    dict(str) = ""
    i = i + 1
Wend
 
ActiveSheet.ComboBox1.List = dict.keys
 
End Sub

[setinor]

Bonjour,

Je reviens vers vous pour la suite de cet épisode...
Depuis ma dernière connexion, j'ai potassé sur le site Dico VBA et je trouve que cet outil est très pratique.

Le code de mathspountz fonctionne en partie mais le combobox affiche comme résultat la valeur "VRAI".
Il doit manquer un add je pense car on alimente pas le dictionnaire pour le moment.

Je continus à chercher où et comment y ajouter cette syntaxe et je reviens vers vous pour le prochain épisode. Si quelqu'un a une idée n'hésiter pas. Merci

Le code :

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
20
21
22
23
 
Sub TestRecuperation()
Range("R10").Select
Dim i As Integer
Dim ILIGNE As String
 
Dim str$
Dim dict
Set dict = CreateObject("Scripting.Dictionary")
 
'Parcours les lignes visibles
While ActiveCell.Value <> ""
    With ActiveCell
        ILIGNE = .Row
        str = Cells(ILIGNE + 1, .Column).Resize(16384 - ILIGNE).SpecialCells(xlVisible).Cells(1).Select
    End With
    dict(str) = ""
    i = i + 1
Wend
 
ActiveSheet.ComboBox1.List = dict.keys
 
End Sub

[setinor]

Re -

J'ai trouvé il fallait juste ajouter cette instruction :

Code :

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

str = ActiveCell.Value

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
20
21
22
23
Sub TestRecuperation()
Range("R10").Select
Dim i As Integer
Dim ILIGNE As String
 
Dim str$
Dim dict
Set dict = CreateObject("Scripting.Dictionary")
 
'Parcours les lignes visibles
While ActiveCell.Value <> ""
    With ActiveCell
        ILIGNE = .Row
        str = Cells(ILIGNE + 1, .Column).Resize(16384 - ILIGNE).SpecialCells(xlVisible).Cells(1).Select
    End With
    str = ActiveCell.Value
    dict(str) = ""
    i = i + 1
Wend
 
ActiveSheet.ComboBox1.List = dict.keys
 
End Sub

Merci et à bientôt pour de nouvelle aventure.

[thebenoit59]

Bonjour Setinor.
Je trouve ton code un peu tiré par les cheveux.
Aurais-tu un exemple à fournir pour jeter un oeil par curiosité ?

[setinor]

Pourquoi tiré par les cheveux ?

J'ai différentes colonnes dont une désignation et une matière.
Je filtre d'abord sur la désignation. J'obtiens donc tous les éléments la concernant.
Les matiéres correspondantes sont ainsi afficher. Dans un combobox je récupère ces valeurs pour que l'utilisateur puisse filtrer suivant ce qui cherche.
Ils ne doivent pas avoir accès à la feuille et donc ils ne peuvent pas utiliser le filtre normal de la feuille.

[thebenoit59]

Tu as deux combobox alors ou une seule pour tes deux colonnes ?
Je pense qu'on pourrait alléger la procédure.

[setinor]

Non un seul. Les matières dans les cellules visibles sont mis dans combobox et sans doublons.

Le filtre sur la colonne A s'effectue lorsqu'on clique sur une image d'un précédent formulaire (correspondant aux différents profils : Cornières, plats, rond, tubes, etc...) qui dirige sur la feuille excel. (C'est une base de gestion de stock de l'atelier de mon entreprise et seul le magasinier à acces aux modifications possibles. Le bureau d'études ne fait que de la consultation sur les profils matières ou visserie et autres éléments.

[thebenoit59]

Mais pour obtenir les matières, tu as dans la combobox les désignations, une fois choisie la liste s'efface et laisse place aux matières ?

[setinor]

Le filtre sur la colonne A s'effectue lorsqu'on clique sur une image d'un précédent formulaire (correspondant aux différents profils : Cornières, plats, rond, tubes, etc...) qui dirige sur la feuille excel. (C'est une base de gestion de stock de l'atelier de mon entreprise et seul le magasinier à acces aux modifications possibles. Le bureau d'études ne fait que de la consultation sur les profils matières ou visserie et autres éléments.

[thebenoit59]

Je comprends mieux maintenant .

En fichier joint une idée d'optimisation.
Même si tu n'as pas deux combobox comme tu me l'as expliqué, ici l'intérêt est de te montrer le gain de temps et de mémoire que tu peux obtenir.
La démarche restera la même avec tes images, je pense que chaque image correspond à une valeur (critère de ton filtre), ce qui correspond au "v" du code.

Le code en détail :

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
Private Sub UserForm_Initialize()
Set d = CreateObject("Scripting.Dictionary")
    For Each c In Range("a1:a" & [a65000].End(xlUp).Row)
        If d.exists(c.Value) Then
            d(c.Value) = d(c.Value) & "|" & c.Offset(, 1).Value
                Else: d(c.Value) = c.Offset(, 1).Value
        End If
    Next c
Me.ComboBox1.List = d.Keys
End Sub
Private Sub ComboBox1_Change()
v = Me.ComboBox1.Value
    a = Split(d(v), "|")
        Me.ComboBox2.List = Application.Transpose(a)
End Sub