bonjour
juste une question bête...pourquoi ca marche pas :ermm:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('E6:E28')) Is Nothing Then
Target.Font.ColorIndex = 5
Selection.Font.ColorIndex = 5
End If
End Sub
le but étant de mettre en couleur la cellule selectionnée.
je ne vois pas pourquoi ca marche ..... :angry:
merci
juste une question bête...pourquoi ca marche pas :ermm:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('E6:E28')) Is Nothing Then
Target.Font.ColorIndex = 5
Selection.Font.ColorIndex = 5
End If
End Sub
le but étant de mettre en couleur la cellule selectionnée.
je ne vois pas pourquoi ca marche ..... :angry:
merci