reconnaissance de couleur

[Pascal]

Bonjour,
Peut on m’aider sur le problème suivant : je désire, en utilisant VBA, reconnaître la couleur de fond de la cellule du dessus pour ensuite changer la couleur de la cellule active en fonction de celle-ci.
Merci d’avance pour votre aide précieuse

 

[Pascal76]

Bonjour

Entre Pascal un coup de main

voici une macro quit'affecte à la cellule active la couleur de fond de lacellule au dessus

Sub toto()
ActiveCell.Interior.ColorIndex = ActiveCell.Offset(-1, 0).Interior.ColorIndex
End Sub

Bon courage

Pascal