Couleur de fond d'une cellule qui reprend celle d'une autre?

Bonjour à tous,

Voilà, je viens de m'inscrire sur ce forum par hasard, car j'ai actuellement plusieurs problèmes sur excel n'étant pas très fort.

Mon problème est le suivant :

(j'attacherai un fichier d'exemple dès que je peux). https://www.excel-pratique.com/~files/doc2/Exercice_Couleur.xls

Alors, je vais essayer de m'expliquer correctement.

J'ai déjà fais avec l'aide d'un collègue définie les cellules de la colonne A, que si on entrait par exemple "460" la couleur de fond de la cellule devient bleu. Je cherche maintenant à définir la cellule qui sera en colonne B, et j'aimerai qu'elle devienne de la même couleur que la cellule de la colonne A.

Je pense qui faudrait s'y connaitre en VBA sauf erreur de ma part. Si quelqu'un pourrait me donner un petit coup de main, je vous en remercie d'avance !?

Je vous souhaite à tous une agréable journnée.

Merci d'avance.

Kami91

Bonjour,

Sois un peu plus précis , le chiffre d'ou vient il,la couleur par rapport a quoi.

supérieur,inférieur ,égale où .......

A +

bonjour Kami91,bienvenue sur le forum,

tu as posté :

que si on entrait par exemple "460" la couleur de fond de la cellule devient bleu

Si j'ai bien compris ,tu utilises une mise en forme conditionnelle (la couleur de fond s'applique automatiquement.)

Hors dans le fichier joint , tu n'as aucune mise en forme conditionnelle ?

Comme tu as excel 2000 , tu sera limité à 3 MFC par cellules.(Tu as 4 couleurs dans ton exemple)

Reviens avec ce que tu veux exactement .

Amicalement

Bonne journée à tous

Edit:bonjour Henri,plus rapide que moi apparemment...

Bonjour,

Tout d'abbord merci de vos réponse aussi rapide...

Alors Pour vous répondre je vais vous joindre mon fichier original avec quelques cellules supprimées pour des raisons confidentielles. https://www.excel-pratique.com/~files/doc2/Exercice.xls

Je suis limité à 3 MFC tu as toutes à fait raison, tu pourra voir que j'ai tenter à ma facon mais j'aimerai me basé sur les données de la colonne A... Car nous avons défini dans la colonne A que si c'était 460 par exemple : la cellule devient jaune par défaut.

Ce que j'aimerai maintenant c'est que la colonne C et et G se basent sur la cellule de la même ligne en colonne A et que leur couleur de fond deviennent pareil.

Je vous remercie d'avance.

Bonne journée.

Kami91

Bonjour,

N'étant pas trés bien avec VBA ,j'ai combiné des codes.

Regarde sur la feuille MEFC3 et adapte le .

Choisis le N° des couleurs a ton gout.

Attention ,il y a des codes avec les mêm couleurs

https://www.excel-pratique.com/~files/doc2/Kami.xls

A+

Hello,

Merci de m'aider.

Pourrais-tu me dire qu'est-ce que je dois faire maintenant ? parceque tu as supprimé la première feuille et toutes ces couleures, a quoi servent-elles ?

Merci d'avance

Bonsoir,

j'ai été un peu rapide ,regarde le fichier.

J'ai difficille d'adapter les couleusr ,travaille les un peu.

Donc regarde le code VBA.

https://www.excel-pratique.com/~files/doc2/Kami3.zip

A +

Bonsoir à tous,

Sans MFC, colore les colonnes C et G comme la colonne A

Sub CouleurCol_CetG()
''Macros par Claude Dubois pour "Kami91" E-P le 01 Nov 09
'colore les colonnes C et G comme la colonne A
Dim Cel As Range, C
    For Each Cel In Range("a7:a" & [a65000].End(xlUp).Row)
        C = Cel.Interior.ColorIndex
        Cel.Offset(0, 2).Interior.ColorIndex = C
        Cel.Offset(0, 6).Interior.ColorIndex = C
    Next Cel
End Sub

Fichier:

https://www.excel-pratique.com/~files/doc2/Exercice_couleur.xls

Amicalement

Claude.

Bonjour à vous,

Top la maccro ^^

Arriverai tu à m'expliquer juste pour que je puisse comprendre et au cas ou la refaire sans copier comme le nul que je suis ^^ ?

Ca serrait gentil.

Merci à vous !

Bonjour à tous,

Une autre façon de boucler une plage de cellules

Sub Couleur()
''Macros par Claude Dubois pour "Kami91" E-P le 04 Nov 09
'colore les colonnes C et G comme la colonne A
Dim i As Integer, Couleur
    For i = 7 To Range("A65536").End(xlUp).Row
        Couleur = Range("a" & i).Interior.ColorIndex
        Range("c" & i & ",g" & i).Interior.ColorIndex = Couleur
    Next i
End Sub

explications:

1) Dim i As Integer, Couleur (déclaration des variables)

2) For i = 7 To Range("A65536").End(xlUp).Row (boucle de la ligne 7 à la dernière)

3) Couleur = Range("a" & i).Interior.ColorIndex (attribue à la variable Couleur, l'index

couleur de la colonne A)

4) Range("c" & i & ",g" & i).Interior.ColorIndex = Couleur (attribue aux colonnes "c" et "g"

l'index Couleur détecté en 3).

à noter que .Interior.ColorIndex , ne tient pas compte des remplissages dégradés.

Bonne journée

Claude.

Magnifique,

Merci pour ces explications précises....

Bonne journée ^^

re,

N'oublie pas la petite formalité,

en bas à gauche et en étant connecté

à+...Claude.