couleur selon texte de la cellule

[sigma]

Bonsoir à tous,

je vous expose ma question :
en onglet 2 ma base de donnée, en onglet 1 ma feuille de présentation, je rapatrie mes données de l'onglet 2 vers l'onglet 1 par une recherche V.
j'aimerai que mes cellules prennent une couleur en fonction du texte rappatrié. j'ai déjà un bout de code mais il fonctionne uniquement si je clique sur les cellules, peux t'on l'automatisé ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim couleur As Byte


If Not Application.Intersect(Target, Range('d6:i14')) Is Nothing Then
Select Case UCase(Target.Text)
Case 'CP': couleur = 54
Case 'CD': couleur = 32
Case 'RT': couleur = 33
Case 'E': couleur = 34
Case 'D': couleur = 35
End Select

Target.Interior.ColorIndex = couleur
End If


End Sub

merci à tous et bonne soirée.

 

[Pak]

salut

j'ai a peu près le même souci. si tu trouve la réponse tu peux m'aider stp.

Merci d'avance

 

[sigma]

Pak, le forum,

ou alors peut être une solution avec un bouton qui colorierai les cellules en fonction des données de la plage ?

merci à tous.

PS, je ferai mon possible Pak...