changer couleur

[dhiouf]

Bonjour à toute et à tous
est-il possible de changer la couleur d'une cellule selon la selection d'une autre cellule
Exemple: si la cellule B1 est selectionner, la couleur de A1 rouge
Merci d'avance

 

[tototiti2008]

Re : changer couleur

Bonjour dhiouf,

oui, par macro, sur code évènementiel.
un exemple :

Edit : moi j'ai fait le contraire, il faut sélectionner A1 pour que B1 change de couleur 🙂
Bonjour Catrice

 

[Catrice]

Re : changer couleur

Bonjour,

C'est possible par macro.
voir l'exemple joint

Edit : bonjour tototiti

 

[dhiouf]

Re : changer couleur

Tototiti2008, Catrice, merci beaucoup

 

[job75]

Re : changer couleur

Bonjour à tous,

Retour de déjeuner, j'avais commencé la macro suivante qui concerne toute sélection en colonne B. La macro est à placer dans le code de la feuille.

Private Sub Worksheet_SelectionChange(ByVal Cel As Range)
On Error Resume Next
[ref].Interior.ColorIndex = xlNone
If Not Intersect(ActiveCell, [B:B]) Is Nothing Then
Set Cel = ActiveCell.Offset(0, -1)
Cel.Interior.ColorIndex = 36 [COLOR="red"]'Définit le code couleur en colonne A[/COLOR]
ActiveWorkbook.Names.Add Name:="ref", RefersToR1C1:="=Feuil1!R" & Cel.Row & "C" & Cel.Column
End If
End Sub

A+