Caractères spéciaux

[sten83]

Bonjour, dans un classeur j'ai 2 colonnes une avec les chiffres et l'autre ou j'aimerais en fonction du chiffres positif ou négatif avoir une flèche, pour les négatifs qui va vers le bas et en rouge et l'autre en bleu qui va vers le haut.
Je ne sais pas si cela est possible.
Ci-joint le classeur
Merci à tous. et bon 1er mai

 

[JCGL]

Re : Caractères spéciaux

Bonjour à tous,

Peux-tu essayer en B2 et vers le bas :

• Police Wingdings
• Couleur Rouge

• =SI(A2="";"";SI(A2<0;"ê";"é"))

Et MeFC :



A+ à tous

 

[DoubleZero]

Re : Caractères spéciaux

Bonjour à toutes et à tous,

Une autre suggestion, avec ce code placé dans le module de l'onglet concerné.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Columns("a"), Target) Is Nothing And Target.Count = 1 Then
        If Target < 0 Then
            With Target.Offset(, 1): .Value = "ê": .Font.ColorIndex = 3: .Font.Name = "wingdings": End With
        Else
            With Target.Offset(, 1): .Value = "é": .Font.ColorIndex = 5: .Font.Name = "wingdings": End With
        End If
    End If
    If Target = "" Or Not IsNumeric(Target) Then Target.Offset(, 1) = ""
    Application.EnableEvents = True
End Sub

Bises à JCGL 😀

A bientôt 🙂

 

[sten83]

Re : Caractères spéciaux

Merci a vous pour votre réactivité juste ce que je voulais.

 

[Modeste geedee]

Re : Caractères spéciaux

Bonsour®
autre proposition
en B2=A2
format de cellule :
police Wingdings
[Bleu]Ý;[Rouge]Þ;[Vert]Ü;@