Checkbox filtre

[aubelix]

Bonjour à tous les amis du Forum. 🙂

De nouveau besoin de vos lumières.
Je joints un fichier pour être plus clair.
Mon souci est le suivant:

Lorsqu'on choisi dans la Combox le Type
ne faire affiche dans la combobx du chois des REF
que les REF correspondant au Typs choisi.
Voir onglet "REFERENCES"
Pour lancer la saisie cliquez sur Bouton gris
LANCER LA SAISIE

Par avance, Merci pour votre aide.
Cordialement.

 

[Compte Supprimé 979]

Re : Checkbox filtre

Bonjour Aubelix,

ATTENTION !
Une fois l'USF ouvert, impossible de le fermer à moins de saisir toutes les valeurs 🙄😡

Merci Aubelix 😱

 

[aubelix]

Re : Checkbox filtre

Bonjour BrunoM45 🙂

Merci pour ta réponse.

Il suffit de mettre du numérique au 1er Chkbox
et de choisir les autres dans la liste déroulante.
Et ma question était de faire apparaître après avoir
sélectionné le Type dans le 3ème Chkbox uniquement
les REF correspondant au type choisi.

Par avance Merci pour votre aide.
Cordialement.

 

[Guest]

Re : Checkbox filtre

Bonjour Aubelix;
Bruno🙂

Voici ton fichier modifié.

il ne faut pas utiliser ROWSOURCE pour charger tes listes.
La liste des REF n'est charger que sur choix d'un type.

A+

 

[aubelix]

Re : Checkbox filtre

Bonjour Hasco. 🙂

Merci pour ta réponse.

En recopiant ton code, j'ai le message ci-dessous:
Erreur d'exécution 2147467259 580004005°
Erreur non répertoriée

La macro s'arrête sur " choixPN.Clear"

J'ai ajouté le code ci-dessous, ai-je oublié quelque chose ?

Private Sub choixEligibilty_Click()
    If choixEligibilty.ListIndex > -1 Then
        Dim c As Range
        choixPN.Clear
        With Sheets("REFERENCES")
            For Each c In .Range("A2:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
                If c.Offset(, 1) = choixEligibilty.Value Then choixPN.AddItem c
            Next c
        End With
    End If
End Sub

Merci pour ton aide.
Cordialement.

 

[Guest]

Re : Checkbox filtre

Re,

tu n'aurais pas utilisé RowSource sur ta liste choixPN??

Chez moi, le classeur que je t'ai passé fonctionne très bien. Alors regarde toutes les modifications qui ont été apportées (UserForm_Initialize)

A+

 

[aubelix]

Re : Checkbox filtre

Re 🙂

Merci pour ta réponse.

Je vérifie.
Cordialement.

 

[aubelix]

Re : Checkbox filtre

Re

J'ai modifié les données envoyées par les vraies valeurs 5non anonymes)
Cela fonctionne. Très bien avec ton fichier.

Qu'as-tu ajouté à part le code :

Private Sub choixEligibilty_Click()
    If choixEligibilty.ListIndex > -1 Then
        Dim c As Range
        choixPN.Clear
        With Sheets("REFERENCES")
            For Each c In .Range("A2:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
                If c.Offset(, 1) = choixEligibilty.Value Then choixPN.AddItem c
            Next c
        End With
    End If
End Sub

Je n'ai rien ajouté d'autre 😕

Merci pour ton aide.
Cordialement.

 

[Guest]

Re : Checkbox filtre

Re,

1 - relis bien ma réponse précédente je te disais de regarder toutes les modifications apportées (UserForm_Initialize)

2 - C'est à toi de connaitre ton code et de faire la différence entre ce que je t'ai donné et ce que tu avais



A+

 

[aubelix]

Re : Checkbox filtre

Re

C'est le même code que ton fichier.
Hormis que j'ai copié le code que tu m'as envoyé.

Cordialement.

 

[Guest]

Re : Checkbox filtre

Re,

Si tu as changé tout UserForm_Initialize et rajouté la procédure

Private Sub choixEligibilty_Click()
    If choixEligibilty.ListIndex > -1 Then
        Dim c As Range
        choixPN.Clear
        With Sheets("REFERENCES")
            For Each c In .Range("A2:A" & .Cells(Application.Rows.Count, 1).End(xlUp).Row)
                If c.Offset(, 1) = choixEligibilty.Value Then choixPN.AddItem c
            Next c
        End With
    End If
End Sub

Alors je ne vois pas! C'est que la vérité est ailleurs comme dirait Mulder!

A+

 

[aubelix]

Re : Checkbox filtre

Bonjour Hasco et tous les amis du Forum 🙂

Suite à problème de connection, je ne te réponds que maintenant.
La nuit porte conseil...
Mon erreur venait du fait que je n'avais pas supprimé le code des REF.
Comme tu me l'avais à plusieurs reprises préconisé. 😡

Tout est rentré dans l'ordre.
Mille mercis pour ton aide et au temps que tu as consacré à mon problème.

Cordialement.