Afficher texte ds combobox selon texte d1 autre combobox
J’ai bien avancé sur mon projet (fichier en PJ)
Cependant je bute sur un problème à savoir. Lorsque je clique sur le bouton 5 de l’onglet OT, un formulaire s’ouvre, dans ce formulaire je saisie combobox 1/2/3/4/5/6.
Comment faire lorsque je saisie la combobox 5 (exemple préfecture), afficher uniquement la liste de la combobox 6 des personnes liées à la préfecture (Bidule/lui/moi/tous) et ainsi de suite.
Par avance, merci pour votre soutient.
Bonjour GMB, si cela me convient ! c'est nickel , merci beaucoup. Je vais abuser si cela ne te dérange pas , est ce possible que dans la combobox4 apparaisse uniquement les noms des personne lié a la préfecture.
Par avance , merci et bonne journée
Bonjour
Nouvelle version
Private Sub UserForm_Initialize()
Dim H As Range
Set f = Sheets("OT")
Set MonDico = CreateObject("Scripting.Dictionary")
a = f.Range("A101:B" & f.[B65000].End(xlUp).Row) ' tableau a(n,1) pour rapidité
For I = LBound(a) To UBound(a)
If a(I, 2) <> "" Then MonDico(a(I, 2)) = ""
If a(I, 2) = "Préfecture" Then
ComboBox4.AddItem a(I, 1)
End If
Next I
Me.ComboBox5.List = MonDico.keys
ComboBox1.List = [Tableau1].Value
'ComboBox4.List = Sheets("OT").Range("A101:A200").Value
ComboBox6.List = Sheets("OT").Range("A101:A200").Value
''etc...
Bye !
cela fonctionne très bien. Merci beaucoup