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
Partager