Copie automatiquement la couleur d'une cellule à l'autre - EXCEL VBA

J'ai cellule 017, la valeur et la couleur de cette cellule est en train de changer constamment, en raison d'une formule et de la mise en forme conditionnelle.

Cellule O16 en constante évolution en raison d'une formule trop mais la formule et leurs valeurs sont différentes de la cellule 017.

Ce que je veux, c'est que la cellule O16 contient la même couleur de la cellule O17 automatiquement une fois que la valeur de la cellule 017 a changé.

Il devrait y avoir une solution en VBA. J'espère votre aide.

EDIT:

Utilisateur simoco a trouvé une solution pour Excel 2010 et plus tard:

Private Sub Worksheet_Calculate()
    Range("O16").Interior.Color = Range("O17").DisplayFormat.Interior.Color
End Sub

Malheureusement, je utiliser Excel 2007, il Est là et équivalent à celui de code en 2007?.

InformationsquelleAutor CreamStat | 2014-03-06
  1. 1

    Ne fonctionne qu'avec Excel 2010 et plus tard

    Si votre cellule O17 peut être changé seulement par la formule, utilisez le code suivant (ce code doit être utilisé dans Sheet module):

    Private Sub Worksheet_Calculate()
    Range("O16").Interior.Color = Range("O17").DisplayFormat.Interior.Color
End Sub

    Sinon, ajoutez également Worksheet_Change événement avec le même code.

    • Remarque - DisplayFormat est Excel 2010+ seulement...
    • merci, je vais parler de ce
    • J'ai essayé ton code mais il y a un message d'erreur qui devrait être la raison de mon problème. J'utilise Excel 2007 en espagnol, dit le message:" Erreur "4838" a produit, en temps d'exécution. L'objet n'accepte pas cette propriété ou cette méthode".
    • comme Tim mentionné, DisplayFormat a été introduite uniquement dans Excel 2010
    • Est-il une commande équivalente à celle pour Excel 2007?
    • Je vais essayer de la trouver, mais pas sûr.. pourquoi ne pas simplement ajouter CF règles pour O16 même que pour ensuite o17?
    • Les valeurs de O16 sont différents. Donc, la couleur sera différente pour les CF règles.
    • laissez-nous continuer cette discussion dans le chat

    InformationsquelleAutor Dmitry Pavliv