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

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Avatar du membre
mfp
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 6 octobre 2015
Version d'Excel : 2013 EN

Message par mfp » 6 octobre 2015, 15:27

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! :roll: 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 ::D

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
mfp - Fichier exemple 3.zip
(271.34 Kio) Téléchargé 34 fois
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 6 octobre 2015, 17:44

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
Code Couleurs rvb.xlsm
(30.48 Kio) Téléchargé 51 fois
Pierrot
Avatar du membre
mfp
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 6 octobre 2015
Version d'Excel : 2013 EN

Message par mfp » 6 octobre 2015, 18:17

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
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 6 octobre 2015, 23:22

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
Pierrot
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 7 octobre 2015, 14:14

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
Pierrot
Avatar du membre
mfp
Nouveau venu
Nouveau venu
Messages : 3
Inscrit le : 6 octobre 2015
Version d'Excel : 2013 EN

Message par mfp » 7 octobre 2015, 14:19

J'étais en train de répondre! :D 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!
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 7 octobre 2015, 14:23

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
Pierrot
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message