Mettre à jour les Couleurs de Cellules d'apres cellules couleur

Résolu/Fermé

jambontomate Messages postés 44 Date d'inscription jeudi 27 février 2014 Statut Membre Dernière intervention 7 janvier 2015 - 9 avril 2014 à 10:55
jambontomate Messages postés 44 Date d'inscription jeudi 27 février 2014 Statut Membre Dernière intervention 7 janvier 2015 - 15 avril 2014 à 08:19

Bonjour à tous,

Besoin de votre aide:

feuille 1: création d'un planning. Cellule B2="S-1", C2 = "S-2", D2= "S-3" (S=semaine) etc
feuille 2: création des indicateurs. Colonne Semaine avec S-1, S-2, S-3 etc

Je souhaiterais que les couleurs (mise en forme) de mes cellules de la feuille 1 suivent pour les cellules de la feuille 2. (MFC ne fonctionne pas..j'ai simplement mis =B2 mais rien)

Je ne peux vous transmettre de fichier joint car parefeu entreprise bloque..dsl

Merci d'avance pour votre raisonnement et méthode afin de réussir cette manipulation.

Cordialement
Julien

A voir également:

Mettre à jour les Couleurs de Cellules d'apres cellules couleur
Excel cellule couleur si condition texte - Guide
Excel additionner des cellules - Guide
Mettre à jour ses pilotes - Guide
Verrouiller cellules excel - Guide
Somme si couleur - Guide

11 réponses

Réponse 1 / 11

Benoit A. Messages postés 454 Date d'inscription mercredi 8 février 2012 Statut Membre Dernière intervention 13 août 2015 515
9 avril 2014 à 11:00

Copie tout ton tableau et rends toi son ton 2e tableau et tu fais clique droit collage spécial / Mise en forme

Réponse 2 / 11

jambontomate Messages postés 44 Date d'inscription jeudi 27 février 2014 Statut Membre Dernière intervention 7 janvier 2015 1
9 avril 2014 à 13:11

Je voudrais que ca se fasse automatiquement...car je vais changer pas mal de fois les couleurs...

Merci

Réponse 3 / 11

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
9 avril 2014 à 13:37

Bonjour,

Regarde ce petit montage, Feuil2 colonne A tu saisis le mot qui conditionnera la mise en forme et tu colorises la cellule que tu souhaite associer à la valeur saisie exemple en A2 j'ai saisi S_1 et la couleur associée est le vert

feuil1 dans la plage A2:F20 si tu saisis S_1 la cellule se colorise en vert

attention si tu change la couleur critère en Feuil2 il faudra conditionner par un double clic chaque cellule de la plage Feuil1

https://www.cjoint.com/?DDjnLJ4bdjf

jambontomate Messages postés 44 Date d'inscription jeudi 27 février 2014 Statut Membre Dernière intervention 7 janvier 2015 1
14 avril 2014 à 10:27

Ta macro me convient pas car comme tu l'as dit dans ton message il est obligé de double cliqué à chaque changement de couleurs. Mais c'est dans l'idée que je cherche. il y a ce détails à supprimer

Réponse 4 / 11

jambontomate Messages postés 44 Date d'inscription jeudi 27 février 2014 Statut Membre Dernière intervention 7 janvier 2015 1
9 avril 2014 à 22:40

J'essaie avec ta macro et je te redis demain merci

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 11

jambontomate Messages postés 44 Date d'inscription jeudi 27 février 2014 Statut Membre Dernière intervention 7 janvier 2015 1
14 avril 2014 à 10:26

Ta macro me convient pas car comme tu l'as dit dans ton message il est obligé de double cliqué à chaque changement de couleurs.. quelqu'il a mieux merci d'avance.

Réponse 6 / 11

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
14 avril 2014 à 10:58

Rez,

Remplace mon ancienne macro par celle ci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A2:F20], Target) Is Nothing Then
On Error Resume Next
Dim Col As Range, C As Range
For Each Col In Range("A1:F20").Columns
For Each C In Col.Cells
C.Interior.ColorIndex = [Couleurs].Find(C, LookAt:=xlWhole).Interior.ColorIndex
C.Font.ColorIndex = [Couleurs].Find(C, LookAt:=xlWhole).Font.ColorIndex
C.Font.Bold = [Couleurs].Find(C, LookAt:=xlWhole).Font.Bold 'Inclus le gras
Next
Next
End If
End Sub

Réponse 7 / 11

jambontomate Messages postés 44 Date d'inscription jeudi 27 février 2014 Statut Membre Dernière intervention 7 janvier 2015 1
14 avril 2014 à 14:05

Bonjour,

Comment je fais si ma base de données (cellule avec les couleurs) corresponds aux cellulles B2:BC2.

Dans la meme feuille, les cellulles B19:BC19 doivent changer de couleur et dans une autre feuille ce sont les cellules A3:A56 ?

Merci

Réponse 8 / 11

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
14 avril 2014 à 14:24

Re,

Si j'ai bien compris, pour la feuille dont les cellulesB19 à BC19 doivent changer de couleur
colle ce code dans les propriétés de la feuille clic droit sur l'onglet de la feuille concernée/Visualiser le code)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([B19:BC19], Target) Is Nothing Then
On Error Resume Next
Dim Col As Range, C As Range
For Each Col In Range("B19:BC19").Columns
For Each C In Col.Cells
C.Interior.ColorIndex = [Couleurs].Find(C, LookAt:=xlWhole).Interior.ColorIndex
C.Font.ColorIndex = [Couleurs].Find(C, LookAt:=xlWhole).Font.ColorIndex
C.Font.Bold = [Couleurs].Find(C, LookAt:=xlWhole).Font.Bold 'Inclus le gras
Next
Next
End If
End Sub

faire la même démarche pour la deuxième feuille et coller ce code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([A3:A56], Target) Is Nothing Then
On Error Resume Next
Dim Col As Range, C As Range
For Each Col In Range("A3:A56").Columns
For Each C In Col.Cells
C.Interior.ColorIndex = [Couleurs].Find(C, LookAt:=xlWhole).Interior.ColorIndex
C.Font.ColorIndex = [Couleurs].Find(C, LookAt:=xlWhole).Font.ColorIndex
C.Font.Bold = [Couleurs].Find(C, LookAt:=xlWhole).Font.Bold 'Inclus le gras
Next
Next
End If
End Sub

par contre il faudra revoir le champ Couleurs dans le gestionnaire de Noms

Réponse 9 / 11

jambontomate Messages postés 44 Date d'inscription jeudi 27 février 2014 Statut Membre Dernière intervention 7 janvier 2015 1
14 avril 2014 à 16:13

Cela fonctionne. Merci beaucoup je vais étudier ta macro pour apprendre petit à petit. Cependant, il faut toujours au moins cliquer dans la colonne pour que la macro se lance.

En tout cas merdi de ton aide et temps.

Réponse 10 / 11

Mike-31 Messages postés 18310 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 29 mars 2024 5 073
Modifié par Mike-31 le 14/04/2014 à 16:29

Re,

il est possible que la macro se lance dès qu'il y a un mouvement sur la feuille dans ce cas il faut supprimer dans chaque code la première ligne

If Not Intersect([B19:BC19], Target) Is Nothing Then
et le dernier
End If

et pour le deuxième code
If Not Intersect([A3:A56], Target) Is Nothing Then
et le dernier
End If

ce qui donne pour le premier code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Dim Col As Range, C As Range
For Each Col In Range("B19:BC19").Columns
For Each C In Col.Cells
C.Interior.ColorIndex = [Couleurs].Find(C, LookAt:=xlWhole).Interior.ColorIndex
C.Font.ColorIndex = [Couleurs].Find(C, LookAt:=xlWhole).Font.ColorIndex
C.Font.Bold = [Couleurs].Find(C, LookAt:=xlWhole).Font.Bold 'Inclus le gras
Next
Next
End Sub

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

Réponse 11 / 11

jambontomate Messages postés 44 Date d'inscription jeudi 27 février 2014 Statut Membre Dernière intervention 7 janvier 2015 1
15 avril 2014 à 08:19

Merci beaucoup. Bonne journée.

Discussions similaires

Si couleur, alors...

sertissage des cables rj45

Discussions similaires

Newsletters