UserForm pour trier une base

Version imprimable

Voir 40 message(s) de cette discussion en une page

26/08/2013, 10h53
idate

UserForm pour trier une base
Bonjour,

Je possède actuellement une base de produits qui comportent plusieurs caractéristiques. Je souhaiterais créer une interface tel un moteur de recherche pour qu'un internaute ait accès à une sélection beaucoup plus fine des produits pouvant lui correspondre.

J'ai aussi une autre table que j'ai appelé "Relations" qui répertorie toutes les relations besoin client/requete produit.

Je m'explique:

un produit a une largeur max et un poids max, un matériau et une forme.
Je ne peux pas demander à un internaute le poids car trop compliqué. Du coup, pour une certaine catégorie de "besoins clients", j'ai une certaine catégorie de produit et c'est cette table qui fait le lien.

Je suis plutôt débutant en VBA. En recherchant des travaux identiques sur le net, je n'ai pas trouvé la démarche à suivre pour utiliser les données rentrées par un utilisateur dans les champ d'un formulaire UserForm pour filtrer ma base.

Pour le moment, j'ai fais une pseudo analyse descendante:

1. On remplit le formulaire puis on valide
2. On stocke les données rentrées par l'utilisateur dans un tableau
3. On execute une requête multi-tri correspondant au besoin du client dans la table "Relations"
4. On stocke les données sélectionnée dans un tableau
5. On execute une nouvelle requete multi tri en utilisant les filtres stockés dans le tableau précédent.
6. On affiche les résultats.

Mon userForm appelé form contient:
- 4 Combobox
- un bouton de commande
Je souhaite que certains de mes Combobox soient dynamiques. A savoir, quand l'internaute fait un choix dans le premier Combobox, les suivants changent leurs options selon le choix de l'utilisateur.

J'ai donc plusieurs questions:

Comment remplir les Combobox avec les choix que je veux?
Comment utiliser le choix de l'utilisateur pour faire un filtre sur une feuille?
Toute la macro de tri doit-elle être dans Private Sub CommandButton1_Click(),

Merci d'avance.

Si vous voulez plus de précisions, n'hésitez pas à me le faire remarquer
26/08/2013, 11h10
EngueEngue
Tu as les évenements de type:
Code:

1 2 3 Private Sub ComboBox1_Change() End Sub
Quand tu changes n'importe quelle combobox les autres se vident et se rechargent en fonction du choix dans les autres.
26/08/2013, 11h19
idate

Merci. Je suis entrain de me débrouiller.

Cependant, saurais-tu comment faire apparaitre un combobox2 quand le choix de la combobox1 est fait ?

Savez-vous comment rendre un champ obligatoire? Quelquechose du style, Si la valeur du champ est nulle alors on affiche un message box?
26/08/2013, 11h28
EngueEngue
bah tu mets dans ton combobox1.change

Code:

combobox2.visible=true
Code:

1 2 3 4 5 If lenomdetonobjet.value = "" then msgbox("C'est vide") Else 'Ce que tu veux End if
26/08/2013, 11h41
idate

Merci bien.

Et au niveau du tri, lorsque je récupère la valeur par laquelle je vais trier ma base, je la stocke. Mais comment n'afficher que les lignes filtrées? Comment filtrer une base avec plusieurs valeurs?
26/08/2013, 11h50
EngueEngue

filtre personnalisé
26/08/2013, 11h56
idate

En langage VBA ça donne quoi un filtre personnalisé?
26/08/2013, 12h13
EngueEngue

Cherche sur le forum.. Il y a un milliard de posts dessus Range.autofilter si tu veux chercher dans l'explorateur d'objets.
26/08/2013, 12h45
idate

Merci beaucoup. Je suis entrain de monter tout ca.

J'ai une question:

Lorsque je fais un tri sur une feuille, est ce que je peux travailler sur la feuille filtrée? C'est à dire, si mon filtre fait ressortir 1 ligne de ma base. Si je sélectionne B2, cela me sélectionnera bien la colonne 2 de ma ligne filtrée ou alors la colonne 2 de la ligne précédemment à cette place?

merci d'avance
26/08/2013, 12h51
EngueEngue

B2 reste B2 le filtre ne fait que cacher les colonnes. Tu peux copier coller les valeurs filtrées dans un autre sheet ou utiliser des boucles pour trouver les valeurs que tu veux.
26/08/2013, 12h55
idate

Comment sélectionner les valeurs filtrées si B2 reste B2?
26/08/2013, 12h59
EngueEngue
Les cellules seront de type SpecialCells(xlCellTypeVisible) il suffit donc de boucler et de les mettre dans un tableau pour après prendre la deuxième..

Sinon tu peux les copier dans un autre sheet
Code:

1 2 [A1].AutoFilter Field:=, Criteria1:= ActiveSheet.AutoFilter.Range.Copy Feuil2.Range("A1")
26/08/2013, 15h22
idate

J'ai stocké mes valeurs dans un range. Comment copier les données d'un range sur une feuille à part?
26/08/2013, 15h24
EngueEngue

Code:

Feuil1.Range("A1:ZZ1000").Copy Feuil2.Range("A1")
26/08/2013, 15h32
idate

J'ai un range nommé tmp qui contient ma ligne en sortie du filtre.

Lorsque je fais tmp.Copy(Feuil9.Range("A1")), il me met:

"La méthode Copy de la classe Range a échoué"
26/08/2013, 15h42
EngueEngue

tmp.Copy Feuil9.Range("A1")

Ma deuxième copie de range, result Copy, me copy l'intégralité de ma feuille "Relations" dans la "feuill9" et non les lignes filtrées de "BASE". Comment ça se fait?

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
If ComboBox1.Value = "PORTAIL BATTANT" Then
'Traitement du besoin
With Worksheets("Relations")
    If .FilterMode = True Then .ShowAllData
 
    .Range("A1").AutoFilter Field:=2, Criteria1:=type_f
    .Range("A1").AutoFilter Field:=6, Criteria1:=largeur_f
    .Range("A1").AutoFilter Field:=7, Criteria1:=forme_f
    .Range("A1").AutoFilter Field:=8, Criteria1:=materiau_f
     Set tmp = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
     tmp.Copy Feuil7.Range("A1")
 
End With
 
ElseIf ComboBox1.Value = "PORTAIL COULISSANT" Then
With Worksheets("Relations")
    If .FilterMode = True Then .ShowAllData
 
    .Range("A1").AutoFilter Field:=2, Criteria1:=type_f
    .Range("A1").AutoFilter Field:=6, Criteria1:=largeur_f
    .Range("A1").AutoFilter Field:=7, Criteria1:=forme_f
    .Range("A1").AutoFilter Field:=8, Criteria1:=materiau_f
     Set tmp = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
    tmp.Copy Feuil7.Range("A1")
 
End With
 
ElseIf ComboBox1.Value = "PORTE GARAGE" Then
With Worksheets("Relations")
    If .FilterMode = True Then .ShowAllData
 
    .Range("A1").AutoFilter Field:=2, Criteria1:=type_f
    .Range("A1").AutoFilter Field:=3, Criteria1:=type_porte_f
    .Range("A1").AutoFilter Field:=6, Criteria1:=hauteur_porte_f
     Set tmp = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
    tmp.Copy Feuil7.Range("A1")
 
End With
 
End If
 
Worksheets("Relations").AutoFilterMode = False
 
With Worksheets("tmp")
    poids_max_min_k = .Range("L2")
    poids_max_max_k = .Range("M2")
    traction_max_min_k = .Range("N2")
    traction_max_max_k = .Range("O2")
    largeur_max_min_k = .Range("P2")
    largeur_max_max_k = .Range("Q2")
    hauteur_max_min_k = .Range("R2")
    hauteur_max_max_k = .Range("S2")
End With
 
If ComboBox1.Value = "PORTAIL BATTANT" Then
'Traitement des résultats
With Worksheets("BASE")
    If .FilterMode = True Then .ShowAllData
 
    .Range("A1").AutoFilter Field:=9, Criteria1:="PORTAIL BATTANT"
    .Range("A1").AutoFilter Field:=20, Criteria1:=">largeur_max_min_k", Operator:=xlAnd, Criteria2:="<largeur_max_max_k"
    .Range("A1").AutoFilter Field:=21, Criteria1:=">poids_max_min_k", Operator:=xlAnd, Criteria2:="<poids_max_max_k"
     Set result = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
     result.Copy Feuil9.Range("A1")
 
 
 
End With
 
ElseIf ComboBox1.Value = "PORTAIL COULISSANT" Then
With Worksheets("BASE")
    If .FilterMode = True Then .ShowAllData
 
    .Range("A1").AutoFilter Field:=2, Criteria1:="PORTAIL COULISSANT"
    .Range("A1").AutoFilter Field:=20, Criteria1:=">largeur_max_min_k", Operator:=xlAnd, Criteria2:="<largeur_max_max_k"
    .Range("A1").AutoFilter Field:=21, Criteria1:=">poids_max_min_k", Operator:=xlAnd, Criteria2:="<poids_max_max_k"
     Set result = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
     result.Copy Feuil9.Range("A1")
 
End With
 
ElseIf ComboBox1.Value = "PORTE GARAGE" Then
With Worksheets("BASE")
    If .FilterMode = True Then .ShowAllData
 
    .Range("A1").AutoFilter Field:=2, Criteria1:="PORTE GARAGE"
    .Range("A1").AutoFilter Field:=15, Criteria1:=">hauteur_max_min_k", Operator:=xlAnd, Criteria2:="<hauteur_max_max_k"
    .Range("A1").AutoFilter Field:=22, Criteria1:=">traction_max_min_k", Operator:=xlAnd, Criteria2:="<traction_max_max_k"
     Set result = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
     result.Copy Feuil9.Range("A1")
 
End With
 
End If

Salut,

pour contrôler ton code rajoute :

Code:

1
2
3
4
5
6
7
8
9
(....)
  Set result = ActiveCell.CurrentRegion.SpecialCells(xlCellTypeVisible)
 
'--------- LIGNE A RAJOUTER 
   result.Select
  Stop
'------------------- Lorsque le code s'arrête vérifier les cellules sélectionnées
     result.Copy Feuil9.Range("A1")
(...)

26/08/2013, 16h21
idate

Merci du coup de main.
Je n'arrive pas à voir les cellules sélectionnées, ou dois-je aller?

Edit: quand le programme est sur stop, je ne peux naviguer sur les divers feuilles du fichier excel
26/08/2013, 16h34
SfJ5Rpw8

Bon,

il faut éviter l'utilisation d' ActiveCell ...

Code:

Set result = .Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)

;)

Voir 40 message(s) de cette discussion en une page