Colorier une cellule

Dans la barre d'outils "mise en forme", il y a un outil appelé "couleur de remplissage". La petite flèche qui descend permet de choisir la couleur.

C'est ce qu'il te fallait?

non ça je connais bien
moi ce que je veux c'est en selectionant la cellule C9 (dans mon exemple) je voudrais en cliquant sur une cellule de ma palette B4:H4
E4 par exemple et que C9 se mette en jaune automatiquement, peut etre impossible

Bonjour,

Code a mettre dans VBA de la feuil1

'Declaration variable public
Dim Cel_Select

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'cellules selectionnees B4:H4 Couleur choisi
'cellule B8:H18 cellules a colorier
If Not Application.Intersect(Target, Range("B8:H18")) Is Nothing Then
'Coordonnees de la cellule a colorier
Cel_Select = Target.Address
ElseIf Not Application.Intersect(Target, Range("B4:H4")) Is Nothing Then
'Coloriage avec le couleur de la cellule couleur selectionnee
Range(Cel_Select).Interior.Color = Range(Target.Address).Interior.Color
End If
End Sub

Si la plage de cellule a colorier est variable, je peux vous faire la modif
Bonne suite

Bonjour,

Un peu le même système que f894009, comme je l'ai fait je poste quand même... ;-)

- agit sur toutes les lignes>7 des colonnes B:H
- visualisation de la couleur en cours de sélection
- possibilité de remettre sans couleur en cliquant sur 'Code RDV'

exemple xls

eric

PS: ne colorie que si la cellule n'est pas vide...

merci f894009 c'est tout à fait ce que je veux (désolé eric c'est l'inverse de ce que je veux)
je l'ai testé dans plusieurs tableau ça marche
mais j'ai voulu l'installé dans mon tableau definitif et là ça me mets ça

erreur de compilation
variable non defini

petite précision j'ai deja ce code avant et j'ai mis celui propose à la suite

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("R6")) Is Nothing Then
If Target.Count > 1 Then Exit Sub
'Range("a" & [MATCH(R6,B:B,0)]).Select

'-- ou affiche en haut de l'écran --
Application.Goto Range("a" & [MATCH(R6,B:B,0)]), Scroll:=True
End If
End Sub

merci pour vos eventuelles proposition

Bonjour

ne maitrisant pas le VBA, le copier coller ne marchait pas apres une fouille approffondie dans la fenetre VBA et plusieurs essais j'ai trouvé ou etait mon erreur et
ça marche parfaitement

Eric j'ai retesté ton procede c'est vrai qu'il n'est pas mal non plus, je n'avais pas compris les subtilites

un grand merci à vous deux