Discussion :

[Judicieusement]

Bonjour à tous !

Je travaille actuellement sur un projet permettant de filtrer sur plusieurs critère les candidats d'une base de données.

J'ai créé un formulaire usf_recherche.

Les compétences des candidats sont regroupée dans une colonne et peuvent être de la forme "Python-R" (d'ailleurs "R" me pose pas mal de soucis ahah) ou "SQL, Python" ou "SAS / VBA"
j'aimerais laisser la possibilité à l'utilisateur de filtrer sur 2 outils.

J'aurais adoré ajouter une checkbox choix inclusif ou choix exclusif mais je perds déjà pieds dans le bricolage que j'ai essayé de faire !

Pour vous expliquer, j'ai 2 comboboxskill(1 et 2) et la colonne précédemment citée. j'ai dupliqué cette colonne pour permettre de chercher deux fois les outils. ainsi, si l'utilisateur clique sur Python ET R, cela devrait filtrer sur les deux. Pourtant ça ne fonctionne pas :/
auriez vous une idée de l'origine du problème ?

PROD 2023 - RH_CO_DO_usf.xlsm

[EricDgn]

Bonjour,

Pour prendre en compte 1 ou 2 critères sur la même colonne col_Skill:

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
Private Sub BtnRECHERCHER_Click()
    '...
    col_Skill = Cherche_Colonne(wsCandidats, "OUTILS")
    '...
        '--- Filtre pour la colonne OUTILS
        If ComboBoxSkill1.Value <> "" Then
            If ComboBoxSkill2.Value <> "" Then      '--- skill1 et skill2 non vides
                .AutoFilter Field:=col_Skill, Criteria1:="*" & ComboBoxSkill1.Value & "*", Criteria2:="*" & ComboBoxSkill2.Value & "*", Operator:=xlAnd
            Else                                    '--- skill1 non vide, skill2 vide
                .AutoFilter Field:=col_Skill, Criteria1:="*" & ComboBoxSkill1.Value & "*", Operator:=xlAnd
            End If
        Else
            If ComboBoxSkill2.Value <> "" Then      '--- skill1 vide, skill2 non vide
                .AutoFilter Field:=col_Skill, Criteria1:="*" & ComboBoxSkill2.Value & "*", Operator:=xlAnd
            End If
        End If
    '...

et pas besoin de dédoubler la colonne OUTILS (colonne S inutile).

Cordialement.

[Judicieusement]

Bonjour,

Pour prendre en compte 1 ou 2 critères sur la même colonne col_Skill:

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
Private Sub BtnRECHERCHER_Click()
    '...
    col_Skill = Cherche_Colonne(wsCandidats, "OUTILS")
    '...
        '--- Filtre pour la colonne OUTILS
        If ComboBoxSkill1.Value <> "" Then
            If ComboBoxSkill2.Value <> "" Then      '--- skill1 et skill2 non vides
                .AutoFilter Field:=col_Skill, Criteria1:="*" & ComboBoxSkill1.Value & "*", Criteria2:="*" & ComboBoxSkill2.Value & "*", Operator:=xlAnd
            Else                                    '--- skill1 non vide, skill2 vide
                .AutoFilter Field:=col_Skill, Criteria1:="*" & ComboBoxSkill1.Value & "*", Operator:=xlAnd
            End If
        Else
            If ComboBoxSkill2.Value <> "" Then      '--- skill1 vide, skill2 non vide
                .AutoFilter Field:=col_Skill, Criteria1:="*" & ComboBoxSkill2.Value & "*", Operator:=xlAnd
            End If
        End If
    '...

et pas besoin de dédoubler la colonne OUTILS (colonne S inutile).

Cordialement.

Merci c'est super ! je n'avais pas réussi jusqu'à présent c'est beaucoup plus simple comme ça effectivement

merci d'avoir pris du temps pour m'aider