OVH Cloud OVH Cloud

Extractions avec combobox

2 réponses
Avatar
Vincent
Bonsoir
Ci-joint le fichier qui me pose problème
http://cjoint.com/?esrEOx0DSP
Je souhaite filtrer avec la liste via le combobox1
et récupérer dans le combobox2 la liste des villes extraites.
Mais cela plante et je ne sais vraiment pas pourquoi !
Merci beaucoup
Vincent

2 réponses

Avatar
anonymousA
bonsoir,

pas trop le temps de développer ce soir. Mais le problème vient de ta
définition du rowsource de Combobox1 qui est sensible à la modification
liée à un filtre.Je te rappelle que quand un rowsource change,
l'evenement Change d'un combobox en est affecté et Lycée de Versailles
Ce que je te communique se passe du rowsource de Combobox1 et fonctionne
sans difficulté selon tes souhaits.

Private Sub ComboBox1_Change()

ThisWorkbook.Sheets("Feuil1").Range("_Filterdatabase").AutoFilter
Field:=1, Criteria1:=Me.ComboBox1.Value

Me.ComboBox2.Clear

With Sheets("Feuil1").Range("_Filterdatabase")
For Each c In .Offset(1, 0).Resize(.Rows.Count - 1,
.Columns.Count).Columns(2).SpecialCells(xlCellTypeVisible)
Me.ComboBox2.AddItem c.Value
Next
End With

End Sub

Private Sub UserForm_Initialize()

Me.ComboBox1.List = ThisWorkbook.Sheets("Feuil1").Range("C2:C6").Value


End Sub

A+

Bonsoir
Ci-joint le fichier qui me pose problème
http://cjoint.com/?esrEOx0DSP
Je souhaite filtrer avec la liste via le combobox1
et récupérer dans le combobox2 la liste des villes extraites.
Mais cela plante et je ne sais vraiment pas pourquoi !
Merci beaucoup
Vincent




Avatar
Vincent
Merci beaucoup AnonymousA
C'est parfait cela fonctionne très bien
Bonne journée
Vincent

"anonymousA" a écrit dans le message de news:
42641b11$0$25037$
bonsoir,

pas trop le temps de développer ce soir. Mais le problème vient de ta
définition du rowsource de Combobox1 qui est sensible à la modification
liée à un filtre.Je te rappelle que quand un rowsource change, l'evenement
Change d'un combobox en est affecté et Lycée de Versailles
Ce que je te communique se passe du rowsource de Combobox1 et fonctionne
sans difficulté selon tes souhaits.

Private Sub ComboBox1_Change()

ThisWorkbook.Sheets("Feuil1").Range("_Filterdatabase").AutoFilter
Field:=1, Criteria1:=Me.ComboBox1.Value

Me.ComboBox2.Clear

With Sheets("Feuil1").Range("_Filterdatabase")
For Each c In .Offset(1, 0).Resize(.Rows.Count - 1,
.Columns.Count).Columns(2).SpecialCells(xlCellTypeVisible)
Me.ComboBox2.AddItem c.Value
Next
End With

End Sub

Private Sub UserForm_Initialize()

Me.ComboBox1.List = ThisWorkbook.Sheets("Feuil1").Range("C2:C6").Value


End Sub

A+

Bonsoir
Ci-joint le fichier qui me pose problème
http://cjoint.com/?esrEOx0DSP
Je souhaite filtrer avec la liste via le combobox1
et récupérer dans le combobox2 la liste des villes extraites.
Mais cela plante et je ne sais vraiment pas pourquoi !
Merci beaucoup
Vincent