A
avenir80
Guest
Bonjour à tout le forum,
J'ai un petit soucis que je n'arrive pas à résoudre.
J'ai un USF avec 2 onglets. Dans le premier, je remplis un classeur avec plusieurs contrôles, et dans le deuxième je consulte les données en filtrant avec les combobox.
Je souhaiterais effectuer un premier filtre avec le premier combobox, c'est-à-dire par exemple n'avoir que deux valeurs affichés sur une dizaine dans la colonne liée à ce combobox. Je ne veux pas mettre un filtre dans le classeur car les autres valeurs seront utilisées autrement.
J'ai écris ça comme exemple, mais ça ne fonctionne pas, j'ai quand même toutes les valeurs:
Private Sub ComboBox6_Click()
' Consultation Choix 1
With ComboBox6.Value = "Lyon" Or ComboBox6.Value = "Bordeaux"
Set Mondico = CreateObject("Scripting.Dictionary")
For Each c In Range(f.[A10], f.[A65536].End(xlUp))
If c = Me.ComboBox6 Then Mondico(c.Offset(, 1).Value) = c.Offset(, 1).Value
Next c
End With
Me.ComboBox7.List = Mondico.items
Me.ComboBox7.ListIndex = -1
Me.ComboBox8.ListIndex = -1
Me.TextBox4 = ""
Me.TextBox5 = ""
Me.TextBox6 = ""
ComboBox7.SetFocus
End Sub
Je joins mon fichier:
Cijoint.fr - Service gratuit de dépôt de fichiers
Merci pour votre aide
J'ai un petit soucis que je n'arrive pas à résoudre.
J'ai un USF avec 2 onglets. Dans le premier, je remplis un classeur avec plusieurs contrôles, et dans le deuxième je consulte les données en filtrant avec les combobox.
Je souhaiterais effectuer un premier filtre avec le premier combobox, c'est-à-dire par exemple n'avoir que deux valeurs affichés sur une dizaine dans la colonne liée à ce combobox. Je ne veux pas mettre un filtre dans le classeur car les autres valeurs seront utilisées autrement.
J'ai écris ça comme exemple, mais ça ne fonctionne pas, j'ai quand même toutes les valeurs:
Private Sub ComboBox6_Click()
' Consultation Choix 1
With ComboBox6.Value = "Lyon" Or ComboBox6.Value = "Bordeaux"
Set Mondico = CreateObject("Scripting.Dictionary")
For Each c In Range(f.[A10], f.[A65536].End(xlUp))
If c = Me.ComboBox6 Then Mondico(c.Offset(, 1).Value) = c.Offset(, 1).Value
Next c
End With
Me.ComboBox7.List = Mondico.items
Me.ComboBox7.ListIndex = -1
Me.ComboBox8.ListIndex = -1
Me.TextBox4 = ""
Me.TextBox5 = ""
Me.TextBox6 = ""
ComboBox7.SetFocus
End Sub
Je joins mon fichier:
Cijoint.fr - Service gratuit de dépôt de fichiers
Merci pour votre aide
Dernière modification par un modérateur:
