XL 2010 critère date dans cellule

eastwick

XLDnaute Impliqué
Bonjour à toutes et tous,
Ci-joint un fichier qui sera plus clair que de longues explications. Il s'agit de déposer une date en G2 (n'importe laquelle) et que cette date soit le critère de recherche de la colonne G (G9).
Le wordart "jour" est là pour se voir imputé de la macro correspondante !
Donc on tape par exemple 07/11/2016 en G2, on clique sur jour et on obtient toutes les lignes comportant 07/11/2016 en G.
J'avais réussi mais j'ai zappé cette macro et je n'arrive plus à la refaire. Je vieillis !

Merci à toutes et tous
 

Pièces jointes

  • Classeur1.xlsx
    1.5 MB · Affichages: 32

CHALET53

XLDnaute Barbatruc
Bonjour,

Joins cette macro à ton bouton

Sub filtre()
'
' Macro3 Macro
'
dt = Range("G2").Value
ActiveSheet.Range("$A$9:$I$25752").AutoFilter Field:=7

'
ActiveSheet.Range("$A$9:$I$25752").AutoFilter Field:=7, Criteria1:= _
dt, Operator:=xlAnd

End Sub


a+
 

Lolote83

XLDnaute Barbatruc
Salut Eastwick,
Avec cette petite macro
Code:
Sub FlitreDate()
    Application.ScreenUpdating = False
    ActiveSheet.Range("$A$9:$I$65000").AutoFilter Field:=7
    If [G2] <> Empty Then
        ActiveSheet.Range("$A$9:$I$65000").AutoFilter Field:=7, Criteria1:="=" & [G2], Operator:=xlAnd
        xNbFiltre = Application.Subtotal(3, Columns("G")) - 3
        If xNbFiltre = 0 Then
            ActiveSheet.Range("$A$9:$I$65000").AutoFilter Field:=7
            MsgBox "Aucune donnée pour cette date", vbCritical, "FILTRE"
        End If
    End If
    Application.ScreenUpdating = True
End Sub
En espérant que cela corresponde à ta demande
@+ Lolote83
 

Discussions similaires

Statistiques des forums

Discussions
312 814
Messages
2 092 339
Membres
105 370
dernier inscrit
Leheryboriziny