XL 2016 Condition de "format de cellule" dans une formule

[Myaou]

Bonjour à tous,
La possibilité de faire une mise en forme conditionnelle selon une formule existe sur Excel, mais le contraire est-il possible? Je m'explique.
Je voudrais pouvoir appliquer une fonction "SI" selon le format de ma cellule.
Exemple : si ma cellule est jaune, la formule est "X", et si ma cellule est rouge, la formule est "Y".
Est-ce que cette possibilité existe?
Merci d'avance de vos retour.

 

[fanfan38]

Bonjour
C'est faisable avec une macro

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Interior.ColorIndex = 6 Then
   Target.Value = "X"
 ElseIf Target.Interior.ColorIndex = 3 Then
   Target.Value = "Y"
 End If
End Sub

A+ François

 

[JHA]

Bonjour à tous,
Bonjour Fanfan38 🙂

Une solution avec lire.cellule()

JHA

 

[Myaou]

Merci beaucoup pour vos réponses.
Malheureusement, je suis encore assez novice sur Excel (comme vous pouvez vous en douter), du coup pour moi les macros ne sont pas encore abordables, et je tâtonne sur la gestion des noms de cellule.
Je vous met en pièce jointe mon fichier pour que ce soit plus clair si besoin.
En fait, j'ai besoin de faire un planning de prestation. Selon le jour (semaine, dimanche ou jour férié/chômé), il y a un nombre différent de prestation à réaliser. J'ai donc créer un planning avec des couleur différentes pour chaque groupe de jour. Je voudrais que selon la couleur de la cellule, le bon nombre j'affiche dans la cellule correspondante.
Merci de votre aide.
Émilie.

 

[job75]

Bonjour Myaou, fanfan38, JHA,

Voyez le fichier joint et cette macro (clic droit sur l'onglet et Visualiser le code) :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim coul, v, P As Range, tablo, i&, j%, couleur%, k As Byte
coul = Array(xlNone, 6, 44) 'liste des codes couleurs
v = Array([A8], [A10], [A12]) 'liste des valeurs
Set P = [A1:Y37]
tablo = P.Formula 'matrice, plus rapide
For i = 7 To UBound(tablo)
    For j = 3 To UBound(tablo, 2) Step 2
        couleur = P(i, j).Interior.ColorIndex
        tablo(i, j) = ""
        For k = 0 To UBound(coul)
            If coul(k) = couleur Then tablo(i, j) = v(k): Exit For
Next k, j, i
P = tablo 'restitution
End Sub

Elle s'exécute automatiquement quand on sélectionne une cellule quelconque.

A+