sebastien450
XLDnaute Occasionnel
Bonjour,
J'ai la macro suivant qui fonctionne mais bien sur ne convient pas pour une plage de donnée aussi importante.
Comment faire ? Un tableau géant ? =)
Merci à vous,
J'ai la macro suivant qui fonctionne mais bien sur ne convient pas pour une plage de donnée aussi importante.
Comment faire ? Un tableau géant ? =)
VB:
Application.ScreenUpdating = False: Application.EnableEvents = False: Application.Calculation = xlCalculationManual
Dim Cel As Range
For Each Cel In Range("D5:EHL222") ' definir le range
If Cel.Interior.ColorIndex <> 43 Then Cel.Clear ' si pas en vert => out
Next
Application.EnableEvents = True: Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
Merci à vous,