Re : résultat d'une fonction : conserver la police d'origine
Bonjour, dedef, le Forum,
Si le besoin est compris...
Code:
Option Explicit
Sub Format_conditionnel()
If [d1] = [c1] Then
[c1].Copy
[d1].PasteSpecial Paste:=xlPasteFormats
Else
[a1].Copy
[d1].PasteSpecial Paste:=xlPasteFormats
End If
Application.CutCopyMode = False
End Sub