Merci.
(je précise que mes connaissances en VBA sont extrêmement limitées – essentiellement : adapter en tâtonnant des macros créées par l'enregistreur et/ou de l'aide du forum)
1ère tentative : ça a beugué sur
t = Evaluate(.FormatConditions(1).Formula1)
Alors j'ai ajouté la ligne :
Dim t As Range
...mais ça n'a pas résolu le problème.
Voilà donc le code, en l'état actuel :
Sub Format_Convertir_MFC_en_MEF()
Dim t As Range
With Range("H11")
t = Evaluate(.FormatConditions(1).Formula1)
If t Then .Interior.Color = .FormatConditions(1).Interior.Color
End With
End Sub
Nota : pour les besoins de la cause, j'ai changé
With Range("A2")
en
With Range("H11")
Mais à terme, j'aurai besoin d'appliquer la macro sur toute une sélection, voire à toute la feuille.