Transformer une couleur en texte

Bonjour,

Je souhaiterais passer une cellule avec une couleur de remplissage en une cellule avec du texte.

Est-ce possible sur excel ou en réalisant une macro?

Merci de votre aide.

Cordialement

Rhum

Bonsoir et bienvenue,

Si les couleurs sont dans la palette des 56 couleurs de base, une petite macro peut faire çà.

il faudrait faire un petit tableau (légende)

Envoie ta feuille avec quelques lignes seulement

à te relire

Claude.

En fait mon objectif final est le suivant:

A la base,J'ai un planning (fait en remplissant les cellules)

- suivant les lignes coloriées, et sur une autre feuille, si la cellule est coloriée je lance un calcul.

Par exemple:

(voir fichier joint)l

Lorsque 2 cellules sont coloriées au mois de Janvier sur la ligne "Installation". Je lance sur l'autre page "2 x prix unitaire" pour le poste "Bungalow".

Et ça pour toutes les lignes par la suite.

En espérant avoir été clair, mais c'est pas si simple m'expliquer! lol

Bonjour à tous,

Une approche,

Code à placer dans le VBE de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("Tablo")) Is Nothing Then
''Macros par Claude Dubois pour "Rhum" Excel-Pratique le 10 Déc 09
Dim Lg As Byte, NbL%, Nb&, T
Application.ScreenUpdating = False

    With Selection
                NbL = .Rows.Count
                Lg = .Row
                Nb = .Count
                T = Cells(Lg, 1)
        If NbL > 1 Then Exit Sub    'si plusieurs lignes
        If Target.Count > 20 Then   'efface
            Range(Cells(Lg, 2), Cells(Lg, 25)).Interior.ColorIndex = xlNone

                With Sheets("Bilan")
                    .Cells(Lg, 1).ClearContents
                    .Cells(Lg, 2).ClearContents
                End With
        Else
                Range(Cells(Lg, 2), Cells(Lg, 25)).Interior.ColorIndex = xlNone
                .Interior.ColorIndex = 1 'noir

            With Sheets("Bilan")
                .Cells(Lg, 1) = T
                .Cells(Lg, 2) = Nb
            End With
        End If
    End With
Range("a1").Activate
End If
End Sub

Amicalement

Claude.

Alors LA! Chapeau! Avec mon œil novice ça me parait un miracle. lol

Par contre, est-ce possible de ne prendre en compte que les cases dans la colonnes janvier (Si 3 cases coloriées en Janvier et 4 en février).

Et également de pouvoir faire 2 lignes en noir sur le meme poste (ex: 3 en Janvier et 2 en Mars).

Je vous remercie encore pour votre réponse précédente et je vous remercie déjà pour la prochaine!

cordialement,

Rhum

Bonsoir,

Sur ce principe, non !

Si tu veux continuer, reviens avec un fichier + étoffé, le mieux serait le fichier réel.

On verra pour une autre solution

Amicalement

Claude.

Ok je travaille sur la version officielle. Je repasserais une fois celle-ci achevée (d'ici une a deux semaine je pense).

Je te dis a bientot et bonne continuation.

Cordialement,

Romain