Excel

Bonjour je voudrais savoir s'il est possible dans un tableau excel de colorer un cercle en fonction d'une case par exemple si j'ai V dans la case colorer le cercle en rouge si j'ai P colorer le cercle en bleu. j'ai dessiné ce cercle avec la barre dessin en sélectionnant la forme dans celles proposées.

Merci de votre réponse

bonne journée

François

3 réponses

  1. un grand merci mais je ne maitrise pas du tout les macros et j'ai dans mon tableau deux ronds par ligne ce qui doit compliquer la résolution. Si vous le pouvez dites moi si je peux définir le motif (bleu rouge ou jaune) d'une zone de quatre cases contenant des chiffres en fonction d'une autre zone qui elle peut contenir soit un V un P ou un E. Pour ma part je me sers de la mise en forme conditionnelle que pour une case et en fonction de cette case. or mon problème est lui pour une zone en fonction d'une case hors de cette zonne de quatre. Si vous le voulez je peux vous envoyer les tableaux que je tiens pour que vous matérialisiez mieux pour cela j'ai besoin de votre mail.
    Si non un grand merci tout de même vous êtes vraiment sympa
    François
    0
  2. Bonjour,

    On peut aussi utiliser la mise en forme conditionnelle qui propose des jeux d'icones.

    Voir exemple :

    https://www.cjoint.com/c/EJgizoaEDbk

    C'est un peu tiré par les cheveux mais cela fonctionne.

    A+

    pépé
    0
    1. Bonjour,

      En passant par une macro liée à ta feuille, et s'il n'y a qu'un cercle :
      Private Sub Worksheet_Change(ByVal Target As Range)
          If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
              For Each s In ActiveSheet.Shapes
                  s.Select
                  Selection.ShapeRange.Fill.Visible = msoFalse
                  With Selection.ShapeRange.Line
                      .Visible = msoTrue
                      If Range("A1").Value = "V" Then
                          .ForeColor.RGB = RGB(255, 0, 0)
                      Else
                          .ForeColor.RGB = RGB(0, 0, 255)
                      End If
                      .Transparency = 0
                  End With
              Next s
          End If
      End Sub


      A+
      0