Colorier une cellule
Résolu/Fermé
raveno39
Messages postés
49
Date d'inscription
mardi 6 septembre 2011
Statut
Membre
Dernière intervention
11 septembre 2014
-
21 mars 2012 à 11:54
raveno39 Messages postés 49 Date d'inscription mardi 6 septembre 2011 Statut Membre Dernière intervention 11 septembre 2014 - 23 mars 2012 à 06:33
raveno39 Messages postés 49 Date d'inscription mardi 6 septembre 2011 Statut Membre Dernière intervention 11 septembre 2014 - 23 mars 2012 à 06:33
A voir également:
- Colorier une cellule
- Aller à la ligne dans une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Verrouiller cellule excel - Guide
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
- Faites en sorte que la cellule a1 affiche exactement ce qui est montré sur cette image. quel mot apparaît en b1 ? - Forum Excel
6 réponses
Armulis
Messages postés
1236
Date d'inscription
vendredi 17 juin 2011
Statut
Membre
Dernière intervention
10 mai 2020
409
22 mars 2012 à 13:42
22 mars 2012 à 13:42
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?
raveno39
Messages postés
49
Date d'inscription
mardi 6 septembre 2011
Statut
Membre
Dernière intervention
11 septembre 2014
15
22 mars 2012 à 17:52
22 mars 2012 à 17:52
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
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 709
Modifié par f894009 le 22/03/2012 à 18:37
Modifié par f894009 le 22/03/2012 à 18:37
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
eriiic
Messages postés
24599
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
8 octobre 2024
7 236
Modifié par eriiic le 22/03/2012 à 19:01
Modifié par eriiic le 22/03/2012 à 19:01
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...
f894009
Messages postés
17200
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
11 septembre 2024
1 709
22 mars 2012 à 19:15
22 mars 2012 à 19:15
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.
eriiic
Messages postés
24599
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
8 octobre 2024
7 236
22 mars 2012 à 19:55
22 mars 2012 à 19:55
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
eric
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
raveno39
Messages postés
49
Date d'inscription
mardi 6 septembre 2011
Statut
Membre
Dernière intervention
11 septembre 2014
15
22 mars 2012 à 20:13
22 mars 2012 à 20:13
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
raveno39
Messages postés
49
Date d'inscription
mardi 6 septembre 2011
Statut
Membre
Dernière intervention
11 septembre 2014
15
Modifié par raveno39 le 23/03/2012 à 06:40
Modifié par raveno39 le 23/03/2012 à 06:40
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
