résultat d'une fonction : conserver la police d'origine

[dedef]

Bonjour,
Je vais essayer de simplifier ma question:
A1: 2
B1: Bonjour
C1: Bonjour
D1 : =SI(A1=1;B1;C1)

En D1 je voudrais donc avoir Bonjour, donc avec la police de caractères d'origine.
Est-ce possible?

Merci d'avance

 

[DoubleZero]

Re : résultat d'une fonction : conserver la police d'origine

Bonjour, dedef, le Forum,

Si le besoin est compris...

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

A bientôt

 

[dedef]

Re : résultat d'une fonction : conserver la police d'origine

Bonsoir,

Merci DoubleZero.

En fait j'aurais voulu traiter ce problème sans faire de macro : peut-être est-ce impossible?

 

[dedef]

Re : résultat d'une fonction : conserver la police d'origine

Au fait, serait-il possible d'enregistrer une telle macro en tant que fonction personnelle?

 

[Modeste geedee]

Re : résultat d'une fonction : conserver la police d'origine

Bonsour®
une formule renvoie une valeur !!!
seule alternative via une Fonction ... VBA

 

[JHA]

Re : résultat d'une fonction : conserver la police d'origine

Bonsoir à tous,

Avec MFC, tu peux mettre en gras

JHA

 

[DoubleZero]

Re : résultat d'une fonction : conserver la police d'origine

Bonjour, dedef, Modeste geedee , JHA , le Forum,

Dans le fichier joint, une macro événementielle.

A bientôt