Bonjour,

Je dois remettre un onglet comportant un nombre important de cellule en fonction de leur couleur. Il ne s'agit pas d'une plage fixe malheureusement.

Le code que j'ai trouvé prend énormément de temps :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
   Sheets("E3_Affectation_CI&PD").Select
For Each Cellule In Range("g8:BZ329")
         If ActiveCell.Interior.ColorIndex = 36 Then
         ActiveCell.Value = ""
End If
Next
 
End Sub
Auriez-vous une autre astuce pour accélérer le traitement?

J'ai pensé à mettre une autre condition : si la valeur de la cellule est vide. Mais la macro ne fait plus rien...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
    Sheets("E3_Affectation_CI&PD").Select
For Each Cellule In Range("g8:BZ329")
         If ActiveCell.Interior.ColorIndex = 36 And ActiveCell.Value <> "" Then
 
         ActiveCell.Value = ""
End If
Next
 
End Sub
Merci par avance pour votre aide