Optimisation de code pour execution plus rapide
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:
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.
