associer couleur cellule d'autres cellules

[28gaëlle]

Bonjour,

J'aimerais si c'est possible une macro qui me permette si la cellule montant est d'une certaine couleur que la m^me couleur s'affiche pour la catégorie et la classe. Merci encore si vous avez la solution je débute en macro et je n'y arrive pas trop bien.

Bonne journée

gaëlle

 

[BOISGONTIER]

Re : associer couleur cellule d'autres cellules

Bonjour,

Dim ancienAdr
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If ancienAdr <> "" Then
    For Each c In Range(ancienAdr)
        coul = c.Interior.ColorIndex
        Cells(c.Row, 2).Interior.ColorIndex = coul
        Cells(c.Row, 3).Interior.ColorIndex = coul
    Next c
    ancienAdr = ""
  End If
  If Target.Column = 4 Then
     ancienAdr = Target.Address
  End If
End Sub

JB
Formation Excel VBA JB

 

[28gaëlle]

Re : associer couleur cellule d'autres cellules

merci pour cette réponse mais quand j'insère la formule dans un nouveau module rien ne se passe.
Est ce qu'il serait possible que je vois la macro pas à pas dans votre exemple. Merci d'avance

Gaëlle

 

[BOISGONTIER]

Re : associer couleur cellule d'autres cellules

Le code est dans la feuille:

-Clic-Droit sur le nom d'onglet
-Visualiser le code

JB

 

[28gaëlle]

Re : associer couleur cellule d'autres cellules

Dim ancienAdr

que signifie cette jolie formule? Il parait que qu'elle est mal placé c'est à dire pas entre Sub et end

 

[28gaëlle]

Re : associer couleur cellule d'autres cellules

autre question est ce que j'intègre la formule que dans la code de al feuille?

encore merci

 

[BOISGONTIER]

Re : associer couleur cellule d'autres cellules

Tout le code est placé dans la feuille:

Dim ancienAdr

Elle est bien placée. Elle permet de conserver sa valeur lors des différents applels.

JB