Copier la couleur d'une cellule dans une autre sur une autre feuille

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion lolomal
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
L

lolomal

XLDnaute Nouveau
Bonjour à tous,

je suis nouveau sur ce site.

J'aimerais savoir comment copier la couleur d'une cellule (qui change de couleur quand je clique dessus) dans une autre située sur une autre page.

En d'autre terme, dans mon exemple, il y a 3 feuilles concernant 3 personnes et j'aimerais que les couleurs des cases (pour chien canard et poule) apparaissent dans ma feuille de synthèse.


Je pense qu'il faut utiliser le VBA mais je n'y connais rien.

Quelqu'un pourrait'il me donner le code à utiliser.

Vous remerciant de votre aide.
 

Pièces jointes

Trier par date Trier par votes
Re : Copier la couleur d'une cellule dans une autre sur une autre feuille

En fait je voudrais qu'une cellule source au fond vert puisse être copié dans une autre sur une autre feuille sachant que la couleur de la cellule source peut variée.

Est-ce que mon problème est clair?
 
Vote positif 0 Vote négatif
Re : Copier la couleur d'une cellule dans une autre sur une autre feuille

lolomal à dit:
En fait je voudrais qu'une cellule source au fond vert puisse être copié dans une autre sur une autre feuille sachant que la couleur de la cellule source peut variée.

Est-ce que mon problème est clair?
Cliquez pour agrandir...

Oui c'est exacement ce que je t'ai fait il faut juste que tu changes tes valeurs sources et tu vas remarquer le changement dans la feuille synthèse.
 
Vote positif 0 Vote négatif
Re : Copier la couleur d'une cellule dans une autre sur une autre feuille

Imy 55 : excuse moi tu as raison ça marche (ça ne marchait pas sur une version antérieur d'excel).

Comment fais tu pour avoir la barre déroulant à côté des cellules?
peux tu me donner ta formule de mise en forme conditionnelle?

Dernière question: Est-ce possible de faire la même chose mais de colorer les cellules par un clic à la place de la barre déroulante?
 
Vote positif 0 Vote négatif
Re : Copier la couleur d'une cellule dans une autre sur une autre feuille

- Pour la liste il faut choisir données --> validation des données
Et dans la place de tout tu vas mettre « Liste »
Et en « source » : 0 ;1 ;2 (Il peut prendre comme valeur aussi des mots).
- Pour la mise en forme conditionnelle --> C’est accueil, mise en forme conditionnelle.
(Pour les autres trucs j’ai pas vraiment du temps je bloque sur mon projet de fin d’étude et aussi sur un truc Excel que j’attends avec impatience la réponse des membres).
Je te promis que dès que j’aurais le temps je vais réfléchir sur ton truc.
Bonne chance
 
Vote positif 0 Vote négatif
Re : Copier la couleur d'une cellule dans une autre sur une autre feuille

Bonsoir,

Quand on compare des textes, il faut faire attention à la casse (majuscules, minuscules, lettres accentuées ou pas).
J’ai corrigé la feuille 10) puis effectué un copier/coller sur les autres.
J’ai intégré tes différentes études dans la même macro évènementielle pour te montrer comment faire (je ne sais pas ce que tu voulais faire en deuxième partie. Changer le fond mais à quelles conditions ?)
Fichier joint ici : voir
 
Vote positif 0 Vote négatif
Re : Copier la couleur d'une cellule dans une autre sur une autre feuille

FO_rum : ça marche c'est génial!!!!!!!

Je remercie toutes les personnes qui m'ont énormément aidé sur ce projet.

MERCI à tous.

ps: vous m'avez donné envie de me mettre véritablement aux macros (cet été je pense)

Encore merci

A+

Lolomal
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copier la couleur d'une cellule dans une autre sur une autre feuille

Bonjour à tous, après une petite semaine où j'ai pu travailler sur mon projet. Vous avez trouvé la solution pour copier la couleur d'une cellule dans une autre sur une autre feuille.
Maintenant, je fais une nouvelle fois appel à votre aide pour savoir s'il est possible de copier la couleur d'une cellule dans plusieurs autres (sur des feuilles différentes).
En faite, est-il possible de copier la couleur de la cellule BU58 (par exemple) de la feuille10 vers les cellules R11 de la feuille "synthèse par domaine" et C6,F6 et K6 de la feuille "Bilan s" sachant que lorsque je clic sur BU58 la couleur change.

La cellule BU58 correspond à S'impliquer et participer pour la personne 10) et je voudrai que la couleur de cette cellule apparaisse dans les feuilles "Synthèse par domaine" et "Bilan s" à chaque fois qu'excel voit S'impliquer et participer pour la personne 10).

Il faudrait que cela fonctionne pour toutes les personnes 11), 12)..... et pour se mettre en projet, arbitrer.....

En pièce jointe: le document que Fo_rum avait réalisé

Merci d'avance

Lolomal
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Copier la couleur d'une cellule dans une autre sur une autre feuille

Quelqu'un aurait'il une idée car là je ne vois pas du tout.

Lorsque je met cela, ça ne fonctionne pas : comment lui dire d'envoyer à 2 endroits différents?????
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Coul, Est As Range, Li As Long
If Sh.Name = "Synthèse par domaine" and "Bilan s" Or Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("BU58,BU64:BU65,BU67,BU76,BU80:BU82,BU89:BU92")) Is Nothing Then
Coul = Target.Interior.ColorIndex
Target.Interior.ColorIndex = IIf(Coul = xlNone, 4, IIf(Coul = 4, 6, IIf(Coul = 6, 3, xlNone)))
With Sheets("Synthèse par domaine" and "Bilan s)
Set Est = .Rows(8).Find(Target.Offset(, -72))
If Not Est Is Nothing Then
For Li = 11 To .Cells(Rows.Count, "P").End(xlUp).Row
If .Cells(Li, "P") = Sh.Name Then Target.Copy .Cells(Li, Est.Column): Exit For
Next
End If
End With
Application.EnableEvents = False: Target.Offset(, 1).Select: Application.EnableEvents = True
Else
'Deuxième partie à voir et orriger éventuellement
Dim aa
If Target.Column > 60 And Target.Row > 5 Then
Application.ScreenUpdating = False
aa = Target.Interior.ColorIndex
If Target.Interior.ColorIndex < 0 Then aa = 0 '????
Select Case aa
Case 15
Target.Interior.ColorIndex = 4
Case 4
Target.Interior.ColorIndex = 3
Case 3
Target.Interior.ColorIndex = 15
Case Else
Exit Sub
'Ne rien faire si la cellule ne contient ni V ni NA ni NE
End Select
Application.EnableEvents = False: Range("BX" & lig).Select: Application.EnableEvents = True
End If
End If
End Sub

Merci d'avance

lolomal
 
Vote positif 0 Vote négatif
Re : Copier la couleur d'une cellule dans une autre sur une autre feuille

Re 🙂,
Une première idée, utiliser le # en mode avancé pour rendre le code plus lisible 🙄...
En 2, comprendre les opérateur And et Or 😛...
Code: 
If Sh.Name = "Synthèse par domaine" and "Bilan s" Or Target.Count > 1 Then Exit Sub
signifie si Test1 et Test2 ou Test3...
Test1 : Nom de la feuille = "synthèse par domaine"
Test2 : "Bilan s" 😕... Où est le test 😕 ?
Test3 : Nombre de cellules sélectionnées
Priorité des opérateurs : And est prioritaire sur Or.
Donc, se serait plutôt
Code: 
If Sh.Name = "Synthèse par domaine" and Sh.Name = "Bilan s" Or Target.Count > 1 Then Exit Sub
En 3
Code: 
With Sheets("Synthèse par domaine" and "Bilan s)
déjà, il manque un " après Bilan s 😡...
Ensuite And n'est qu'un opérateur pour un test, pas une union des feuilles 🙄...
La syntaxe correcte, mais qui ne fonctionera pas, serait
Code: 
With Sheets(Array("Synthèse par domaine", "Bilan s"))
donc il faut dupliquer le code pour chaque feuille 😛...
Bon courage 😎
 
Vote positif 0 Vote négatif
Re : Copier la couleur d'une cellule dans une autre sur une autre feuille

Je te remercie JNP, il y a cependant une chose que je ne comprends pas : qu'entends tu par dupliquer pour chaque feuille.

Je remets mon fichier en pièce jointe.
sinon les explications de ce que dédire sont situées 3 post plus haut.

Lolomal
 

Pièces jointes

Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 chercher une cellule de couleur rouge dans une colonne
Réponses
4
Affichages
214
sylvanu
sylvanu
C
  • Question Question
XL 2016 récupérer la mise en forme d'une cellule vers une autre cellule
Réponses
1
Affichages
341
TooFatBoy
TooFatBoy
M
  • Résolu(e)
XL 2021 Copier/Coller des valeurs d’une feuille à une autre à partir d’une cellule
Réponses
11
Affichages
379
MANU64360
M
C
  • Question Question
XL 2021 Mettre en couleur cellule avec une mêmes informations
Réponses
3
Affichages
145
Ckyara31
C
F
  • Question Question
Microsoft 365 Vba : copier certaines cellules suivant la valeur d'une autre
Réponses
2
Affichages
194
mapomme
mapomme
D
  • Résolu(e)
Microsoft 365 vba récupérer valeur cellule d'une autre feuille
Réponses
3
Affichages
195
Diane272727
D
D
  • Résolu(e)
Microsoft 365 carte choroplèthe et conditionner la couleur selon une liste déroulante de choix
Réponses
8
Affichages
243
Daniel200666
D
R
  • Question Question
XL pour MAC Action d'une formule conditionnelle dans une cellule en fonction de la couleur de cette cellule
2
Réponses
17
Affichages
492
rtlv17
R
A
  • Résolu(e)
Microsoft 365 Modifier la couleur de fond d'une cellule lorsque l'on clique dessus
Réponses
14
Affichages
940
Alain 79
A
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
212
ChTi160
ChTi160
treza88
  • Question Question
Microsoft 365 Copie de couleur d'une cellule à une autre
Réponses
11
Affichages
749
Dranreb
Dranreb
didier09
  • Résolu(e)
XL 2021 Mise en forme conditionnelle : Couleur texte en fonction date d'une autre cellule
Réponses
6
Affichages
289
didier09
didier09
D
  • Question Question
Microsoft 365 mise en forme conditionnelle : choisir la couleur d'une autre cellule
Réponses
11
Affichages
697
deuxnid
D
E
  • Question Question
Microsoft 365 Changement valeur de cellule en cliquant sur une autre cellule
Réponses
3
Affichages
141
Dudu2
Dudu2
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
403
Phil69970
Phil69970
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
338
sylvanu
sylvanu
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
1 K
fanfan38
fanfan38
jeanmi
  • Question Question
XL 2010 Copier cellule avec mise en forme d’une feuille sur l’autre
Réponses
12
Affichages
783
jeanmi
jeanmi
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
693
steph_29120
S
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
795
Nel'
N
Retour