Projet Compte bancaire

[PORCHER]

Bonjour,
Je réalise actuellement un projet de compte bancaire et je recherche une macro ;
dans cette feuille, colonne "C9:C" j'ai des dates (jour, mois et année)
Je souhaiterais afficher les lignes du mois en cours
et masquer les autres lignes du mois précédent.
Merci de m'éclairer...

 

[Staple1600]

Bonjour le fil,

[PORCHER]
Un fichier exemple joint par tes soins aurait le mérite de nous éclairer nous

 

[PORCHER]

J'envoi le fichier. Attention ce n'est qu'un Projet, certaines feuilles ont été retirées de ce projet, si des fenetres s'ouvrent pour indiquer une erreur
- ne pas faire attention- Merci

 

[Staple1600]

Re

Avant d'ouvrir ton fichier, juste deux petites questions "vérificatives"
Tu as bien pensé à anonymiser celui-ci?
Il ne contient plus de données confidentielles?

 

[PORCHER]

Mon nom et adresse email y figure dans le projet

 

[Staple1600]

Re

Alors passe en mode édition, et change ton fichier
Pourquoi?
Parce que voir ci-dessous (extrait de la charte du forum)

Pour tous

1 - Conformité RGPD
Tout message ou fichier déposé sur ce site ne doit pas comporter de données à caractère personnel (DCP).
Il convient d’anonymiser toutes les données permettant d’identifier directement ou indirectement une personne.
XLD ne saurait être tenu responsable au cas où un visiteur du site posterait des données non conformes à la législation en vigueur.
Si vous détectez une non conformité, merci d'alerter le webmaster de ce site : webmaster@excel-downloads.com, nous supprimerons les données dans les plus brefs délais.

[aparté]
Faudra qu'on m'explique un jour pourquoi la grande majorité des nouveaux membres du forum ne prennent pas le temps de lire la charte du forum
[/aparté]

 

[PORCHER]

Je renvoi le fichier classeur1, une seule feuille est présent pour indication.
Merci

 

[PORCHER]

Je répond au propos de Aparté;
Quand vous serez dans votre soixante dixième année vous comprendrez pourquoi!

 

[Staple1600]

Re

Justement ceci s'applique de 7 à 77 ans (comme disait Hergé)

Bon maintenant retour à la question
Je te laisse tester cette procédure (en lieu et place de l'existant mais juste pour le test)

Private Sub Worksheet_Activate()
If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData
Application.ScreenUpdating = False
Me.Range("$C$8:$K$23").AutoFilter Field:=1, Criteria1:=xlFilterThisMonth, Operator:=xlFilterDynamic
End Sub

PS: Tu oublié de supprimer le fichier de ton premier message
Pour le supprimer, il suffit de retourner sur ce premier message et de cliquer sur Editer puis sur Gérer les pièces jointes

 

[PORCHER]

Cette macro masque toutes mes lignes a partir de A8, par contre j'ai une macro que j'ai créé qui est celle-ci:
Sub Masque()
Dim Mois As Byte
Application.ScreenUpdating = False
If ActiveWorkbook.ActiveSheet.Shapes("Bouton").TextFrame.Characters.text = "MASQUER" Then 'Si le texte du bouton est MASQUER
Mois = Month(CDate(Range("B1")))
Me.Rows.Hidden = True ' Masque toutes les feuilles
Me.Rows(Month(Mois) + 8).Hidden = False
Me.Rows("1:8").Hidden = False ' Affiche les lignes de 1 à 8
ActiveWorkbook.ActiveSheet.Shapes("Bouton").TextFrame.Characters.text = "AFFICHER" 'Modifie le texte du bouton en AFFICHER
Else 'Si le texte du bouton est AFFICHER
Cells.EntireRow.Hidden = False
ActiveWorkbook.ActiveSheet.Shapes("Bouton").TextFrame.Characters.text = "MASQUER" ''Modifie le texte du bouton en MASQUER
End If
End Sub
Cette macro affiche la ligne A9 les autres sont masqué ?

 

[Staple1600]

Re

Tu n'as pas essayé la macro que je t'ai proposé ?(voir mon précédent message)

Je l'ai testé sur ton fichier et cela fait ce que tu souhaites.

Je souhaiterais afficher les lignes du mois en cours

Ci-dessous résultat avec ma macro

 

[PORCHER]

Effectivement, mais pourquoi cela ne marche pas chez moi?
J'ai Microsoft Office 2016 - OS : Windows 10

 

[PORCHER]

OK, j'ai compris, dans la colonne "C8" je n'avais pas le mois de Mai , la feuille que j'ai joint j'avais rectifier les dates, la feuille de mon classeur initial j'étais arreter au mois d'avril, j'ai donc rectifié et ainsi votre macro à fonctionnée - Merci, Merci...-
Mais comment fais t'on si je veux afficher le trimestre ?

 

[Staple1600]

Re

Pour le trimestre, il faut jouer sur les options offertes par le filtre automatique
J'ai donc utiliser l'enregisteur de macros pour ce faire
Ce qui donne

Sub Macro1()
Selection.AutoFilter
ActiveSheet.Range("$A$8:$AI$23").AutoFilter Field:=3, Criteria1:=xlFilterThisQuarter, Operator:=xlFilterDynamic
End Sub

Donc pour filtrer sur le trimestre, c'est ceci qui nous intéresse :xlFilterThisQuarter
Donc il suffit de remplacer l'ancien critère de ma macro par celui-ci
Je te laisse faire le test.

 

[Victor21]

Bonjour, tous.

Remplacez
xlFilterThisMonth,
par
xlFilterThisQuarter

Edit : Bing ! Zut alors...