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

TooFatBoy

XLDnaute Barbatruc

• 7 Octobre 2024

• #2

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.

VB:

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

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 7 Octobre 2024

• #3

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 7 Octobre 2024

• #4

guy72 à dit:

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

Cliquez pour agrandir...

Oui, tu as raison. Désolé.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 7 Octobre 2024

• #5

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

 

Pièces jointes

• Bouees_(TFB-001).xlsm

  195.6 KB · Affichages: 5

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 7 Octobre 2024

• #6

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 7 Octobre 2024

• #7

guy72 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 8 Octobre 2024

• #8

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

 

Vote positif 0 Vote négatif

guy72

XLDnaute Impliqué

• 8 Octobre 2024

• #9

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

 

Dernière édition: 10 Octobre 2024

Vote positif 0 Vote négatif