Contrôler une ComboBox de checkbox

Bonjour je vais essayer d'être assez claire dans ma demande.
J'ai actuellement un tableau de ce type

et un formulaire de ce type

Je voudrai lorsque je sélectionne la checkbox4 (HA) que la comboBox suivante ne me donne que les opérateurs correspondant à HA mais que si je sélectionne CheckBox5 (Hs) alors j'ai les opérateurs HA et HS, si je prend que Hs alors je n'ai que HS. Vous voyez le principe.

J'ai bidouillé pas mal mais impossible de trouver une solution, je ne sais pas à quel moment et comment actualiser la ComboBox j'avais en idée de faire un Combobox_enter

Merci de votre aide

Bonjour GGabriel,

Sur ce forum, il est demandé de joindre un fichier anonymisé pour essayer et tester le code qu'on pourrait vous donner

Sinon il faut faire ça avec une boucle
https://www.excel-pratique.com/fr/vba/boucles
qui parcours les lignes et ajoute le nom de l'opérateur à la combobox si le choix correspond
https://forum.excel-pratique.com/s/goto/494339

A+

Bonjour

Peut-être avec le fichier ?? (sans données confidentielles)

Crdlt

Bonjour

Avec le fichier ça serait plus simple...

Excusez moi, j'ai oublié le fichier c'est exacte le voici.

La question concerne le Userform2, qui intéragit avec l'onglet "Habilitation" et "Personnel ligne"

Fichier supprimé voir -->https://forum.excel-pratique.com/s/goto/1104633

re

Mot de passe = ....

Suite de ce fil non ? -->https://forum.excel-pratique.com/excel/tri-d-ordre-alphabetique-combobox-mais-autres-donnees-plus-as...

A oui c'est vrai il y a les mots de passe... je renvoi le fichier sans.

C'est le même document mais ça concerne une tout autre question je bloque juste sur l'affichage de la combobox suivant les checkbox choisi

Le voici

Re

Voici ce que vos pouvez faire dans l'USF

1. Ajoutez un code général pour gérer les 3 checkbox

Sub remplir_combo4()
Dim j As Byte
Dim cel As Range
Dim valeur As String

ComboBox4.Clear

For j = 4 To 6
    If Controls("Checkbox" & j) = True Then valeur = Controls("Checkbox" & j).Caption
    For Each cel In Feuil2.ListObjects("Tableau1").ListColumns(2).DataBodyRange
        If cel.Value = valeur Then ComboBox4.AddItem cel.Offset(0, -1).Value
    Next cel
    valeur = vbNullString
Next j
End Sub

2. Ajoutez les 3 codes ci-dessous qui agiront lors de la sélection

Private Sub CheckBox4_Click()
Call remplir_combo4
End sub

Private Sub CheckBox5_Click()
Call remplir_combo4
End sub

Private Sub CheckBox6_Click()
Call remplir_combo4
End sub

Si ok-->

Cordialement

Je vois l'idée j'avais essayé de faire quelques choses de similaire mais ça me renvoyait un peu n'importe quoi.

Je viens de mettre ton code aucune erreur ne se crée mais il renvoi également un peu n'importe quoi. :/

J'ai réussi à créer un code suivant le même principe que toi et ça a l'air de marcher

Merci beaucoup

Je viens de mettre ton code aucune erreur ne se crée mais il renvoi également un peu n'importe quoi. :/

C'est à dire ? Je ne vois pas en quoi le code renvoie n'importe quoi.

exemple dans votre fichier posté