Excel: détecter la couleur de la cellule

triwix -  
Bonjour,

Je ne trouve pas réponse à mon interrogation sur le forum.

Sur excel 2003 comment traduire la formule =si(A1 est de couleur rouge;A2;A3)

En fait ce que je veux faire c'est l'inverse d'une mise en forme conditionnelle, j'ai une macro qui colore la cellule en rouge quand je clique une fois dessus, et je voudrait donc afficher une information dans une autre cellule quand celle-ci est colorée ou non.

Je ne sais pas si je me fais bien comprendre

Merci de votre aide

A+

--
Patience est mère de surretée
Configuration: Windows XP Internet Explorer 6.0

3 réponses

  1. triwix Auteur
    Ok j'ai inclu ce code à ma macro pour colorer la cellule ca marche impeccable.

    le voici:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Interior.ColorIndex = 0 Then ActiveCell.Interior.ColorIndex = 3 Else ActiveCell.Interior.ColorIndex = 3
    If Range("A1").Interior.ColorIndex = 3 Then
    Range("J1") = 1
    Cancel = True
    End If
    End Sub

    Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Target, Range("A:L")) Is Nothing Then Exit Sub
    If ActiveCell.Interior.ColorIndex = xlColorIndexNone Then ActiveCell.Interior.ColorIndex = 3 Else ActiveCell.Interior.ColorIndex = xlColorIndexNone
    Cancel = True
    End Sub

    Par contre j'ai encore 1 question: Comment effacer le cellule J1 quand A1 redevient blanche dans ma seconde macro?

    Merci
    1. michel_m Contributeur
      bonjour
      if range("A1").interior.colorindex=3 then
      range("tonautrecellule")=range("A2")
      else
      range("tonautrecellule")=range("A3")
      end if
      1. triwix Auteur
        Je suis vraiment mauvais, je doit le mettre comment? j'ai essayé mais ca marche pas:

        Sub coul()
        If Range("A" & 1).Font.Color = vbRed Then
        Range("j" & 1) = 1
        End If
        End Sub

        ou encore:

        Private Sub Worksheet_Activate()
        If Range("A" & 1).Font.Color = vbRed Then
        Range("j" & 1) = 1
        End If
        End Sub

        Même résultat = rien

        Merci de votre patience