Salut Banzaï,
En fait je veux simplifier l'utilisation de ce fichier car beaucoup d’utilisateur ont du mal à l’exploiter correctement vu le nombre de colonne.
Les dates SAV sont les principales données dont ils ont besoin quotidiennement. Donc j’ai mis ce code pour qu’ils puissent facilement filtrer les clients qu’ils doivent voir rapidement.
Comme j’ai des dates : précédentes SAV / dernières SAV / visite commerciale /visite d’urgence / visite prévu le
Colonne : BV / BW / BY / CA
Ce que je souhaiterai qu’en cliquant sur « filtre dates SAV » j’ai créé 4 boutons qui font références aux colonnes indiquées. Le problème faut-il que je recopie le code à chaque bouton, ou il y a un code qui pourrait afire autrement.
Voici le code pour l’instant seul le bouton Date précédente visite SAV fonctionne.
Private Sub Bfiltre_Click()
If Not IsDate(Me.date_début) Or Not IsDate(Me.date_fin) Then Exit Sub
[A1].AutoFilter Field:=[color=#FFFF00]74, Criteria1:=">=" & Format(CDate(Me.date_début), "mm/dd/yy"), _ (pour la 74eme colonne)
Operator:=xlAnd, Criteria2:="<=" & Format(CDate(Me.date_fin), "mm/dd/yy")
End Sub