optimisation code vba Résolu/Fermé

Question

Bonjour, 

J'ai un classeur qui constitue une grille tarifaire : chaque ligne représente une pièce et donne son prix en fonction de sa quantité. J'ai créé un code  permettant de masquer les lignes inutiles (lignes dont la quantité de la pièce est à 0) de mes feuilles avant de les imprimer seulement l'algorithme parcours la feuille ligne par ligne et cela prend beaucoup de temps (plus de 30s), est-ce que quelqu'un saurait comment améliorer mon code qui est le suivant ? 

Sub imprimerfeuille()
    Dim numerocol As Integer
    Dim numerolig As Long
    Dim Derlig As Long
    Dim Cell As Range
    Derlig = Split(ActiveSheet.UsedRange.Address, "$")(4)
    numerocol = 2
    For numerolig = 5 To Derlig
        If Cells(numerolig, numerocol) = "0" Or IsEmpty(Cells(numerolig, numerocol)) Then
            If Not Application.CountA(Cells(numerolig, numerocol).EntireRow) = 0 And Cells(numerolig, 3).Font.Bold = False And Not Cells(numerolig, 3).Interior.ColorIndex = 2 Then
                Cells(numerolig, numerocol).EntireRow.Hidden = True
            End If
        End If

Next
    ActiveSheet.PrintOut
    With ActiveSheet.Cells
    .EntireRow.Hidden = False
    End With

End Sub

Merci d'avance, bonne journée! 

Flore

Configuration: Mac OS X (10.11.5) / Safari 9.1.1
        EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI 

Merci d'y penser dans tes prochains messages.

Mosca · Answer

Bonjour,

Une possible optimisation en bloquant le rafraichissement de l'affichage

Application.ScreenUpdating = False
    For numerolig = 5 To Derlig
    ' 
    'execution de la boucle
    '
    Next
Application.ScreenUpdating = True 


Cordialement

Optimisation code vba

1 réponse

Discussions similaires