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