Discussion :

[XceSs]

Bonsoir, je travaille sur une fonction qui change la couleur du fond de la cellule en fonction du jour de la semaine par rapport à une date et un quota à respecter. Si la valeur de la cellule est différent du quota le fond de la cellule devient rouge.

Le problème c'est que je n'arrive pas à changer le fond de la cellule mais seulement la police avec

Code :

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

Selection.Font.ColorIndex = 3

avec

Code :

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

Selection.Interior.ColorIndex = 3

cela me met #VALEUR! ds la cellule

Plage = Cellule avec la date
Nombre = Valeur de la cellule
Quota =

Code :

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

If Nombre <> "2" Then

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Option Explicit
 
Function JourDate(Plage As Range, Nombre As String)
    Application.Volatile True
    'numéro de jour
    Dim numerojour As Date
    Dim nj As String
    numerojour = Plage
    nj = Format(numerojour, "DDDD")
    If nj = "lundi" Then
     If Nombre <> "2" Then 'Quota
      JourDate = Nombre
      Selection.Font.ColorIndex = 3
      Else
      JourDate = Nombre
      Selection.Font.ColorIndex = 1
     End If
    ElseIf nj = "mardi" Then
     If Nombre <> "2" Then
      JourDate = Nombre
      Selection.Font.ColorIndex = 3
      Else
      JourDate = Nombre
      Selection.Font.ColorIndex = 1
     End If
    ElseIf nj = "mercredi" Then
     If Nombre <> "2" Then
      JourDate = Nombre
      Selection.Font.ColorIndex = 3
      Else
      JourDate = Nombre
      Selection.Font.ColorIndex = 1
     End If
    ElseIf nj = "jeudi" Then
     If Nombre <> "2" Then
      JourDate = Nombre
      Selection.Font.ColorIndex = 3
      Else
      JourDate = Nombre
      Selection.Font.ColorIndex = 1
     End If
    ElseIf nj = "vendredi" Then
     If Nombre <> "2" Then
      JourDate = Nombre
      Selection.Font.ColorIndex = 3
      Else
      JourDate = Nombre
      Selection.Font.ColorIndex = 1
     End If
    ElseIf nj = "samedi" Then
     If Nombre <> "2" Then
      JourDate = Nombre
      Selection.Font.ColorIndex = 3
      Else
      JourDate = Nombre
      Selection.Font.ColorIndex = 1
     End If
    ElseIf nj = "dimanche" Then
     If Nombre <> "2" Then
      JourDate = Nombre
      Selection.Font.ColorIndex = 3
      Else
      JourDate = Nombre
      Selection.Font.ColorIndex = 1
     End If
    End If
 
End Function

Merci de votre aide

[casefayere]

Bonsoir,
et si tu remplaces "Selection" par la cellule concernée, exemple pour A :

Code :

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

Sheets("toto").Range("A1").Interior.Colorindex = 1

[XceSs]

il y aurait il un moyen d'extraire la cellule dans laquelle est la fonction ?

genre :

JourDate(aujourdhui();2;celluleoùestcettefonction)

Merci

[Pierre Fauconnier]

Salut.

Le plus simple ne serait-il pas d'utiliser la mise en forme conditionnelle?

[XceSs]

J'ai pensé à ça mais par rapport à ce que je veux faire ça fonctionnera pas car je dois appliquer les MFC sur tous les jours de l'année par rapport à 10 codes horaires de travail en fonction des week end, jours fériés etc..., et faudra modifier tous les ans les MFC :s

[Pierre Fauconnier]

Je doute qu'il n'y ait pas moyen par MFC... Cela dépend de la conception du classeur. Tu peux mettre des formules conditionnelles dans tes MFC, ce qui rend celles-ci particulièrement puissantes, notamment pour des MFC agissant sur des cellules en fonction de valeurs d'autres cellules.

Dans ma signature, tu trouveras un lien vers une vidéo qui expose la façon de travailler avec des formules dans des MFC, sur des feuilles différentes.