Discussion :

[daniel_gre]

Bonjour,

je suis en Excel 2003 (je sais que ce que je veux faire existe en Excel 2007) et je souhaite developper une fonction qui va en fonction d'une valeur m'afficher une fleche montante (verte), plate (noire) ou descendante (rouge).

exemple de la formule a mettre dans la cellule C1:
=Fleche(A1,B1)

J'ai place dans une feuille mes trois fleches formatee aux bonnes couleurs et j'ai nommee les cellules (Bon, Meme, Mauvais)

Aucun probleme pour copier la valeur, mais impossible de copier le format... mes fleches reste noires (couleur Automatique)...

Attache mon fichier excel... et ci-apres le code de ma fonction

Quelqu'un aurait'il une idee, une solution a me proposer ?

d'avance merci,

Daniel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
Function Fleche(Nb_1 As Integer, Nb_2 As Integer) As String
    a = Nb_1 + Nb_2
    If a > 0 Then
        strRange = "Bon"
        ColorType = 10
    End If
    If a = 0 Then
        strRange = "Meme"
        ColorType = 3
    End If
    If a < 0 Then
        strRange = "Mauvais"
        ColorType = 3
    End If
CurrentColumn = ActiveCell.Column
CurrentRow = ActiveCell.Row
 
ThisWorkbook.Sheets(1).Range(strRange).Select
Selection.Copy
ActiveSheet.Cells(CurrentRow, CurrentColumn).Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
Fleche = ThisWorkbook.Sheets(1).Range(strRange).Value
 
 
End Function