Discussion :

[John Parker]

Bonjour à tous,

Je souhaite créer un bouton sur excel qui me permettrait de masquer un nombre de ligne défini en dessous d'une valeur à trouver.


Je m'explique, sur une même feuille j'ai toutes les semaines de l'année. Chaque semaine comporte 22 lignes (la première étant l'en-tête). Donc 22 x 52 = 1144 lignes.

Pour chaque semaine lorsque la valeur de la colonne Q = "AP" je souhaiterai masquer la ligne d'en tête ainsi que les 21 lignes suivantes.


Merci d'avance pour votre retour

Bonnes fêtes de fin d'année !

[EricDgn]

Bonjour,

Quelque chose de ce genre devrait convenir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Sub MasquerLignes()
    Dim kR As Long
    For kR = 1 To 1144
        If Range("Q" & kR).Value = "AP" Then
            Rows(kR).EntireRow.Hidden = True
        End If
    Next kR
End Sub
 
Sub VoirTout()
    Cells.EntireRow.Hidden = False
End Sub

Cordialement.

[John Parker]

Bonjour Eric et merci pour ton aide.

Ton code résout une partie de mon problème. Il me masque bien la ligne contenant "AP" en colonne Q. En revanche, je souhaiterais également masquer les 21 lignes se trouvant en dessous de la ligne contenant "AP".

C'est sur ce point la que je bloque

Merci encore

[Patrice740]

Bonjour,

Avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

            Rows(kR).Resize(22).Hidden = True

à la place de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rows(kR).EntireRow.Hidden = True

[John Parker]

Impeccable!

Exactement ce dont j'avais besoin !

Merci à vous 2

Bonnes fêtes de fin d'année !

[John Parker]

Encore une question, étant donné le nombre conséquent de lignes et vu que j'applique cette macro à 5 feuilles, cela prend un temps considérable.

N'y a t-il pas un moyen d'accélérer cela?

voici mon code actuel.

le code du module que tu m'as fourni

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub masquerAP()
 
 
    Dim kR As Long
    For kR = 1 To 1144
        If Range("R" & kR).Value = "AP" Then
            Rows(kR).Resize(22).Hidden = True
        End If
    Next kR
 
End Sub

Et le code appliqué à la fermeture du fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Workbook_BeforeClose(Cancel As Boolean)
 
 
Dim ws As Worksheet
 
If ThisWorkbook.ReadOnly Then
        Application.Quit
        ActiveWorkbook.Close Savechanges:=False
End If
 
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "ListeDéroulante" And ws.Name <> "Donnee" And ws.Name <> "L300" Then
        ws.Activate
        Call Module1.masquerAP
    End If
 
Next ws
 
 
End Sub

Cela met énormément de temps à se lancer et je n'arrive pas à appliquer le code à plusieurs feuilles


Merci d'avance

[mfoxy]

Bonsoir,

Pour augmenter la vitesse quelques points me viennent en tête :

1) Ne pas utiliser les .Activate mais passer en argument le nom de la feuille.
2) Passer les options de calculs en manuels ainsi que le screenupdating (attention à bien les remettre à l'origine à la fin)

Ces deux petites choses devraient déjà vous permettre d'économiser qq secondes, minutes en fonction du nombre de feuille à traiter.

Je pense que votre fichier pourraient être optimisé en travail avec une Db global, et Power query pour spitter celle-ci en vos différents Onglets.

Joyeuses fêtes,

[EricDgn]

Bonsoir,

Dans la mesure où il est certain que les lignes de titres "semaines" commencent à 1 et sont par groupe de 22, il y a aussi déjà pas mal à gagner en utilisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    For kR = 1 To 1144 Step 22

Cordialement.