Macro masquer lignes selon date Résolu

Question

Bonjour à tous,

Malgré plusieurs recherches sur le forum, je n'arrive pas à résoudre ma problématique.
J'ai une feuille excel sur laquelle j'ai une zone d'en-tête de 7 lignes.
A partir de la 8eme ligne commence ma base de données qui contient environ 1500 lignes. Dans cette base de données la colonne 1 calcule automatiquement la semaine de la donnée présente sur chaque ligne.
Dans l'en tête en cellule C2, j'ai le calcul automatique de la semaine en cours .
Je souhaiterais créer une macro pour permettre de masquer toutes les lignes pour ne voir que les données de la semaine en cours + semaine S+1 + semaine S+2 (pour avoir une meilleure visibilité sur la base de données).

Merci pour votre aide

michel_m · Answer

Bojour,

sans voir le classeur et sans boule de cristal...

<code>Mettre le classeur sans données confidentielles en pièce jointe sur « mon-partage.fr »
et faire un clic droit-coller le raccourci  dans votre message
Dans l’attente

Gyrus · Answer

Bonjour,

Bien que je partage l'avis de michel_m (que je salue), j'ai sorti ma boule de cristal et j'ai créé un fichier de test avec la macro suivante : 
Private Sub Workbook_Open()Dim Semaine As IntegerDim DerLig As LongDim Cel As Range    Semaine = CInt(Format(Date, "ww", vbMonday, vbFirstFourDays))    With Worksheets("Feuil1")        .Cells.EntireRow.Hidden = False        DerLig = .Range("A" & Rows.Count).End(xlUp).Row        For Each Cel In .Range("A8:A" & DerLig)            If Cel.Value < Semaine Or Cel.Value > Semaine + 2 Then                Cel.EntireRow.Hidden = True            End If        Next Cel    End WithEnd Sub

Le code est à placer dans le module ThisWorkbook.

A+

Sebast16 · Answer

Bonjour à tous les 2,
Merci pour votre retour. J'ai adapté la macro de Gyrus, cela fonctionne mais malheureusement, le screening se fait ligne par ligne quand je l'active, ce qui fait qu'avec 1500 lignes environ, l'action met beaucoup de temps à s'effectuer....
Je vous ai envoyé en privé le fichier pour une meilleure compréhension (les cellules sont vides pour le moment), la colonne 1 se calcule toute seule, la colonne W et Y sont des dates, le reste du texte

Merci pour votre aide.
A+

Gyrus · Answer

Tu peux déjà prendre en compte la critique positive de michel_m qui est de rajouter la ligne d'instruction suivante en début de procédure :

Application.ScreenUpdating = False
L'actualisation de l'écran sera ainsi désactivée et accélérera l'exécution de la procédure.

En retour, dis-nous si cette adaptation est suffisante.

A+

Sebast16 · Answer

Ca me semble beaucoup mieux en effet !
Je vais essayer de remplir ma base de données et voir si avec la quantité le temps de masquage reste le même.
Je vous tiens au courant 

Merci pour votre aide précieuse,

Bonne journée

Sebast16 · Answer

Salut Gyrus,

je viens de m'apercevoir de quelquechose : la macro masque toutes les lignes dont la semaine est inférieure à celle en cours y compris celles dont la semaine est vide (c'est à dire encore sans data). Peut on le modifier légèrement pour que les lignes vides ne soient pas masquées ?

Merci encore !

michel_m · Answer

Re, 
je viens de rentrer: je m'y mets demain matin...

Gyrus · Answer

Voici la macro modifiée :

Private Sub Workbook_Open()
Dim Semaine As Integer
Dim DerLig As Long
Dim Cel As Range
    Application.ScreenUpdating = False
    Semaine = CInt(Format(Date, "ww", vbMonday, vbFirstFourDays))
    With Worksheets("Feuil1")
        .Cells.EntireRow.Hidden = False
        DerLig = .Range("A" & Rows.Count).End(xlUp).Row
        For Each Cel In .Range("A8:A" & DerLig)
            If (Cel.Value < Semaine Or Cel.Value > Semaine + 2) And Cel.Value <> "" Then
                Cel.EntireRow.Hidden = True
            End If
        Next Cel
    End With
End Sub

A+

Sebast16 · Answer

Salut Gyrus,

T'es trop fort !! merci pour votre aide et surtout pour la rapidité de réponse !

Bonne soirée

michel_m · Answer

Excusez moi d'avoir dérangé

Sebast16 · Answer

Mais tu n'as pas dérangé Michel :)
Toutes les aides sont les bienvenues pour des novices comme moi :)

Macro masquer lignes selon date

11 réponses

Discussions similaires

Newsletters