[VBA]fonction pour copier valeur ET format

Version imprimable

1 pièce(s) jointe(s)

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:

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

06/08/2008, 08h43
ucfoutu

Bonjour,

Code:

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

Code:

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

Code:

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

Rien de choquant ?
06/08/2008, 08h47
daniel_gre

NON, rien de choquant...

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

par avance merci

Daniel.
06/08/2008, 09h47
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 ...;)
06/08/2008, 10h03
daniel_gre

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

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

par avance merci

Bonjour,

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

fonction à placer dans un module

Code:

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:

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.
.