Microsoft 365 tri trop long

[Usine à gaz]

Bonjour à toutes et à tous

J'ai fait un code pour faire mes tris, mais il est très long.

Sub tri_RdVs_alpha()
Application.EnableEvents = False
ActiveSheet.Unprotect Password:=""
Range([a6], Cells(Rows.Count, "a").End(xlUp)).RowHeight = 55
    With ActiveSheet 'Feuil3 'CodeName
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
    With .Rows("6:" & .Range("a65536").End(xlUp).Row)
        If .Row < 6 Then Exit Sub 'sécurité
        .Sort .Columns(1), xlAscending, Header:=xlNo
    End With
   
    For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
    If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).Hidden = True
    'If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).RowHeight = 55
    Next i

End With
[a3].Select
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
End Sub

Voilà le responsable (enfin, je pense) :
For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).Hidden = True
'If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).RowHeight = 55
Next i
J'ai tenté les 2 codes ".Hidden = True" et ".RowHeight = 55" = même temps d'exécution (+ de 15 secondes)
Mon fichier que je ne peux pas joindre contient environ 60.000 lignes.

Je ne vois pas comment faire
Auriez-vous la solution pour accélérer le code ?

Je continue à chercher ...
Je vous remercie,
Amicalement,
lionel,

 

[Phil69970]

Bonjour Lionel

Déjà tu peux mettre ceci en début de code

Application.ScreenUpdating = False

@Phil69970

 

[Usine à gaz]

Bonjour Phil69970,
Merci à toi, je l'avais oublié celui-là
Et c'est déjà bcp plus rapide mais je ne comprends pkoi ?
lionel,

 

[patricktoulon]

re
bonjour
ben c'est simple
qu'est qui est le plus lent dans une changement en série dans une plage
le changement de serie ou le re dessin a l’écran?

 

[Usine à gaz]

Bonjour Patrick lol, je n'y arriverai jamais snifff

 

[Phil69970]

Re

Une piste tu traites l'info (ton code) en 2 parties pour voir laquelle est la plus lente

Tu désactives tu lances la macro sans cette partie

'For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
'If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).Hidden = True
'If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).RowHeight = 55
'Next i

Puis après tu lances juste le reste exemple

Sub tri_RdVs_alpha()
Application.EnableEvents = False
ActiveSheet.Unprotect Password:=""
Range([a6], Cells(Rows.Count, "a").End(xlUp)).RowHeight = 55
    With ActiveSheet 'Feuil3 'CodeName
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
        With .Rows("6:" & .Range("a65536").End(xlUp).Row)
            If .Row < 6 Then Exit Sub 'sécurité
            .Sort .Columns(1), xlAscending, Header:=xlNo
        End With
 
   'Ici tu mets un point d'arret tu regardes le temps d'execution
   LaSuite
 
'    For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
'        If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).Hidden = True
'        'If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).RowHeight = 55
'    Next i

End With
[a3].Select
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
End Sub

Sub LaSuite()
'ici le reste de ta macro
    For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
        If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).Hidden = True
        'If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).RowHeight = 55
    Next i
End Sub

Quand tu auras trouvé quelle partie est la plus lente on verra.....

@Phil69970

 

[patricktoulon]

Bonjour Patrick lol, je n'y arriverai jamais snifff

ben ça c'est toi qui voit
ce sont des instructions basiques que l'on utilise très souvent dans des cas comme celui là
pas très difficile a retenir

 

[Phil69970]

Re

Le temps on doit même pouvoir le calculer du genre (non testé)

Time1 = Time

'Exécution du programme partie 1

Time2 = Time

TimeTT = Time2 - Time1

Time3 = Time

'Exécution de la 2eme partie programme

Time4 = Time

TimeTT2 = Time4 - Time3

@Phil69970

 

[Usine à gaz]

Re

Une piste tu traites l'info (ton code) en 2 parties pour voir laquelle est la plus lente

Tu désactives tu lances la macro sans cette partie



Puis après tu lances juste le reste exemple

Sub tri_RdVs_alpha()
Application.EnableEvents = False
ActiveSheet.Unprotect Password:=""
Range([a6], Cells(Rows.Count, "a").End(xlUp)).RowHeight = 55
    With ActiveSheet 'Feuil3 'CodeName
    If .FilterMode Then .ShowAllData 'si la feuille est filtrée
        With .Rows("6:" & .Range("a65536").End(xlUp).Row)
            If .Row < 6 Then Exit Sub 'sécurité
            .Sort .Columns(1), xlAscending, Header:=xlNo
        End With
 
   'Ici tu mets un point d'arret tu regardes le temps d'execution
   LaSuite
 
'    For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
'        If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).Hidden = True
'        'If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).RowHeight = 55
'    Next i

End With
[a3].Select
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.EnableEvents = True
End Sub

Sub LaSuite()
'ici le reste de ta macro
    For i = 6 To Range("J" & Rows.Count).End(xlUp).Row
        If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).Hidden = True
        'If Cells(i, 10) = "NPR" Or Cells(i, 10) = "RdV Fait" Then Rows(i).RowHeight = 55
    Next i
End Sub

Quand tu auras trouvé quelle partie est la plus lente on verra.....

@Phil69970

Re-Bonjour,

je l'avais déjà fait, c'est pour cela que j'ai vu que la boucle en est responsable.
Mais avec le Application.ScreenUpdating = False, ça va bcp mieux

 

[Phil69970]

Re

Une idée tu peux rajouter une colonne et faire par exemple :

=SI(OU(NB.SI(J3;"NPR");NB.SI(J3;"RdV Fait"));"X";"")

En clair du mets une croix dans les futures lignes à cacher
Tu fais un tri sur la colonne avec les croix et après tu caches d'un seul coup toutes les lignes avec croix on passe plus ligne par ligne mais tout d'un bloc

@Phil69970

 

[Usine à gaz]

Je te remercie
Mais mettre le "Application.ScreenUpdating = False" me suffit, ça ne prend plus qu'une seconde environ
lionel,

 

[Phil69970]

Lionel

Plus que 2 messages et




@Phil69970

 

[patricktoulon]

 

[TooFatBoy]

Bonjour,


Oui, c'est sûrement ta boucle qui prend beaucoup de temps.

T'as essayé d'utiliser le filtrage du tableau dans la feuille pour remplacer ta boucle ?

 

[Usine à gaz]

Bonjour,


Oui, c'est sûrement ta boucle qui prend beaucoup de temps.

T'as essayé d'utiliser le filtrage du tableau dans la feuille pour remplacer ta boucle ?

Bjr Marcel : oui c'est bon c'est résolu
Merci pour ton idée
Si la boucle me pose encore de nouveaux problèmes, je verrai du côté des filtres
lionel,