Amélioration macro qui fonctionne

Version imprimable

Bonjour à toutes et tous,

J'ai une macro qui fonctionne, elle fait le boulot. (C'est du bricolage du dimanche).
Mais elle est un peu lente.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Masquer_WE1()
'Masquer les Sam et Dim
'Le 17/01 fonctionne mais un peu lent
 
Const l_jour = 3 'Ligne 3 contenant les jours sous forme de jjj soit lun, mar, sam, dim
Const c_deb = 9 ' colonne I (01/01)
Const c_fin = 740 ' colonne ABJ (31/12) ou colonne ABL pour années bissextiles
Dim col As Integer
 
    For col = c_deb To c_fin
        If (Cells(l_jour, col)) = "sam" Then
            Columns(col).Hidden = True
        End If
 
        If (Cells(l_jour, col)) = "dim" Then
            Columns(col).Hidden = True
        End If
 
    Next col
 
End Sub

Auriez vous une idée d'amélioration pour ma gouverne ?
Par avance, merci
Philippe

Citation:

Envoyé par Phil333250

Bonjour,

A tester :

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
35
 
Sub Masquer_WE1()
'Masquer les Sam et Dim
'Le 17/01 fonctionne mais un peu lent
 
Const l_jour = 3 'Ligne 3 contenant les jours sous forme de jjj soit lun, mar, sam, dim
Const c_deb = 9 ' colonne I (01/01)
Const c_fin = 740 ' colonne ABJ (31/12) ou colonne ABL pour années bissextiles
Dim col As Integer
Dim HeureDebut2, HeureFin2, TempsTotal2
 
    With Application
         .ScreenUpdating = False
         .Calculation = xlCalculationManual
    End With
    HeureDebut2 = Timer
 
    For col = c_fin To c_deb Step -1
        Select Case Cells(l_jour, col)
        Case "sam", "dim"
            Columns(col).Hidden = True
        End Select
    Next col
 
    With Application
         .ScreenUpdating = True
         .Calculation = xlCalculationAutomatic
    End With
 
    HeureFin2 = Timer
    TempsTotal2 = HeureFin2 - HeureDebut2
    MsgBox "Temps du traitement : " & Round(TempsTotal2, 1) & " seconde(s)"
 
 
End Sub

17/01/2021, 17h24
Phil333250

Bonsoir,

Merci pour votre réponse.

En plus, je viens d'apprendre à intégrer un timer. C'est génial.

Le temps de traitement de mon code est supérieur de 0,5 seconde par rapport au votre.

Philippe