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

[ucfoutu]

Bonjour,

Code :

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

ThisWorkbook.Sheets(1).Range(strRange).Select

Code :

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

Fleche = ThisWorkbook.Sheets(1).Range(strRange).Value

Code :

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

strRange = "Bon" 'ou "mauvais", etc...

Rien de choquant ?

[daniel_gre]

NON, rien de choquant...

Quelqu'un as t'il une idee/une solution,

par avance merci

Daniel.

[ucfoutu]

AH !
et comment se réfère-t-on à une cellule nommée, avec Range ?

Et les guillemets ? On s'en moque, maintenant ?

Essaye donc d'affiger une valeur de ton range, comme tu t'y prends (avec Range(strRange)... ==>> et dis-nous un peu ...

[daniel_gre]

pas besoin de guillemet puisque strRange est une variable !!?? CQFS

Quelqu'un a t'il une idee/une solution?

par avance merci

[fring]

Bonjour,

Tu ne peux pas modifier la mise en forme via une fonction.
Une solution éventuelle :

• fonction à placer dans un module
  

  Code :

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

  1
  2
  3
  4
  5
  6
  7
  8
  9
  10
  11
  12
  Function Fleche(Nb_1 As Integer, Nb_2 As Integer) As String
  Dim Result As String
   
  Select Case Nb_1 + Nb_2
      Case Is < 0: Result = "Mauvais"
      Case 0: Result = "Meme"
      Case Is > 0: Result = "Bon"
  End Select
   
  Fleche = Range(Result)
   
  End Function

• procédure événementielle à placer dans la feuille en question
  

  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
  Private Sub Worksheet_Change(ByVal Target As Range)
  Dim plage As Range, cel As Range, DerL As Integer
   
  'en supposant que la fonction s'inscrit en colonne D
  DerL = Range("D" & Rows.Count).End(xlUp).Row
  Set plage = Range("D1:D" & DerL)
   
  For Each cel In plage
      Select Case cel.Value
          Case Range("Mauvais").Value: cel.Font.ColorIndex = Range("Mauvais").Font.ColorIndex
          Case Range("Meme").Value: cel.Font.ColorIndex = Range("Meme").Font.ColorIndex
          Case Range("Bon"): cel.Font.ColorIndex = Range("Bon").Font.ColorIndex
      End Select
  Next
  End Sub

Autre solution possible, utiliser une simple mise en forme conditionnelle pour appliquer la couleur.
.