Sujet Précédent Sujet Suivant

Filtre à l'ouverture du fichier excel

Fermé
seb2259 Messages postés 2 Date d'inscription samedi 2 mars 2013 Statut Membre Dernière intervention 8 mai 2013 - 8 mai 2013 à 18:28
 JamesH_007 - 9 mai 2013 à 06:51
Bonjour,

J'ai un document excel avec 2 colonnes :le nom et la date d'arrivée. Je souhaiterais filtrer les lignes pour qu'à l'ouverture de mon fichier excel, je puisse avoir uniquement les arrivées après la date du jour.
Comment puis-je faire ?

A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17229 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 21 janvier 2025 1 712
8 mai 2013 à 20:11
Bonjour,

code a mettre dans VBA ThisWorkbook 

Private Sub Workbook_Open()
    With Worksheets("feuil1")
        'dernier cellules non vide colonne A: adaptez a votre colonne
        derlig = .Range("A" & Rows.Count).End(xlUp).Row
        'adaptez  a vos colonnes
        .Range("A1:B" & derlig).AutoFilter
        'adaptez a vos colonnes et le champ (colonne date)
        .Range("$A$1:$B$" & derlig).AutoFilter Field:=2, Operator:= _
            xlFilterValues, Criteria1:=">" & Format(Date, "mm/dd/yyyy")
    End With
End Sub
0
Réponse 2 / 2
JamesH_007
9 mai 2013 à 06:51
Bonjour.

Pour répondre à ta question, il faut que tu ajoutes une macro dans le module VBA « ThisWorkbook ». Pour accéder à VBA, il faut que tu fasses ALT+F11. Sache que la macro que tu dois rajouter doit impérativement se nommer « Private Sub Workbook_Open() » pour que ça marche.
Tu trouveras ci-dessous un exemple :

Private Sub Workbook_Open()
Dim MyName As String
MyName = Format(Now(), "dd/mm/yyyy")
Sheets("Sheet1").Select 'Selection de l'onglet concerné
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData 'Enlever les filtres précédents
Range("A:AZ").Select
Selection.AutoFilter Field:=7, Criteria1:="MyName" 'Tu dois mettre à jour les champs Field et Criteria1
End Sub


Voilà, simple comme bonjour ? Bonne journée.
0