Modifier la couleur d'une ligne par rapport à une valeur

Toujours à tous,

j'ai un petit soucis,

je souhaite dessiner un trait avec l'outil : insertion->formes->lignes et lui affecter une couleur différente en fonction de la valeur de la case A1 (cette ligne s'appelle : connecteur droit A1.

Exemple :

Si A1=1 la couleur du trait devient vert

si A1=2 la couleur du trait devient orange

si A1=3 la couleur du trait devient rouge

Merci à tous de m'aiguiller.

A bientôt

Bouilles

Bonjour

Tout est là

https://www.excel-pratique.com/fr/cours/excel_mises_en_forme_conditionnelles.php

Cordialement

bouilles a écrit :

Toujours à tous,

j'ai un petit soucis,

je souhaite dessiner un trait avec l'outil : insertion->formes->lignes et lui affecter une couleur différente en fonction de la valeur de la case A1 (cette ligne s'appelle : connecteur droit A1.

Exemple :

Si A1=1 la couleur du trait devient vert

si A1=2 la couleur du trait devient orange

si A1=3 la couleur du trait devient rouge

Merci à tous de m'aiguiller.

A bientôt

Bouilles

Merci beaucoup ,mais mon problème se situe sur un trait dessiné avec la barre outil :

Bonsoir

Avec une macro à placer dans le module de la feuille

Clic droit sur l'onglet de la feuille --->Visualiser le code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Couleur As Integer

  If Not Intersect(Range("A1"), Target) Is Nothing And Target.Count = 1 Then
    Select Case Target
      Case 1      ' Vert
        Couleur = 17
      Case 2      ' Orange
        Couleur = 53
      Case 3      ' Rouge
        Couleur = 10
      Case Else   ' Automatique
        Couleur = 64
    End Select
    ActiveSheet.Shapes("connecteur droit A1").Line.ForeColor.SchemeColor = Couleur
  End If
End Sub

Merci beaucoup ça marche.

Et si je souhaite ajouter un connecteur droit A2 qui change avec la case A2?

Je sais j'suis un peu chèvre mais vous remercie de votre aide.

Bonjour

Remplaces ta macro par celle-ci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Couleur As Integer
Dim Sh As Shape

  If Not Intersect(Range("A1:A2"), Target) Is Nothing And Target.Count = 1 Then
    Set Sh = ActiveSheet.Shapes("connecteur droit " & Target.Address(rowabsolute:=False, columnabsolute:=False))
    Select Case Target
      Case 1      ' Vert
       Couleur = 17
      Case 2      ' Orange
       Couleur = 53
      Case 3      ' Rouge
       Couleur = 10
      Case Else   ' Automatique
       Couleur = 64
    End Select
    Sh.Line.ForeColor.SchemeColor = Couleur
  End If
End Sub

Bonjour,

merci mais je n'arrive pas à le faire fonctionner :

erreur : Set Sh = ActiveSheet.Shapes("connecteur droit " & Target.Address(rowabsolute:=False, columnabsolute:=False))

Mon but est d'avoir la case A1 qui gère la couleur du connecteur droit 1 suivant le chiffre que l'on lui met (1.2ou3)

la case A2 qui gère la couleur du connecteur droit 2 suivant le chiffre que l'on lui met (1.2ou3)

la case A3 qui gère la couleur du connecteur droit 3 suivant le chiffre que l'on lui met (1.2ou3)

...........................!!

Merci encore pour votre aide.

Bouilles

Bonjour

Que dire ? : Le fichier que j'avais fait fonctionne

Que faire ?

Tu fournis ton fichier

Parce que "erreur" c'est un peu succinct comme explication

Merci

ci joint le fichier.

En plus si je peux me permettre de t’embêter as tu un fichier qui donne les numéros de couleur?

merci

Bonjour

Attention à ce que tu marques

bouilles a écrit :

Et si je souhaite ajouter un connecteur droit A2 qui change avec la case A2?

Alors que tes lignes s'appellent connecteur droit 1, connecteur droit 2 etc...

Je n'ai pas (plus) la correspondance entre les couleurs et leur numéro

Dans la macro une autre méthode pour colorier la forme

Pour avoir la bonne couleur il faut que tu fasses varier les 3 composantes Rouge,Verte et Bleue (R V B en Français, et R G B en Anglais)

Bonsoir, excuse moi pour cette réponse tardive mais ils ont coupé le tel dans ma rue aujourd'hui

merci pour ta réponse, ça marche très fort.

Un p'tit dernier service et connaissant maintenant tes capacités, je pense que tu vas pouvoir le résoudre.

Donc dans la même configuration, je souhaite mettre dans la case A1 ---> =K1 sachant que K1 et la somme de I1+I2.

En gros lorsque que l'on met autre chose qu'un chiffre que l'on tappe, ca ne fonctionne pas.

Je te joint le fichier exemple.

Merci encore pour ton aide.

Bouilles

Merci çà fonctionne à merveille.

Juste un petit truc et je ne t’embête plus :

Je souhaite que dans les cellules A1 A2 et A3 changent en fonction du résultat de la cellule K1 K2 et K3.

Je te joint le fichier.

Encore merci

Bouilles

bonjour

STP Banzai64 as tu une solution à mon dernier souci?

Ce qui m'enlèverai une bonne épine du pied.

Merci

Bonsoir

Remplaces la macro actuelle par celle-ci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Couleur As Long
Dim Sh As Shape

  If Not Intersect(Range("I1:J3"), Target) Is Nothing And Target.Count = 1 Then
    Set Sh = ActiveSheet.Shapes("connecteur droit " & Target.Row)
    Select Case Range("A" & Target.Row)
      Case 1      ' Vert
        Couleur = RGB(0, 255, 0)
      Case 2      ' Orange
        Couleur = RGB(200, 0, 0)
      Case 3      ' Rouge
        Couleur = RGB(255, 0, 0)
      Case Else   ' Automatique
        Couleur = RGB(255, 255, 255)
    End Select
    Sh.Line.ForeColor.RGB = Couleur
  End If
End Sub

Bonjour

La palette des 56 couleurs de base Excel

Cordialement

Bonsoir

En cherchant dans mes tiroirs j'avais ça

Bravo, merci à vous vous etes des champions voir des EXCELLENTS.

Dernière question :

Je souhaite faire un bilan mensuel sur les pannes en nombre de jour.

En imaginant que mes connecteurs représentent du matériel, j'ai crée un tableau récapitulatif qui me donnera le nombre de jour ou le matériel était en panne dans le mois. (résultat 3 couleur rouge.

Merci à vous

Bouilles

Ci joint le fichier.

Bonjour

[b]Expliques un peu plus, fais des exemples

[/b]

bouilles a écrit :

Je souhaite faire un bilan mensuel sur les pannes en nombre de jour.

Où sont les dates ?

Salut Banzai

les dates sont dans le fichier sur le tableau Janvier Février.........

Bonjour

Il n'y a pas de date ou alors je n'ai pas le bon fichier

Dans le tableau il n'y a que le nom des mois et un ? (point d'interrogation) en dessous de janvier

Que veux tu noter dans ce tableau ?

Tu parles du calcul du nombre de jours, pour cela il faut des dates

Comment tu sais qu'il faut comptabiliser A1,A2 ou A3 dans telle case ?

Chaque fois qu'il y a un changement dans I1:J3 ?

Je n'y comprends rien de rien

Je t'ai dis

Banzai64 a écrit :

Expliques un peu plus, fais des exemples

Et expliques le pourquoi de tes résultats