Discussion :

[catedd]

Bonjour à tous;

Une aide pour améliorer le code joint.
Pour cacher des lignes de plages précises,,,, sauf si la cellule de la colonne C dans la ligne supérieure est <> de " ". Voici un code qui marche, mais saccade.
Est-il possible de faire mieux, ou d'accélérer en évitant le code qui affiche toutes les lignes avant de les cachées.

Pour être honnête, je ne suis pas l'auteur de ce code.
Je remercie par avance le ou les personnes qui veulent bien m'aider.

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
21
Sub MasquerLignes()
    Dim lgn, i%, j%, listLn$
    lgn = Split("C33:C41 C45:C48 C52 C58:C61 C66:C69 C75 C80 C85 88:227")
    With Worksheets("Ligne A")
        .Unprotect
        .Rows.Hidden = False
        For i = 0 To UBound(lgn)
            With .Range(lgn(i))
                For j = 1 To .Rows.Count
                    If .Cells(j - 1, 1) = "" Then listLn = listLn & " " & .Cells(j, 1).Row
                Next j
            End With
        Next i
        lgn = Split(LTrim(listLn))
        Application.ScreenUpdating = False
        For i = 0 To UBound(lgn)
            .Rows(lgn(i)).Hidden = True
        Next i
        .Protect
    End With
End Sub

[geogeo70]

bonsoir,

Pour éviter les effets d'écran vous pouvez utilisez "Screenupdating" à false au début de macro et à true à la fin(ne pas oublier). Ce sera de toute façon plus rapide.

voilà ma proposition :

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
21
22
23
24
Sub MasquerLignes()
    Dim lgn, i%, j%, listLn$
 
    Application.ScreenUpdating = False
    lgn = Split("C33:C41 C45:C48 C52 C58:C61 C66:C69 C75 C80 C85 88:227")
    With Worksheets("Ligne A")
        .Unprotect
        .Rows.Hidden = False
        For i = 0 To UBound(lgn)
            With .Range(lgn(i))
                For j = 1 To .Rows.Count
                    If .Cells(j - 1, 1) = "" Then listLn = listLn & " " & .Cells(j, 1).Row
                Next j
            End With
        Next i
        lgn = Split(LTrim(listLn))
 
        For i = 0 To UBound(lgn)
            .Rows(lgn(i)).Hidden = True
        Next i
        .Protect
    End With
    Application.ScreenUpdating = True
End Sub

cordialement
geogeo

[catedd]

Bonsoir geogeo70,

Désolé de te répondre avec autant de retard.
Tu raison , cela marche très bien.
Déplacer ' Application.ScreenUpdating = Fals ' est la solution.

C'est très aimable et je te remercie bcp.
Cordialement

[unparia]

Bonjour
Tu gagnerais beaucoup à éviter un mécanisme (celui que montres ton code) qui consiste à :
- construire une chaîne de caractères listLn (avec des numéros de lignes séparés par des espaces)
- puis "éclater" par split cette chaîne listLn pour obtenir un array lgn des lignes à cacher
- puis parcourir en boucle l'array lgn pour en extraire chaque numéro et effacer, tour à tour, chaque ligne concernée
C'est vraiment tortueux, source de lenteurs, etc ...
Constitue donc directement la plage des lignes à cacher et cache ensuite d'un seul coup.
Ouvre ton aide VBA à la rubrique Application.Union, méthode et lis. Cela devrait te donner des idées.

(il y aurait également à dire sur la démarche générale, qui commence par définir l'array lgn, mais tu es visiblement débutant et je ne vais pas te troubler plus encore).

[RyuAutodidacte]

Bonjour,
Pour ajouter à ce que dit unparia, en cherchant bien dans le forum, une discussion récente pour cacher les lignes : ici