Private Sub CommandButton3_Click()
Dim s As String
s = InputBox("Saisie de l'année voulue : ", "Quelle année voulez-vous ?")
If s <> "" Then
Selection.AutoFilter Field:=11, Criteria1:=s
Else
MsgBox "Cette année n'existe pas"
End If
UserForm2.Hide
End Sub
Imaginons que je souhaite filtrer l'année 2011 jusqu'ici, tout va bien mais comment faire pour par la suite remettre TOUTES les années ? Si possible à partir de ce code ...
Le code ** ne fonctionne pas.
