Attribuer des valeurs en fonction de la couleur des cellules

tototo1

XLDnaute Nouveau
Bonjour à tous,

Je dispose de données dans une colonne A dont les cellules sont colorisées. Dans une colonne B j'ai les couleurs potentielles des cellules de A avec une valeur attribuée pour chaque couleur (par exemple pour le bleu : TB). J'aimerais dans une colonne C attribué a chaque cellule de la colonne A, la valeur de la colonne B en fonction des couleurs. Par exemple si ma cellule de la colonne A est bleue alors j'aimerais dans C obtenir TB.
exemple.png
J'avoue ne rien n'y connaître au vba et apparemment il n'est pas possible de faire ça avec les fonctions de "base" d'excel.

Toute aide serait fortement appréciée.

Cordialement.
 

Pièces jointes

  • exemple.xlsx
    8.8 KB · Affichages: 70
  • exemple.xlsx
    8.8 KB · Affichages: 70
  • exemple.xlsx
    8.8 KB · Affichages: 70
  • exemple.png
    exemple.png
    6.7 KB · Affichages: 119
  • exemple.png
    exemple.png
    6.7 KB · Affichages: 107

tototo1

XLDnaute Nouveau
Re : Attribuer des valeurs en fonction de la couleur des cellules

Merci à tous les deux.

Mon souci c'est que le nombre de couleurs à comparer et les couleurs elle même peuvent varier. Je ne peux donc pas me servir du code couleur tel que vous l'avez fait, si j'ai bien saisi la logique de vos solutions.

Cordialement.
 

job75

XLDnaute Barbatruc
Re : Attribuer des valeurs en fonction de la couleur des cellules

Bonjour,

Avec cette fonction VBA :

Code:
Function RechCoul(c As Range, r As Range) As String
Application.Volatile
For Each r In r
  If r.Interior.Color = c.Interior.Color Then RechCoul = r: Exit Function
Next
End Function
Si l'on change des couleurs il faut appuyer sur la touche F9 Pour que la fonction se recalcule.

En effet le changement de couleur ne crée pas d'événement VBA.

Fichier joint.

A+
 

Pièces jointes

  • exemple(1).xls
    46.5 KB · Affichages: 70
  • exemple(1).xls
    46.5 KB · Affichages: 65
  • exemple(1).xls
    46.5 KB · Affichages: 69

Dugenou

XLDnaute Barbatruc
Re : Attribuer des valeurs en fonction de la couleur des cellules

Bonjour tototo, king et job,
Dans mon exemple du post #2, il suffit d'augmenter la table de référence en G3:H8 pour y ajouter les nouvelles couleurs.
Si tu insères des cellules avant H8 la fonction se met à jour toute seule.
Cordialement
 

Pièces jointes

  • tototo1 couleurs 2.xlsm
    84.3 KB · Affichages: 71

job75

XLDnaute Barbatruc
Re : Attribuer des valeurs en fonction de la couleur des cellules

Bonjour le fil, le forum,

La plage de référence des couleurs peut bien sûr être rendue dynamique.

Fichier (2).

Edit : j'ai ajouté une en-tête.

A+
 

Pièces jointes

  • exemple(2).xls
    46.5 KB · Affichages: 84
  • exemple(2).xls
    46.5 KB · Affichages: 87
  • exemple(2).xls
    46.5 KB · Affichages: 103
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 379
Messages
2 087 774
Membres
103 662
dernier inscrit
rterterert