alléger les macros

[ripo]

Bonjour à tous,

J'ai enfin obtenu grâce à votre aide le fichier que je souhaitait.
... mais les macros sont longues à s'éxécuter et sont sacadées.
Comment alléger ces macros?

Merci encore de votre contribution
A+
Ripo

 

[Dolichotis]

Re : alléger les macros

Bonjour ripo,

Je ne sais pas comment alléger le code mais si tu mets

application.screenUpdating=false

(je ne sais pas à quoi ressemble tes macros) ca devrait accélérer le traitement.

 

[RENAUDER]

Re : alléger les macros

Bonjour,
Je te propose une autre solution mais je ne sais pas si cela sera plus rapide. A toi de tester.

Sub RechercheFiltre()
    Dim A As Variant
    Dim i As Integer
    Dim J As Integer
    Dim Lig As Integer, Plage As Range, Cell As Range, Zone As Range
    Dim Msg As String, Style, Title As String, MyValue As Variant
    Dim Cible As String, Val As Range
    Application.ScreenUpdating = False
    Cible = InputBox(" Saisir toute ou partie de la désignation à rechercher : ", "FILTRE AUTOMATIQUE", "désignation?")
    If Cible = "" Or Cible = "désignation?" Then Exit Sub
    With Sheets("chrono stock")
        .Rows("3:10000").EntireRow.Hidden = False
        ' Plage à vérifier
        Lig = .Range("B65536").End(xlUp).Row
        Range("B3:B" & Lig).Select
        A = Selection.Value
        ReDim Tableau(1 To UBound(A, 1), 1 To 1)
        For J = 1 To UBound(A, 1)
            If A(J, 1) = Cible Then
                Cells(J + 2, 3).EntireRow.Hidden = False
            Else
                Cells(J + 2, 3).EntireRow.Hidden = True
            End If
        Next J
    End With
End Sub

 

[Dolichotis]

Re : alléger les macros

Pardon, je n'avais pas vu qu'il y a une pj. Mal réveillée...