Bonjour à tous.
J'essais depuis un moment de faire fonctionner cette macro sans succès.
Pouvez-vous m'aider à trouver mon erreur ?
Merci.
J'essais depuis un moment de faire fonctionner cette macro sans succès.
Pouvez-vous m'aider à trouver mon erreur ?
Merci.
Code:
Sub Annufiltres()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Sheets
If sh.FilterMode = True Then sh.ShowAllData
Next
End Sub
Sub Tridate()
Dim onglet As String
Dim datedebut As Date
Dim datefin As Date
If Range("U10") = "" Then
MsgBox "Entrer Une Date De Début"
Else
If Range("U11") = "" Then
MsgBox "Entrer Une Date De Fin"
Else
If IsDate(Range("U10").Value) = False Or _
IsDate(Range("U11").Value) = False Then
MsgBox "Le format n'est pas une date !"
Exit Sub
End If
datedebut = Worksheets("Graphi").Range("U10").Value
datefin = Worksheets("Graphi").Range("U11").Value
onglet = Worksheets("Graphi").Range("J2").Value
Sheets(onglet).Range("A1").Select
Selection.AutoFilter Field:=1, Criteria1:=">" & datedebut, _
Operator:=xlAnd, Criteria2:="<" & datefin
End If
End If
End Sub
Dernière édition: