Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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
 
- 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
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…