Discussion :

[zoumzoum59]

Bonjour a tous,

Je vous sollicite pour voir si il y a une solution pour rendre plus rapide l’exécution d'une commande de masquage de ligne en fonction d'une cellule contenant un Zéro ou pas.
Le code ci dessous fonctionne, mais comme la feuille comporte un peu moins de 400 lignes le code si dessous est un peu lent a s’exécuter.
Existe t il un autre code plus rapide?

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
25
26
27
28
29
30
31
32
33
34
Sub masque_0()
    Application.Calculation = xlCalculationManual
    Dim i As Integer
 
    If ActiveSheet.Index = 1 Then
 
    For i = 8 To Range("E65536").End(xlUp).Row
        If Cells(i, 7).Value = 0 Then
            Cells(i, 7).EntireRow.Hidden = True
        End If
    Next i
 
    ElseIf ActiveSheet.Index = 6 Then
    For i = 3 To Range("D65536").End(xlUp).Row
        If Cells(i, 5).Value = 0 Then
            Cells(i, 5).EntireRow.Hidden = True
        End If
        Next i
 
    ElseIf ActiveSheet.Index = 6 Then
    For i = 3 To Range("D65536").End(xlUp).Row
        If Cells(i, 4).Value = 0 Then
            Cells(i, 4).EntireRow.Hidden = True
        End If
        Next i
 
    Else
    For i = 5 To Range("D65536").End(xlUp).Row
        If Cells(i, 6).Value = 0 Then
            Cells(i, 6).EntireRow.Hidden = True
        End If
        Next i
 
    End If

Merci d'avance.

[joe.levrai]

Bonjour,

ne serait-il pas pertinent de plutôt appliquer un filtre automatique (Autofilter), avec un critère "<>0" sur la colonne ?

[zoumzoum59]

Peut être que si mais je n'ai jamais utilisé les filtres.
Peux tu m'en dire plus.
Les filtres agissent ils comme un masquage, a t'on au final le même résultat?

[joe.levrai]

Voilà pour la prise en main

le premier thème de la FAQ répond à ta dernière question

FILTRES EXCEL

[zoumzoum59]

Merci joe.levrai,

Je vais approfondir ça, mais ça me parait pas mal.

Merci encore