Discussion :

[Pesticide]

Bonjour à tous,

Ca fait déjà deux jours que je suis coincé sur un problème d'UserForm, j'ai donc décidé de vous exposer mon problème.

Je possède une tableur excel avec de nombreuses lignes et qui se remplis tous les jours.
On va admettre qu'il y a deux colonnes : Fournisseur, SiteWeb redirigeant vers ce fournisseur.

Dans un UserForm, j'aimerai qu'il y ai une ComboBox avec tous les fournisseurs (A,B,C sur le schéma), sans doublons et triés par ordre alphabétique (Les fournisseurs peuvent apparaitre de nombreuses fois et dans le désordre) et qu'il y ait une ListBox pour afficher les liens HyperText de ces fournisseurs(1, 2, 3, 4, 5, 6, 7 sur le schéma).



J'ai déjà réussi a trier les Fournisseurs par ordre croissant et sans doublons (avec beaucoup de mal et c'est très lent je l'admet) mais je n'arrive pas à afficher les résultats dans la ListBox.
A savoir qu'après il n'y aura plus seulement le Fournisseur, mais aussi des références et autre, mais le but sera toujours de retrouver des liens dans la ListBox (ces liens peuvent être nombreux).

Merci de votre aide.

Cordialement.

[vanhoa]

Bonjour,

Voila ce que je te propose, pour realiser ce que tu veux, sans doublons:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
Dim nbfournisseurs As Long, i As Long
 
nbfournisseurs = WorksheetFunction.CountA(Feuil1.Columns(1)) - 1
 
For i = 2 To nbfournisseurs + 1
    If WorksheetFunction.CountIf(Feuil1.Range(Cells(1, 1), Cells(i - 1, 1)), Cells(i, 1)) = 0 Then
            ComboBox1.AddItem (Feuil1.Cells(i, 1))
        Else
    End If
Next i
 
End Sub

Attention, ce code est a inscrire dans le code de ton UserForm. J'ai considere que ta liste de fournisseurs etait dans ta Feuil1, dans la colonne A et que en cellule A1 il y a une entete comme "Fournisseur" (donc ta liste commence a partir de la cellule A2). Dans le code on voit egalement que la combobox est le numero 1. Si tu respectes ceci, ca te donnera ce que tu souhaites (je l'ai teste sur un fichier)

vanhoa

[Pesticide]

Merci, votre code fonctionne parfaitement une fois adapté à ma feuille.

Il ne me reste plus qu'à trier par ordre alphabétique (ce qui ne doit pas être trop dur, mais avec ma méthode, l'UserForm met plusieurs dizaines de secondes à apparaitre) et afficher les résultats dans la ListBox (ce que je n'arrive pas du tout malheureusement)

Pour le tri par ordre alphabétique j'ai ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Tri le contenu du ComboBox par ordre alphabétique
    With ComboBox1
        For i = 0 To .ListCount - 1
            For j = 0 To .ListCount - 1
                If .List(i) < .List(j) Then
                    strTemp = .List(i)
                    .List(i) = .List(j)
                    .List(j) = strTemp
                End If
            Next j
        Next i
    End With

Je peux donner plus de détails si vous ne comprenez pas bien ce que doit retourner la ListBox.

Cordialement.

[vanhoa]

Avec l'ordre alphabetique:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub lancementUserForm()
Dim nblignes As Long
nblignes = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
With Feuil1.Sort
    .SetRange Range(Cells(2, 1), Cells(nblignes, 1))
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
UserForm1test.Show
End Sub

je t'ai mis au passage une autre facon d'avoir ta derniere ligne non vide pour ta colonne A:

Code :

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

nblignes = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row

quand tu ne connais pas la syntaxe a utiliser pour qch en particulier, le premier reflexe est de realiser un test en utilisant l'enregistreur de macro et ensuite d'aller voir le code que ca a utilise. Il faut ensuite adapter le code, car l'enregistreur de macro utilise un code qui n'est pas optimal.

Pour le code que je t'ai mis, il faut le mettre dans un module standard. avant de lancer ton UserForm via le code suivant:

Code :

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

UserForm1.Show

(le nom du UserForm est a changer, enfin j'ai mis "UserForm1" par defaut) la procedure va realiser le tri par ordre alphabetique dans un premier temps avec:

Code :

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

1
2
3
4
5
6
7
8
With Feuil1.Sort
    .SetRange Range(Cells(2, 1), Cells(nblignes, 1))
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Essaie donc ce code, ca doit marcher

vanhoa

[Pesticide]

Merci mais ce code sert à trier la feuille de classeur par ordre alphabétique et non les données contenues DANS la ComboBox ?

Parce que la grâce à mon code j'ai bien ma ComboBox avec tous les Fournisseurs dans l'ordre alphabétique, mais dans la ListBox, je n'arrive pas a afficher uniquement les liens correspondants au fournisseur sélectionné (j'ai tous les liens en l'occurrence, voir mon code plus bas).

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox1_Change()
    'On vide la ListBox
    ListBox1.Clear
    Dim nbliens As Long, i As Long
    nbliens = WorksheetFunction.CountA(Columns(3)) - 1
    For i = 2 To nbliens + 1
        'On ajoute les liens qui se trouvent dans la colonne F
        ListBox1.AddItem (Cells(i, 6))
    Next
End Sub

Comme vous pouvez le voir, il n'y a aucune condition de remplissage sur la ListBox, elle prend simplement toutes les données trouvées sur la colonne F et les ajoute. Or ce qu'il faudrait c'est que SI le fournisseur YKO1 est sélectionné, alors on retrouve uniquement les liens correspondant à ce fournisseur dans la ListBox

Je viens d'avoir une idée qui pourrait solutionner le problème mais je n'arrive pas à l'écrire. Je vous la donne sous forme algorithmique.

Code :

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

1
2
3
4
5
6
7
Pour i allant de 2 à DernièreLigne
     Si ValeurSelectionnéDansLaComboBox == ValeurCelluleEni
          ListBox1.AddItem(i,ColonneContenantLaValeurSouhaitée)
     Sinon
          i++
     Fsi
Fpour

J'essayes de l'écrire mais il y a des problèmes dans la comparaison des types dans le If.

[vanhoa]

Ok, donc dans le code de ton UserForm inscrit:

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
24
25
26
27
28
29
30
Private Sub ComboBox1_Click()
Dim fournisseur As String, nbselection As Long, nblignes As Long
 
fournisseur = ComboBox1.Value
nblignes = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
 
ListBox1.Clear
For i = 2 To nblignes
    If Feuil1.Cells(i, 1).Value = fournisseur Then
            ListBox1.AddItem (Feuil1.Cells(i, 2))
        Else
    End If
Next i
 
End Sub
 
Private Sub UserForm_Initialize()
Dim nbfournisseurs As Long, i As Long
 
nbfournisseurs = WorksheetFunction.CountA(Feuil1.Columns(1)) - 1
 
For i = 2 To nbfournisseurs + 1
    If WorksheetFunction.CountIf(Feuil1.Range(Cells(1, 1), Cells(i - 1, 1)), Cells(i, 1)) = 0 Then
            ComboBox1.AddItem (Feuil1.Cells(i, 1))
        Else
    End If
Next i
 
 
End Sub

et dans ton module standard:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub lancementUserForm()
Dim nblignes As Long
nblignes = Feuil1.Cells(Rows.Count, 1).End(xlUp).Row
With Feuil1.Sort
    .SetRange Range(Cells(2, 1), Cells(nblignes, 2))  'j'ai change cells(nblignes,1) en cells(nblignes,2)
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
UserForm1test.Show
End Sub

Tes liens doivent etre en colonne B

Regarde si ca marche (ca marche de mon cote)

vanhoa

[Pesticide]

Un immense merci pour cette aide apportée !!!
Ca fonctionne parfaitement, la sélection retourne bien le lien souhaité (malheureusement le liens n'est pas hypertext)

Il ne me reste plus qu'a faire en sorte que les combobox soient interconnectés, c'est à dire que l'on peut affiner la recherche en fonction des autres critères (voir screen de mon userform plus haut)

[vanhoa]

Quels sont les autres criteres?

Si apres avoir selectionne un element de ta listbox1 tu veux qu'il y ait une consequence sur une nouvelle combobox ou listbox, il suffit tout simplement de poursuivre la meme logique que le lien entre combobox1 et listbox1.

Quelles sont les etapes suivantes exactes (apres voir la liste apparaitre en fonction du fournisseur choisi)

vanhoa

[Pesticide]

Je t'ai fait un schéma qui sera plus compréhensible que des mots :



On admet donc deux critères de recherches : Fournisseur et Référence.
On dit qu'il y a 2 Fournisseurs, 10 Référence et 20 Liens (Les liens étants les résultats attendus dans la ListBox)
Si je sélectionne le fournisseur A, il ne reste plus que 5 référence dans la ComboBox2 (Les critères s'affinent tu comprends. 5 références sont du Fournisseur A et 5 autres sont du Fournisseur B). Mais sans sélectionner de Référence, la ListBox s'actualise avec des Liens possibles.

Maintenant je sélectionne le Fournisseur ET l'une des 5 Référence. La ListBox s'actualise à nouveau et propose les liens les plus concordant avec les critères.

Au final, au lieu d'avoir 3 liens dans la ListBox, je n'en ai plus qu'1 par exemple.

EDIT : Voilà ce que j'ai fait, ça à l'air de fonctionner parfaitement

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
Private Sub ComboBox1_Change()
    ListBox1.Clear
    'Si un changement est effectué dans la ComboBox, on vide la deuxième
    ComboBox2.Clear
    'Pour i allant de 2 à DerniereLigne
    For i = 2 To Cells(Rows.Count, 17).End(xlUp).Row
        'Si la valeur de la Cellule du tableur est égale à la valeur de la combobox selectionné
        If Cells(i, 17).Value = ComboBox1.Value Then
                'On ajoute la valeur de la cvolonne F a la listBox
                ListBox1.AddItem (Cells(i, 6))
                'On ajoute les références correspondantes à la ComboBox2 pour une recherche affinée
                ComboBox2.AddItem (Cells(i, 16))
        Else
    End If
    Next i
End Sub

[vanhoa]

Ok j'ai bien compris le fonctionnement.

Mais du coup tu as trouve un code qui fonctionne, donc en fait ton dernier post n'est pas une question si?

Pour utiliser ton lien, tu peux aller checker la faq:
http://excel.developpez.com/faq/inde...AjoutHyperlink

vanhoa

[Pesticide]

En réalité, ça fonctionne, sauf que si je sélectionne un fournisseur, grâce au .Clear et à l'AddItem derrière j'ai bien la recherche affinée, mais si je désélectionne le fournisseur, je n'ai plus rien dans mes combobox !
De plus, si je sélectionne le Fournisseur A et la référence 1, il va me sortir tous les liens du fournisseur A ET/OU tous les liens de la référence 1 (en clair : Il va me sortir toutes les références 1 même si celles-ci ne sont pas du fournisseur A).
Or je ne souhaite que les liens dont le fournisseur est A ET dont la référence est 1.

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
24
25
26
27
28
29
30
31
Private Sub ComboBox1_Change()
    ListBox1.Clear
    'Si un changement est effectué dans la ComboBox, on vide la deuxième
    ComboBox2.Clear
    ComboBox3.Clear
    ComboBox4.Clear
    'Pour i allant de 2 à DerniereLigne
    For i = 2 To Cells(Rows.Count, 17).End(xlUp).Row
        'Si la valeur de la Cellule du tableur est égale à la valeur de la combobox selectionné
        If Cells(i, 17).Value = ComboBox1.Value Then
                'On ajoute la valeur de la cvolonne F a la listBox
                ListBox1.AddItem (Cells(i, 6))
                'On ajoute les références correspondantes à la ComboBox2 pour une recherche affinée
                ComboBox2.AddItem (Cells(i, 16))
                'Les 2 combobox ci-dessous correspondent aux autres critères
                ComboBox3.AddItem (Cells(i, 5))
                ComboBox4.AddItem (Cells(i, 2))
        Else
    End If
    Next i
End Sub
 
Private Sub ComboBox2_Change()
    ListBox1.Clear
    For i = 2 To Cells(Rows.Count, 16).End(xlUp).Row
        If Cells(i, 16).Value = ComboBox2.Value Then
                ListBox1.AddItem (Cells(i, 6))
        Else
    End If
    Next i
End Sub

Merci pour ton lien sur les HyperText, je vais regarder ça tout de suite

EDIT : J'ai beau essayer, je n'arrive pas non plus à faire en sorte que lorsque je clic sur un lien dans la listbox, celui-ci ouvre une page web. En réalité, en colonne C j'ai le lien, en colonne E j'ai le titre du document et en colonne F j'ai un lien hnypertext avec le titre du doc (E) qui ouvre le lien C. J'ai donc essayé de faire un code de la sorte :

Code :

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

1
2
3
Pour i allant de 2 à DernièreLigne
     Si ListBox.Value = Cells(i,6).Value
          Ouvrir hyperlien.Cells(i,3)

Mais lors d'un clic dans la listbox, rien ne se passe.
Cordialement.

[vanhoa]

Si tu une intersection entre les valeurs de ta combobox1 et 2, il faut:

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
24
25
26
27
28
29
30
31
Private Sub ComboBox1_Change()
    ListBox1.Clear
    'Si un changement est effectué dans la ComboBox, on vide la deuxième
    ComboBox2.Clear
    ComboBox3.Clear
    ComboBox4.Clear
    'Pour i allant de 2 à DerniereLigne
    For i = 2 To Cells(Rows.Count, 17).End(xlUp).Row
        'Si la valeur de la Cellule du tableur est égale à la valeur de la combobox selectionné
        If Cells(i, 17).Value = ComboBox1.Value Then
                'Pas besoin d'ajouter la valeur de la colonne F a la listBox car ca doit etre realiser quand tu as egalement choisi un critere pour ta combobox2
                'On ajoute les références correspondantes à la ComboBox2 pour une recherche affinée
                ComboBox2.AddItem (Cells(i, 16))
                'Les 2 combobox ci-dessous correspondent aux autres critères
                ComboBox3.AddItem (Cells(i, 5))
                ComboBox4.AddItem (Cells(i, 2))
        Else
    End If
    Next i
End Sub
 
Private Sub ComboBox2_Change()
    ListBox1.Clear
    For i = 2 To Cells(Rows.Count, 16).End(xlUp).Row    'j'imagine qui tu a le meme nombre de lignes pour ta 16eme et 17eme colonne car la 16eme colonne correspond a ta combobox2 et ta 17eme colonne a ta combobox1.
        'il faut utilliser le AND pour combiner ta combobox1 avec ta combobox2
        If Cells(i, 17).Value = ComboBox1.Value and Cells(i, 16).Value = ComboBox2.Value Then
                ListBox1.AddItem (Cells(i, 6))
        Else
    End If
    Next i
End Sub

Donc les valeurs de ta listebox s'afficheront seulement quand tu auras selectionne egalement une valeur dans ta combobox2.
Si tu dois egalement faire en fonction des autres combobox, utilise la meme logique.

Pour les liens, as tu essaye d'utiliser l'instruction .Follow?