Microsoft 365 filtrer avec une combo box

Oneida

XLDnaute Impliqué

• 14 Avril 2024

• #2

Bonjour,
Combobox4 filtre date si la date est complete

VB:

Private Sub ComboBox4_Change()
    Worksheets("Non conformités Fournisseurs").AutoFilterMode = False
    If Len(ComboBox4) = 10 And IsDate(ComboBox4) Then
        [a1].AutoFilter Field:=2, Criteria1:=ComboBox4
    End If
End Sub

Pourquoi une combobox vu que vous n'avez que des dates uniques

 

Vote positif 0 Vote négatif

T

TREM

XLDnaute Nouveau

• 14 Avril 2024

• #3

Bonjour Oneida

Merci pour votre réponse

J'ai mal précisé ma demande : il me suffirait de remonter l'année ex. *2021*
en conservant le mode filtre pour sélectionner les champs des colonnes adjacentes

Pourriez vous adapter votre code dans ce sens s'il vous plait ?

 

Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué

• 15 Avril 2024

• #4

Bonjour,
Ok, j'ai ce qu'il faut.
Mais pourquoi une combobox?
Une textbox suffirait!

En attendant, vous entrez l'annee dans la combobox4 est vous avez les lignes de l'annee saisie

 

Pièces jointes

• fichier combo_annee.xlsm

  75.1 KB · Affichages: 5

Dernière édition: 15 Avril 2024

Vote positif 0 Vote négatif

T

TREM

XLDnaute Nouveau

• 16 Avril 2024

• #5

Bonjour

C'est parfait merci beaucoup !!!

 

Vote positif 0 Vote négatif

Solution