Discussion :

[diabo42]

Bonjour,

Pour mon travail je dois mettre au point une recherche thématique dans un fichier excel. Le but recherché est de pouvoir sélectionner un ou plusieurs critères à partir de différentes données que l'on peut trouver dans le fichier excel. Lors du démarrage du fichier excel, une fenêtre crée à partir d'une macro apparait avec comme rubriques : typologie, direction, année, substances dangereuses.
Lorsque je choisis qu'un seul critère :
- Susbstances dangereuses : aucun soucis tout fonctionne. Le tri se fait parfaitement.
- Année : les filtres sélectionnés sont "année" et "substances dangereuses"
- Direction : les filtres sélectionnés sont "direction" et substances dangereuses"
- Typologie : les filtres sélectionnés sont 'typologie" et "substances dangereuses"

Et lorsque je choisis tous les critères, la recherche est parfaite, tout fonctionne.

J'espère avoir été assez clair, pas évident d'expliquer son problème...
Je vous remercie par avance.

[Invité]

Bonsoir,

J'espère avoir été assez clair, pas évident d'expliquer son problème...

En effet, j'en suis à me demander ce qui ne fonctionne pas ?

[diabo42]

Je m'en doutais que mes explications n'étaient pas très claires.
Ce qui ne fonctionne pas, c'est que lorsque je veux une sélection à partir d'UN seul critère, rien ne marche. Si je sélectionne dans la rubrique typologie le critère "blessure", ma recherche thématique va faire un filtre dans la colonne "typologie" et "substances dangereuses". Et rien ne s'affiche. Forcément puisque je n'ai pas sélectionné de critères dans la rubriques "substances dangereuses".
L'objectif est de pouvoir faire une recherche à partir d'un critère, ou de deux, ou plus... ou tous.
Je pense qu'il doit s'agir d'un problème de "et/ou"' mais je ne vois pas comment le traduire

Merci

[Invité]

Bonjour,

Pour pouvoir vous aider, il faudrait que vous donniez le code contenu dans la macro.

[diabo42]

Bonjour,

Voici le contenu de ma macro. Je vous remercie pour votre aide

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
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
Private Sub ButtonRechercher_Click()
Selection.AutoFilter Field:=2, Criteria1:=ListBoxAnnee.value
Selection.AutoFilter Field:=3, Criterial:=ListBoxDirection.value
Selection.AutoFilter Field:=5, Criterial:=ListBoxAccident.value
Selection.AutoFilter Field:=6, Criteria1:=ListBoxSubstance.value
SendKeys "%{F4}"
End Sub
 
Private Sub AideButton_Click()
UserForm2.Show
End Sub
 
Private Sub CommandButton1_Click()
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=2
End Sub
 
 
Private Sub TousButton_Click()
Selection.AutoFilter Field:=3
Selection.AutoFilter Field:=5
Selection.AutoFilter Field:=6
Selection.AutoFilter Field:=2
SendKeys "%{F4}"
End Sub
 
 
Private Sub UserForm_Initialize()
Sheets("Listes").Select
 
ListBoxDirection.Clear
ligne = 1
While (Not (Range("C" & ligne).value = Empty))
ListBoxDirection.AddItem (Range("C" & ligne).value)
ligne = ligne + 1
Wend
 
 
ListBoxAccident.Clear
ligne = 1
While (Not (Range("E" & ligne).value = Empty))
ListBoxAccident.AddItem (Range("E" & ligne).value)
ligne = ligne + 1
Wend
 
ListBoxSubstance.Clear
ligne = 1
While (Not (Range("F" & ligne).value = Empty))
ListBoxSubstance.AddItem (Range("F" & ligne).value)
ligne = ligne + 1
Wend
 
ListBoxAnnee.Clear
ligne = 1
While (Not (Range("B" & ligne).value = Empty))
ListBoxAnnee.AddItem (Range("B" & ligne).value)
ligne = ligne + 1
Wend
 
Sheets("SECUREX").Select
End Sub