Bonjour le forum,
Sur une feuille Excel, j'ai plein de MFC différentes. Je voudrais effacer en masse uniquement les MFC qui ont la condition de motif rose (ColorIndex = 22).
Actuellement, j'utilise
On Error Resume Next
macolonne = ActiveSheet.Range('A1').SpecialCells(xlCellTypeLastCell).Column
maligne = ActiveSheet.Range('A1').SpecialCells(xlCellTypeLastCell).Row
For x = 1 To maligne
For y = 1 To macolonne
If ActiveSheet.Cells(x, y).FormatConditions(1).Interior.ColorIndex = 22 Then ActiveSheet.Cells(x, y).FormatConditions.Delete
Next
Next
On Error GoTo 0
MAIS C'EST TRES LENT !!!
Auriez-vous une solution plus rapide ?
Merci pour tout conseil,
Mi_
Sur une feuille Excel, j'ai plein de MFC différentes. Je voudrais effacer en masse uniquement les MFC qui ont la condition de motif rose (ColorIndex = 22).
Actuellement, j'utilise
On Error Resume Next
macolonne = ActiveSheet.Range('A1').SpecialCells(xlCellTypeLastCell).Column
maligne = ActiveSheet.Range('A1').SpecialCells(xlCellTypeLastCell).Row
For x = 1 To maligne
For y = 1 To macolonne
If ActiveSheet.Cells(x, y).FormatConditions(1).Interior.ColorIndex = 22 Then ActiveSheet.Cells(x, y).FormatConditions.Delete
Next
Next
On Error GoTo 0
MAIS C'EST TRES LENT !!!
Auriez-vous une solution plus rapide ?
Merci pour tout conseil,
Mi_