Excel: le réglage de la couleur d'une cellule à l'autre

Comment puis-je déterminer la couleur d'une cellule égale à une autre, par exemple:
A4 est alors C2 est de couleur cyan cyan.
A2 est alors C2 couleur orange est orange.
Excel: le réglage de la couleur d'une cellule à l'autre

  • Vous ne pouvez pas modifier la couleur de la cellule avec une formule. Vous pouvez obtenir la couleur d'une autre cellule en écrivant votre propre fonction VBA mais si vous voulez changer la couleur, vous devez utiliser une macro qui ne peut pas être appelée comme une fonction. Tous une fonction peut faire est de retourner une valeur, il ne peut pas changer de feuille de calcul des propriétés telles que la mise en forme.
InformationsquelleAutor Regis da Silva | 2012-11-13
  1. 1

    Il n'y a pas d'excel-formule pour vous obtenir la couleur d'une cellule, ni l'un, pour définir la couleur d'un autre.

    Cependant, vous pouvez faire une fonction permettant d'obtenir la couleur d'une cellule spécifique - ou, comme dans mon exemple, la couleur de l'appel de fonction cellulaire:

    Public Function GetColor()
    Dim rng As Range

    If TypeName(Application.Caller) = "Range" Then
        Set rng = Application.Caller
    End If
    GetColor = rng.Cells.Interior.Color
End Function

    Maintenant, vous pourriez penser, ok puis-je modifier cela, il suffit de DÉFINIR la couleur aussi. Mais personne ne fonctionne pas de cette façon. Pour changer de cellules de couleur, que vous auriez à utiliser Worksheet_Change de l'événement et de la configuration de chaque cellule à la valeur de type long à l'intérieur d'eux comme leur couleur.

    Target.Interior.Color = Target.Value

    Serait la ligne pour que, lors de l'utilisation de Worksheet_Change.

    Vous pouvez bien sûr utiliser ColorIndex aussi bien - il suffit de s'adapter en conséquence.

    InformationsquelleAutor Jook
  2. 0

    voici un code C#, peut-être il pourrait être utile pour vous:

    xlSheet.Range["A10", "A10"].Interior.Color = ColorTranslator.ToOle(System.Drawing.Color.Cyan);
xlSheet.Range["C10", "C10"].Interior.Color = xlSheet.Range["A10", "A10"].Interior.Color;
    InformationsquelleAutor Sylca