XL 2010 Changer la couleur des bouées suivant les données [Résolu]

[guy72]

Bonjour

Je souhaiterais pouvoir changer la couleur des bouées suivants la valeur de la zone de texte qui se trouve au centre de la bouée.
Voir le fichier exemple joint
Couleur bouées

 

[TooFatBoy]

Bonjour,

Là, je me suis basé sur la couleur d'une bouée prise au hasard pour la couleur source, mais je pense qu'il faudrait faire quatre tableaux avec les valeurs planchers et les couleurs correspondantes, et comparer A2, A5, A8 et A12 avec ces valeurs dans le tableau ad hoc pour déterminer la couleur à utiliser.

Sub test()
    Call ChangerCouleur("Bouée T°", "Bouée 34")
End Sub

Sub ChangerCouleur(Cible As String, Source As String)
    With ActiveSheet.Shapes
        .Range(Array(Cible)).Fill.ForeColor.RGB = .Range(Array(Source)).Fill.ForeColor.RGB
    End With
End Sub

 

[guy72]

J'avoue que je ne vois pas ce que je peux faire avec ça ....

 

[TooFatBoy]

J'avoue que je ne vois pas ce que je peux faire avec ça ....

Oui, tu as raison. Désolé.

 

[TooFatBoy]

J'ai tenté un truc en pièce jointe, mais seulement pour la température.

 

[guy72]

Ok, ça devrait le faire, mais j'ai un problème, c'est qu'avec la flèche retour, je ne peux pas revenir en arrière

 

[TooFatBoy]

Ok, ça devrait le faire, mais j'ai un problème, c'est qu'avec la flèche retour, je ne peux pas revenir en arrière

Avec les macros, point de retour en arrière. En tout cas, je ne sais pas faire.

 

[guy72]

Bonjour
Merci pour tout
Je vais essayer de faire le reste.

 

[guy72]

Parfait, merci encore.
Par contre, j'ai un problème, ça ne fonctionne pas si la cellule d'origine contient une formule.