Aide action Combobox

[pepparkakor]

Bonjour,
J'ai crée un ComboBox dans un USF afin d'afficher uniquement les données correspondant à ma séléction.
Dans l'extrait ci-joint cela fonctionne, mais je passe pas des filtres et je ne trouve pas cela très joli.
N'y a t il pas moyen d'afficher sans filtre une plage de cellules correspondant à la séléction de mon ComboBox ?
Merci d'avance pour vos réponses !

 

[Robert]

Re : Aide action Combobox

Bonjour Pepparkakor, bonjour le forum,

En pièce jointe une autre solution mais si tu as beaucoup de lignes la méthode par filtre sera plus rapide...

 

[porcinet82]

Re : Aide action Combobox

Salut,

Une méthode semblable à celle de mon ami Robert que je salue au passage:

Private Sub CommandButton1_Click()
Dim i&
Application.ScreenUpdating = False
If ComboBox1.Value <> "" Then
    Cells.EntireRow.Hidden = False
    For i = 6 To Range("A65536").End(xlUp).Row
        If ComboBox1.Value <> Cells(i, 1).Value Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next i
End If
Application.ScreenUpdating = True
UserForm1.Hide
End Sub

@+

 

[pepparkakor]

Re : Aide action Combobox

Merci bcp Robert !
J'ai adapté le code pour qu'en début de macro les lignes masquées précédemment soient démasquées, avant d'en masquer d'autres.
Cela fonctionne parfaitement.