Discussion :

[gueff37]

bonjour,

pour commencer ,je vous remercie de l'existence de votre site qui me permet régulièrement de résoudre mes nombreux problèmes sous Excel.

Je vais essayer d'être clair.

Mon classeur comprend plusieurs onglet dont 1 qui représente un schéma ("plan process") avec des formes auto(flèches pleines)

Dans un autre onglet ("110") une formule me permet en faisant appel à une macro de changer sa couleur d'onglet et de changer la couleur d'une forme auto dans l'autre feuille.

Mon problème est que lorsque je change une des valeurs dans la feuille "plan process" la forme auto et l'onglet change de couleur : cela fonctionne dans ce sens mais lorsque je change une valeur dans la feuille "110" où se trouve la formule ,l'onglet change de couleur mais pas la forme auto.

je joins mon fichier en espérant une solution de votre part;merci

entretien preventif process.xls

[Philippe Tulliez]

Bonsoir,
Ton problème vient du fait que tu fais des Select dans ton code. Jamais d'écriture dans une fonction qui doit renvoyer un résultat dans une cellule
Remplace

Code :

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

1
2
3
 
Sheets("110").Select
 ActiveWorkbook.Sheets("110").Tab.ColorIndex = 3

Par

Code :

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

 ThisWorkbook.Sheets("110").Tab.ColorIndex = 3

J'ai remplacé ton ActiveWorkbook par ThisWorkbook parce-qu'il me semblait que c'est cela que tu voulais étant donné le nom de feuille mais si ce n'est pas le cas, adapte le.
Revois ton code également pour le reste de ta fonction en enlevant les Select
Je n'ai pas le temps pour l'instant pour tout examiner.

[Philippe Tulliez]

Bonsoir,
Voici ton code rectifié que j'ai placé dans le même module.

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
Public Function couleur_onglet_rouge()
 With ThisWorkbook
 .Sheets("110").Tab.ColorIndex = 3 ' Onglet
  ' Couleur fleche
  With .Sheets("plan process").Shapes("Group 97")
    With .Fill
    .Visible = msoTrue
    .Solid
    .ForeColor.SchemeColor = 10
    .Transparency = 0#
    End With
    With .Line
    .Weight = 0.75
    .DashStyle = msoLineSolid
    .Style = msoLineSingle
    .ForeColor.SchemeColor = 64
    .BackColor.RGB = RGB(255, 255, 255)
    End With
  End With
 End With
End Function
Public Function couleur_onglet_cyan()
 With ThisWorkbook
  .Sheets("110").Tab.ColorIndex = 28 ' Onglet
  ' Fleche schema
  With .Sheets("plan process").Shapes("Group 97")
   With .Fill
   .Visible = msoTrue
   .Solid
   .ForeColor.SchemeColor = 35
   .Transparency = 0#
   End With
   With .Line
   .Weight = 0.75
   .DashStyle = msoLineSolid
   .Style = msoLineSingle
   .Transparency = 0#
   .Visible = msoTrue
   .ForeColor.SchemeColor = 64
   .BackColor.RGB = RGB(255, 255, 255)
   End With
  End With
 End With
End Function

[gueff37]

Corona,

Merci pour ton code qui fonctionne à merveille

Cela va me permettre d'avancer dans mon projet

encore merci

[Philippe Tulliez]

Bonsoir et merci pour le retour