Autres Optimiser UN CODE très lent

chaelie2015 · 25 Janvier 2023

Bonsoir Forum
Ce code, nommé "Mise_a_jour", parcourt une plage de cellules dans la feuille de calcul "CRT", allant de C17 à C47. Pour chaque cellule dans cette plage (appelée "cell1"), il définit une autre cellule (appelée "cell2") en utilisant la même ligne, mais dans la colonne AO. Ensuite, il convient si la valeur de cell2 n'est ni "sam" ni "ven". S'il est vrai, il faut si la couleur de fond de cellule1 est blanche (RGB (255, 255, 255)). Si c'est le cas, il définit la valeur de cellule.
je souhaite le optimiser il semble qu'il est tres lent.
Merci

VB:

Sub Mise_a_jour() ' code moin rapide que le precedant
Dim cell1 As Range, cell2 As Range
For Each cell1 In Sheets("CRT").Range("C17:C47" & derniereLigne)
    Set cell2 = Sheets("CRT").Range("AO" & cell1.Row)
    If (cell2.Value <> "sam") And (cell2.Value <> "ven") Then
        If cell1.Interior.Color = RGB(255, 255, 255) Then
            cell1.Value = "8"
        End If
    ElseIf (cell2.Value = "sam") Or (cell2.Value = "ven") Then
        cell1.Value = "RH"
    End If
Next cell1
End Sub

Deadpool_CC · 25 Janvier 2023

Bonsoir
Alors sans fichier exemple pour tester, je peux uniquement te proposer :

VB:

Sub Mise_a_jour()

Dim Cellule As Range
Dim ValCellule2 As String

With Sheets("CRT")
    For Each Cellule In .Range("C17:C47")    ' j'ai viré le "& derniereLigne" du range car variable non déclarée qui sert à ???
        ValCellule2 = Cells(Cellule.Row, "AO").Value
        Select Case ValCellule2
            Case "sam", "ven"
                Cellule.Value = "RH"
            Case Else
                If Cellule.Interior.Color = RGB(255, 255, 255) Then Cellule.Value = 8
        End Select
    Next Cellule
End With

End Sub

mapomme · 25 Janvier 2023

Bonjour à tous,

@chaelie2015,

Franchement, après 1 481 messages ne pas joindre de fichier est incompréhensible. Ce sont les répondeurs qui doivent le faire ?

Dans le code initial il est écrit : ' code moins rapide que le précédant
Pourquoi ne pas conserver le précédent ? ( )

Que vaut "derniereLigne" ? Si c'est 0, alors la plage examinée sera C17:C470. Si "derniereLigne" vaut 1 000, la plage examinée sera C17:C47000 .

chaelie2015 · 25 Janvier 2023

Deadpool_CC à dit:

Bonsoir
Alors sans fichier exemple pour tester, je peux uniquement te proposer :

VB:

Sub Mise_a_jour()

Dim Cellule As Range
Dim ValCellule2 As String

With Sheets("CRT")
    For Each Cellule In .Range("C17:C47")    ' j'ai viré le "& derniereLigne" du range car variable non déclarée qui sert à ???
        ValCellule2 = Cells(Cellule.Row, "AO").Value
        Select Case ValCellule2
            Case "sam", "ven"
                Cellule.Value = "RH"
            Case Else
                If Cellule.Interior.Color = RGB(255, 255, 255) Then Cellule.Value = 8
        End Select
    Next Cellule
End With

End Sub

Bonsoir Deadpool_CC
Merci beaucoup, il est un peu rapide que le mien

chaelie2015 · 25 Janvier 2023

mapomme à dit:
Que vaut "derniereLigne" ? Si c'est 0, alors la plage examinée sera C17:C470. Si "derniereLigne" vaut 1 000, la plage examinée sera C17:C47000 .

Bonjour mapomme
la variable "dernièreLigne" est utilisée pour stocker la valeur de la dernière ligne non vide de la colonne C dans la feuille de calcul "CRT". Cette valeur est utilisée pour limiter la plage de cellules parcourues par la boucle "For Each" pour seulement celle qui contient des données, donc éviter de parcourir des lignes vides ce qui va améliorer les performances de la boucle.

mapomme · 25 Janvier 2023

Re,

Dans ce cas, ce doit être : In Sheets("CRT").Range("C17:C" & derniereLigne)
Donc derniereLigne a été définie auparavant (soit en variable globale soit dans la procédure appelante)

Mais où est donc le fichier ?

chaelie2015 · 25 Janvier 2023

mapomme à dit:
Bonjour à tous,

@chaelie2015,

Franchement, après 1 481 messages ne pas joindre de fichier est incompréhensible. Ce sont les répondeurs qui doivent le faire ?

Dans le code initial il est écrit : ' code moins rapide que le précédant
Pourquoi ne pas conserver le précédent ? ( )

Que vaut "derniereLigne" ? Si c'est 0, alors la plage examinée sera C17:C470. Si "derniereLigne" vaut 1 000, la plage examinée sera C17:C47000 .

re
Si la variable "dernièreLigne" vaut 0, cela signifie qu'il n'y a aucune donnée dans la colonne C de la feuille de calcul "CRT", donc la plage examinée par la boucle "For Each" sera vide. Dans ce cas, la boucle ne sera pas exécutée car il n'y a pas de cellules à progression.

chaelie2015 · 25 Janvier 2023

mapomme à dit:
Re,

dans ce cas, ce doit être : In Sheets("CRT").Range("C17:C" & derniereLigne)

OK mais où est donc le fichier ?

re
je vais faire un fichier exemple

Deadpool_CC · 25 Janvier 2023

chaelie2015 à dit:
il est un peu rapide que le mien

C'est l'avantage du Select Case ... il evalue pas les instructions du case Else s'il le case précédent est ok
et regarder 1 seul fois la valeur de la 'cellule2' plutôt qui de la lire pour tous les test que tu avais mis ... lol

après comme dit @mapomme sans fichier exemple difficile d'optimiser

Deadpool_CC · 25 Janvier 2023

et c'est pour traiter combien de ligne ? par ce que t'optimiser le truc pour 1000 lignes et gagné 2 secondes ... j'espère au moins que c'est pour plus de 100 000 lignes ... lol

chaelie2015 · 25 Janvier 2023

Deadpool_CC à dit:
C'est l'avantage du Select Case ... il evalue pas les instructions du case Else s'il le case précédent est ok
et regarder 1 seul fois la valeur de la 'cellule2' plutôt qui de la lire pour tous les test que tu avais mis ... lol

après comme dit @mapomme sans fichier exemple difficile d'optimiser

RE Deadpool_CC
Merci pour les details
je vais faire mon possible pour préparer le fichier exemple (l'original est confidentiel et très volumineux)
Merci

mapomme · 25 Janvier 2023

chaelie2015 à dit:
je vais faire mon possible pour préparer le fichier exemple (l'original est confidentiel et très volumineux)
Merci

Deux colonnes suffiront, non ?

Cousinhub · 25 Janvier 2023

Bonsoir,
Juste pour un p'tit truc...

Deadpool_CC à dit:
C'est l'avantage du Select Case ...

Je me souviens d'un essai, effectué il y a quelques années... (je n'arrive pas à le retrouver, mais ça ne doit pas être difficile de le refaire...)(quelques années, en gros 15/20 ans...)
Et que le If...Then..End If était plus rapide que Select Case...
@ vérifier, donc...
Bonne soirée à tous

mapomme · 25 Janvier 2023

Bonjour bhbh,

bhbh à dit:
Et que le If...Then..End If était plus rapide que Select Case...

C'est pas faux. Mais le codage est un équilibre subtil entre la taille du code, la rapidité d'exécution et la lisibilité du code. Jadis, l’économie de la mémoire vive était aussi un critère primordial.

chaelie2015 · 25 Janvier 2023

mapomme à dit:
Deux colonnes suffiront, non ?

NON je suis désolé mapomme, parce que il y a des formules et des codes dans cette feuille et qui sont relié avec ces colonnes

Autres Optimiser UN CODE très lent

chaelie2015

XLDnaute Accro

Deadpool_CC

XLDnaute Accro

mapomme

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

mapomme

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

Deadpool_CC

XLDnaute Accro

Deadpool_CC

XLDnaute Accro

chaelie2015

XLDnaute Accro

mapomme

XLDnaute Barbatruc

Cousinhub

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires