Re : Modifier couleur police selon texte saisi dns autre cellule
comme ceci
le code est à repercuter dans toutes les feuilles ou alors avec quelques modifications à mettre dans un module et dans chaque feuille une petite macro lui faisant appel
voir en feuille 2
Bonjour Gilbert_RGI,
Super ta macro, simple et fonctionne sur un fichier test.
Mais en l'intégrant dans mon fichier ça bloque peut être parce que les valeurs "1", "2", "3" ... sont le résultat d'un vlookup (?)
Voici le code que j'ai intégré dans le worksheet:
If Not Intersect(Target, [I4:I139]) Is Nothing And Target.Count = 1 Then
Select Case Target.Value
Case Is = 1
Target.Offset(0, -5).Font.Color = -10477568
Target.Offset(0, -5).Font.Bold = True
Case Is = 2
Target.Offset(0, -5).Font.Color = -16777024
Target.Offset(0, -5).Font.Bold = True
Case Is = 3
Target.Offset(0, -5).Font.Color = -8355840
Target.Offset(0, -5).Font.Bold = True
Case Is = ""
Target.Offset(0, -5).Font.ColorIndex = xlAutomatic
Target.Offset(0, -5).Font.Bold = False
Case Else
Target.Offset(0, -5).Font.ColorIndex = xlAutomatic
Target.Offset(0, -5).Font.Bold = False
End Select
End If
Qu'en penses-tu?
Merci d'avance