Salut le Fofo et joyeux 14 juillet!
Je suis sur un USF qui me pose pas mal de pb...
Après l'aide de Modeste, j'ai pu avancer, mais là, je bloque de nouveau...
Dans mon USF, j'ai plusieurs combobox qui me permettent de choisir les critères de filtres d'une feuille de mon classeur. Je précise que les combobox ne sont pas en cascade, c'est à dire que je prends, dans la feuille non filtrée, les valeurs uniques des villes et les propose dans le combo1, puis les valeurs uniques des gir et les propose dans le combo2... : Je ne propose pas les gir disponibles en fonction de la ville choisie, etc... En effet, l'utilisateur peut utiliser les combos dans le sens qu'il veut et je n'ai pas su gérer ça en vba (il peut choisir le gir, puis la ville, puis l'hébergement, et même laisser une ou plusieurs combo vide(s), ou bien la ville, puis l'hébergement,puis le Gir...).
Bon, je filtre grâce à ce code:
If Me.gir.Value <> "" Then
Sh.Range("$A$1:$AD$" & nbUtil + 1).AutoFilter Field:=5, Criteria1:=Me.gir.Value
End If
If Me.ville.Value <> "" Then
Sh.Range("$A$1:$AD$" & nbUtil + 1).AutoFilter Field:=7, Criteria1:=Me.ville.Value
End If
If Me.hgt.Value <> "" Then
Sh.Range("$A$1:$AD$" & nbUtil + 1).AutoFilter Field:=6, Criteria1:=Me.hgt.Value
End If
etc...
Le problème, c'est que quand aucune donnée ne correspond au filtre, Excel pédale dans la semoule jusqu'à mettre "Ne répond pas"... J'ai comme l'impression qu'il essaie, par exemple, d'imposer une valeur au filtre 2 qui ne serait pas proposée par le filtre auto de la feuille...
Une idée pour m'aider?
D'avance merci!
Je suis sur un USF qui me pose pas mal de pb...
Après l'aide de Modeste, j'ai pu avancer, mais là, je bloque de nouveau...
Dans mon USF, j'ai plusieurs combobox qui me permettent de choisir les critères de filtres d'une feuille de mon classeur. Je précise que les combobox ne sont pas en cascade, c'est à dire que je prends, dans la feuille non filtrée, les valeurs uniques des villes et les propose dans le combo1, puis les valeurs uniques des gir et les propose dans le combo2... : Je ne propose pas les gir disponibles en fonction de la ville choisie, etc... En effet, l'utilisateur peut utiliser les combos dans le sens qu'il veut et je n'ai pas su gérer ça en vba (il peut choisir le gir, puis la ville, puis l'hébergement, et même laisser une ou plusieurs combo vide(s), ou bien la ville, puis l'hébergement,puis le Gir...).
Bon, je filtre grâce à ce code:
If Me.gir.Value <> "" Then
Sh.Range("$A$1:$AD$" & nbUtil + 1).AutoFilter Field:=5, Criteria1:=Me.gir.Value
End If
If Me.ville.Value <> "" Then
Sh.Range("$A$1:$AD$" & nbUtil + 1).AutoFilter Field:=7, Criteria1:=Me.ville.Value
End If
If Me.hgt.Value <> "" Then
Sh.Range("$A$1:$AD$" & nbUtil + 1).AutoFilter Field:=6, Criteria1:=Me.hgt.Value
End If
etc...
Le problème, c'est que quand aucune donnée ne correspond au filtre, Excel pédale dans la semoule jusqu'à mettre "Ne répond pas"... J'ai comme l'impression qu'il essaie, par exemple, d'imposer une valeur au filtre 2 qui ne serait pas proposée par le filtre auto de la feuille...
Une idée pour m'aider?
D'avance merci!
Dernière édition: