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