[VBA] Effacer MFC en récupérant les format

[TheLio]

Bonsoir,
frotte frotte frotte...
Je frotte ma lampe magique jusqu'a ce qu'un génie vébéiste en sorte :

Je cherche à récupérer les formats de mes cellules (juste la couleur texte)
en éliminant la MFC obtenue par de longues analyses.
Ceci dans le but d'alléger le classeur trop volumineux à mon goût.
En PJ les cellules concernées elles commencent à la ligne 7 et peuvent s'étendre jusqu'a la ligne 3000

frotte frotte frotte...
A++ et merci

TheLio

 

[matthieu33]

Re : [VBA] Effacer MFC en récupérant les format

Bonsoir Thelio,

Voici une solution.
J'espère que j'ai bien compris ta demande.

 

[TheLio]

Re : [VBA] Effacer MFC en récupérant les format

Salut Mathieu, ça fonctionne à merveille, merci
Est-ce possible d'intégrer à cette macro la suppression de la MFC car l'opération va être répétée sur quelques 1000 onglets donc si je peu joindre l'agréable à l'incontournable, c'est volontiers
Re-merci
frotte...

A++

THeLio

 

[bqtr]

Re : [VBA] Effacer MFC en récupérant les format

Bonsoir TheLio, matthieu33

En reprenant le code de matthieu33 et en supprimant les MFC et les Select qui ne sont pas indispensables :

Sub Supp_MFC()

Dim lglig As Long
  Application.ScreenUpdating = False   
    ' Boucle de la ligne 7 à la dernière
    For lglig = 7 To Range("F65536").End(xlUp).Row
       Range("A" & lglig & ":F" & lglig).FormatConditions.Delete
          Select Case Range("F" & lglig).Value
            ' Bleu
            Case Is = 1
                Range("A" & lglig & ":F" & lglig).Font.ColorIndex = 5
                Range("A" & lglig & ":F" & lglig).Font.Bold = True
            ' Jaune
            Case Is = 2
                Range("A" & lglig & ":F" & lglig).Font.ColorIndex = 6
                Range("A" & lglig & ":F" & lglig).Font.Bold = True
            ' Rouge
            Case Is = 3
                Range("A" & lglig & ":F" & lglig).Font.ColorIndex = 3
                Range("A" & lglig & ":F" & lglig).Font.Bold = True
            ' Noir
            Case Else
                Range("A" & lglig & ":F" & lglig).Font.ColorIndex = xlAutomatic
                Range("A" & lglig & ":F" & lglig).Font.Bold = False
          End Select
    Next lglig
  Application.ScreenUpdating = True
End Sub

Bonne soirée

 

[TheLio]

Re : [VBA] Effacer MFC en récupérant les format

Merci Pierre Olivier
ça roule comme un vélo neuf
A++
TheLio