Couleur de cellules définie par couleur d'une cellule unique

Bonjour à tous!

Je suis une grande fan de vos connaissances excel infinies et vous suis de loin depuis longtemps, mais c'est la première fois que je poste (après plusieurs heures de recherche, impossible de trouver la solution à mon problème via les posts déjà existants, en croisant les doigts pour que j'aie été assez efficace dans ma recherche! ).

Situation:

J'ai créé un fichier excel mensuel qui permet aux travailleurs de rentrer les commandes quasi journalières de différentes entreprises plus facilement (Voir fichier en attaché pour plus de clarté).

C'est un fichier par mois et par entreprise, qui me permet d'avoir la vue d'ensemble sur les commandes, de pouvoir faire un export mensuel facilement, d'updater la liste des produits facilement, de sortir le montant à facturer (avec détail TVA) aisément... etc.

Mon problème:

Je souhaite simplement assigner une couleur par entreprise pour éviter le risque d'erreur. (Dans mon fichier exemple, c'est le rouge). Sauf que pour le moment, pour pouvoir changer cette couleur dans les cellules concernée de chaque feuille, ça me prend un temps fou!

Mon but:

- Onglet "Admin": J'ai le nom de la société qui se met à jour sur toutes les feuilles, l'adresse c'est juste à titre informatif, et en-dessous j'aimerais là choisir une couleur pour cette entreprise qui s'appliquera automatiquement sur tout le fichier où il y a de la couleur. Soit en mettant cette cellule en couleur, soit en y inscrivant le code RVB...? Ça c'est égal. Mais vous voyez l'idée?

- Est-ce possible avec une simple MFC (personnalisée) ou dois-je créer un code VBA? Dans les 2 cas votre aide me serait précieuse!

Général:

Je suis pas du tout spécialiste excel, ça se voit dans mon fichier (c'est pas propre et précis, je me rends bien compte que c'est un peu du bricolage) J'apprends sur le tas et ne connais pas tous les termes liés à excel, bref veuillez m'en excuser! Par contre j'essaie d'apprendre vite.

Voilà, d'avance un grand merci pour votre aide et quoi qu'il en soit, merci pour tout ce que vous apportez en général! Ça m'a déjà sauvé plus d'une fois

Avec mes meilleures salutations,

Marie-France

P.S.: J'ai du effacer quelques onglets des jours dans le fichier en attaché parce que même compressé il faisait plus de 300ko

Bonjour, Marie-France

Un code VBA pour appliquer une couleur de fond de cellule

Sub couleurs()    
   'Colorer le fond des cellules sélectionnées    
   Selection.Interior.Color = RGB(174, 240, 194)    
End Sub    

Exemple de couleur VBA

RGB(0, 0, 0) : noir

RGB(255, 255, 255) : blanc

RGB(255, 0, 0) : rouge

RGB(0, 255, 0) : vert

RGB(0, 0, 255) : bleu

Ci-joint , un fichier qui vous permet de choisir votre couleur RGB

Amicalement

Pierrot

Bonjour Pierrot!

Un grand merci pour cette réponse rapide!

Mais si je comprends bien, cela ne me permet pas, à partir de la couleur de la cellule Admin!C6, de changer automatiquement les couleurs de tout mon fichier (Par exemple: STATISTIQUES!A5:D5 ou EXPORT!A5:E5) est-ce que je me trompe?

Merci pour tout,

Marie-France

Bonsoir, Marie-France,

je ne pense pas qu'il soit possible d'automatiser les couleurs pour chaque fichiers.

peut-être que cela soit possible mais j'ignore comment.

Si j'avais les couleurs que vous souhaitez affecter, je vous créerais un bouton avec un choix de couleurs affectée par un code VBA (un formulaire à ouvrir pour un choix de couleurs)

faites-moi une liste des couleurs souhaitées, je m'occupe du reste.

Amicalement

Pierrot

Marie-France,

A défaut de réponse de votre part, je vous ai créé une macro qui affecte la même couleur

Aux autres feuille que la couleur A1:A6 de la feuille Admin

Le fichier étant trop gros, je vous donne le code à placer dans un module et créez un bouton auquel vous affectez ce code.

Amicalement

Pierrot

Sub Copie_Couleur2()
'
' Copie_Couleur Macro
'

   Range("A6").Select
    ActiveCell.Range("A1:E1").Select
    Selection.Copy
    Sheets("STATISTIQUES").Select
    ActiveCell.Range("A5:E5").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveCell.Select
    Sheets("EXPORT").Select
    Range("A5:E5").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("FACTURE").Select
    Range("A5:H5").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("PRODUITS").Select
    Range("A6:G6").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("Admin").Select
    ActiveCell.Select
    Application.CutCopyMode = False

    Range("A6").Select

End Sub

J'étais en train de répondre! Désolée, je n'avais pas accès à mon ordinateur ce matin.

Je regarde votre code plus en détails et vous revient avec mon feedback!

Un grand merci pour votre temps Pierrot!

Je suis désolé de vous bousculer, mais je n'ai rien d'autre à faire,

Si vous avez des problèmes, envoyer-moi votre adresse mail par message privé

et je pourrai vous renvoyer votre gros fichier.

Pierrot

Rechercher des sujets similaires à "couleur definie unique"