Colorier une cellule

[Résolu/Fermé]
Signaler
Messages postés
49
Date d'inscription
mardi 6 septembre 2011
Statut
Membre
Dernière intervention
11 septembre 2014
-
Messages postés
49
Date d'inscription
mardi 6 septembre 2011
Statut
Membre
Dernière intervention
11 septembre 2014
-
Bonjour,

je voudrais colorier (si possible) une cellule en fonction d'une palette de couleur
voir exemple joint

https://www.casimages.com/f.php?f=120321120140375701.xls

excel 2007

6 réponses

Messages postés
1225
Date d'inscription
vendredi 17 juin 2011
Statut
Membre
Dernière intervention
10 mai 2020
389
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?
Messages postés
49
Date d'inscription
mardi 6 septembre 2011
Statut
Membre
Dernière intervention
11 septembre 2014
15
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
Messages postés
16026
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 octobre 2021
1 548
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
Messages postés
24200
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
17 octobre 2021
6 928
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...
Messages postés
16026
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
17 octobre 2021
1 548
Bonjour eriic,

Je suis parti de:
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

et vous de:
E4 par exemple et que C9 se mette en jaune automatiquement, peut etre impossible

Ce qui est plus interessant pour colorier x cellules de la meme couleur.
Messages postés
24200
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
17 octobre 2021
6 928
C'est vrai que je l'ai fait à l'envers mais, comme tu dis, ça me paraissait plus interessant de sélectionner la couleur avant la cellule ;-)
eric
Messages postés
49
Date d'inscription
mardi 6 septembre 2011
Statut
Membre
Dernière intervention
11 septembre 2014
15
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
Messages postés
49
Date d'inscription
mardi 6 septembre 2011
Statut
Membre
Dernière intervention
11 septembre 2014
15
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