Test sur la couleur de fond d'une cellule

Bonjour, je souhaiterais créer la formule suivante :

Si la cellule A1 est coloriée (couleur de fond), alors la cellule A2 reprend le contenu (le texte, pas la couleur de fond) de la cellule A1, si non, la cellule A2 indique "erreur".

Merci d'avance.

Bonjour,

j'y parviens en VBA mais je ne suis pas sûr que ce soit ta demande.

Sub valeur_couleur()
If Cells(1, 1).Interior.Color <> RGB(255, 255, 255) Then
Cells(2, 1) = Cells(1, 1).Value
Else: Cells(2, 1).Value = "Erreur"

End If

End Sub

Il y a un pack de nouvelles formules sur le forum à installer sur Excel dans lequel il y a la gestion des couleurs je crois mais j'ai pas testé.

Olivier

Merci bcp.

Mais comment dois-je insérer cela à ma feuille excel ?

Mille mercis

Onglet "Développeur" puis Visual Basic. Sur la nouvelle fenêtre clic droit sur ta feuille puis "Insertion module".

Tu colles le code.

J'imagine cependant que ta demande ne se réduit pas qu'à la cellule A1? Auquel cas il faudra sûrement insérer une boucle.

Oliv

Voilà, j'ai collé le code mais rien ne se passe !

Bonjour

Pourrais-tu fournir le fichier ? Merci.

Je viens de tester le code et il fonctionne correctement.

Dans le fichier joint, change la couleur de fond et cliques sur le bouton "Test"

Bonjour

Le code proposé ne fonctionne que si vous exécuter la macro via un bouton ou via le menu excel

A la lecture du fil et comme le dit PapouMac le code fonctionne mais essayez plutôt ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
    If Cells(1, 1).Interior.Color <> RGB(255, 255, 255) Then
        Cells(2, 1) = Cells(1, 1).Value
    Else: Cells(2, 1).Value = "Erreur"
    End If
End If
End Sub

Pour mettre le code, faites comme suit :

• Click droite sur l'onglet de la feuille concernée
• Choisir l'option "visualiser le code"
• Coller le code ci-dessus dans la fenêtre
• Enregistrer votre fichier puis change la valeur de A1

Cordialement