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!
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!
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