Projet Compte bancaire

PORCHER · 5 Mai 2019

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 · 5 Mai 2019

Bonjour le fil,

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

PORCHER · 5 Mai 2019

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 · 5 Mai 2019

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 · 5 Mai 2019

Mon nom et adresse email y figure dans le projet

Staple1600 · 5 Mai 2019

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 · 5 Mai 2019

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

PORCHER · 5 Mai 2019

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

Staple1600 · 5 Mai 2019

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)

VB:

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 · 5 Mai 2019

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 · 5 Mai 2019

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 · 5 Mai 2019

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

PORCHER · 5 Mai 2019

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 · 5 Mai 2019

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

VB:

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 · 5 Mai 2019

Bonjour, tous.

Remplacez
xlFilterThisMonth,
par
xlFilterThisQuarter

Edit : Bing ! Zut alors...

Projet Compte bancaire

PORCHER

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

PORCHER

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

PORCHER

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

PORCHER

XLDnaute Occasionnel

Pièces jointes

PORCHER

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

PORCHER

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

PORCHER

XLDnaute Occasionnel

PORCHER

XLDnaute Occasionnel

Staple1600

XLDnaute Barbatruc

Victor21

XLDnaute Barbatruc

Discussions similaires