XL 2010 critère date dans cellule

[eastwick]

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

 

[herve62]

Bonjour
On ne pourra t'aider car apparemment ton bouton réclame une macro non existante dans le projet mais via un disque
S:\Finances ......etc et si on a pas on peut pas faire
Ne saurais tu pas tout intégrer dans ce fichier ?

 

[CHALET53]

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]

Salut Eastwick,
Avec cette petite macro

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

 

[eastwick]

Merci à tout le monde et principalement au Var.... )