Projet Compte bancaire

  • Initiateur de la discussion Initiateur de la discussion PORCHER
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

PORCHER

XLDnaute Occasionnel
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...
 
Bonjour à @PORCHER, @Staple1600 😉, @Victor21 😉,

Une autre manière de faire (plus basique). Choisir le mois et l'année en A6 et B6 (ne rien y mettre, c'est tout afficher)
le code est dans dans le module de la feuille "Journal".
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim derlig&, xcell, X
  If Not Intersect(Target, Range("a6:b6")) Is Nothing Then
    Application.ScreenUpdating = False
    If Range("b6") = "" Then X = "*" Else X = Format(Range("b6"), "0000")
    If Range("a6") = "" Then X = X & "*" Else X = X & Format(Range("a6"), "00")
    derlig = Application.Match(9 ^ 99, Range("c:c"), 1)
    For Each xcell In Range("c9:c" & derlig)
      If IsDate(xcell) Then xcell.EntireRow.Hidden = Not (Format(xcell, "yyyymm") Like X)
    Next xcell
  End If
End Sub
 

Pièces jointes

Super chacun enrichie suivant ces connaissanes.
Message pour Staple1600: votre macro suivant les trimestres fonctionne suivant ma demande, c'est parfait
Merci encore une fois et je promet de lire la Charte.
Très cordialement
 
Re mapomme

Je ne fais pas le pinailleur mais dans l'excelailleur 😉
Pourquoi se priver de ce nous offre nativement notre tableur préféré? 😉
01mapomme.jpg
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
513
  • Résolu(e)
Microsoft 365 DATEDIF
Réponses
11
Affichages
338
Réponses
3
Affichages
284
Retour