Un idée pour alleger mon code

Question

Bonjour à tous,

tout nouveau sorti de ma premiere formation VBA appliquée à excel je decouvre dejà la joie des problèmes...

auriez vous une idée pour alleger ce code (le sablier reste scotché 15 seconde lors de chaque action sur ma feuille excel): (en gros je demande de colorier des cellules en fonction des valeurs trouvées dans des cellules adjacente, et ce sur toute une liste de 500 lignes environ)

For Each a In Range("k5:k500")
            If a.Offset(0, -9).Value = Sheet("Parametre").Range("B9").Value Then
        a.Value = a.Offset(0, -1).Value + 90
        Else: a.Value = a.Offset(0, -1).Value + 365
        End If
           
        If a.Offset(0, -9).Value = Sheets("Parametre").Range("B18").Value Then
        a.Value = a.Offset(0, -1).Value + 180
        End If
        
  If a.Offset(0, -1).Value < Range("O1").Value Then
    a.Font.ColorIndex = 2
    Else: a.Font.ColorIndex = 0
End If
Next

  Ensuite ce code est répété plusieurs fois pour refaire l'analyse sur d'autres colonnes (colonne O, S, W, AA....) :
  
  For Each b In Range("o5:o500")
        If b.Offset(0, -13).Value = Sheets("Parametre").Range("B9").Value Then blabla
............
            End If


Merci d'avance pour le coup de main !

CerberusPau · Answer

Bonjour,

Peut-être ça:


Application.ScreenUpdating = False
à placer en début de macro et


Application.ScreenUpdating = True
à placer éventuellement en fin de macro

A+
Rataxes64

Renfield · Answer

j'approuves CerberusPau.
De meme, sors :

Sheet("Parametre").Range("B9").Value
etc.

de la boucle : ce sont des donnees fixes, so...

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

chapeleurb · Answer

Merci pour votre aide mais en fait ça rame toujours 

peut être parce que j'ai mis à la suite 6 boucles qui débutent à chaque fois par For Each X In Range("xxx5:xxx500") ...un peu lourd de scanner et comparer 6 colonnes de 500 lignes ?

en tout cas merci

Un idée pour alleger mon code

3 réponses

Votre réponse

Discussions similaires