XL 2016 Changer de Police de caractères dans une formule

[Aloha]

Bonjour,

Je voudraius faire apparaître dans une cellule un crochet (lettre a dans la Police "Marlett") lorsqu'une cellule définie est vide, afficher un texte lorsqu'il y a une valeur négative, et un autre pour une valeur positive. En faisant afficher le crochet par cette méthode, je n'arrive pas à introduire du texte lisible, à moins de pouvoir changer de Police dans la formule même.

A moins d'introduire le crochet par son code: CAR(code), mais je ne le trouve pas dans la Police utilisée dans la cellule en question: Photoshop Small.

Comment procéder?

Bien à vous
Aloha

 

[mécano41]

Bonjour,

Ainsi :

=SI(B5>0;"Dépassement";SI(B5<0;"Manque";"[]"))

(ce sont les crochets du clavier)

Cordialement

 

[job75]

Bonsoir Aloha, mécano41,

Je comprends que ce qu'Aloha appelle "crochet" c'est la "coche" alors voyez le fichier joint et cette macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, a As Range
Set r = Intersect(Target, Range("A2:B" & Rows.Count), UsedRange)
If r Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
If FilterMode Then ShowAllData 'si la feuille est filtrée
For Each a In Intersect(r.EntireRow, [A:A]).Areas
    a.Font.Name = "Calibri"
    a.FormulaR1C1 = "=IF(ISNUMBER(RC[1]),IF(RC[1]=0,""0""&CHAR(160)&""a"",IF(RC[1]>0,""Dépassement"",""Manque"")),"""")"
    a = a.Value 'supprime les formules
Next a
For Each r In r.EntireRow.Rows
    If r.Cells(1) = 0 & Chr(160) & "a" Then r.Cells(1).Characters(3).Font.Name = "Marlett"
Next r
Application.EnableEvents = True 'réactive les évènements
End Sub

Les entrées peuvent être des entrées (ou effacements) multiples.

A+

 

[job75]

Re,

J'ai testé en entrant des zéros dans la plage B2:B10000 (Ctrl+Entrée).

La macro s'exécute chez moi en 3,2 secondes, c'est satisfaisant.

A+

 

[Modeste geedee]

Bonsour®

Bonjour,

Je voudraius faire apparaître dans une cellule un crochet (lettre a dans la Police "Marlett") lorsqu'une cellule définie est vide, afficher un texte lorsqu'il y a une valeur négative, et un autre pour une valeur positive.

J'ai testé en entrant des zéros dans la plage

???? zéro c'est pas vide !!!!

 

[job75]

Oui, j'ai supposé qu'Aloha a fait un lapsus sinon le problème ne serait pas cohérent.

 

[Modeste geedee]

Bonsour®

Oui, j'ai supposé qu'Aloha a fait un lapsus sinon le problème ne serait pas cohérent.

dans ce cas le résultat proposé peut etre directement obtenu via un format personnalisé :
"Dépassement";"Manque";"[X]";@

 

[Aloha]

Merci beaucoup pour toutes ces réponses que je vais étudier en profondeur!
Mes excuses d'avoir mal nommé ce symbole.