Colorier une cellule
Résolu
raveno39
Messages postés
49
Date d'inscription
Statut
Membre
Dernière intervention
-
raveno39 Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
raveno39 Messages postés 49 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Colorier une cellule
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Proteger cellule excel - Guide
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Bureautique
- Diviser une cellule excel en deux horizontalement ✓ - Forum LibreOffice / OpenOffice
6 réponses
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?
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
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
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...
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...
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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
