bonjour à tous et particulièrement à galopin,
je devais vraiment avoir la tête ailleurs hier ,ce midi j'ai rgardé encore une fois le code de galopin et bien sur qu'il améliore mon planning(alors milles excuses galopin...)
je voudrai aller un peu plus loin,en effet actuellement je colore des cellules en fonction 'd'un nom' qui est donc visible dans les cellules
peut on assigner une couleur de police en fonction de la couleur de remplissage de la cellule ainsi 'le nom' serait invisible
je vous joint un fichier pour appuyer mes explications et bien sur le code de galopin
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo GESTERR
If Application.Intersect(Target, Range('Calendrier')) Is Nothing Then Exit Sub
Select Case Target.Value
Case 'conges': Selection.Interior.ColorIndex = 3
Case 'absent': Selection.Interior.ColorIndex = 4
Case 'installation': Selection.Interior.ColorIndex = 8
Case 'maladie': Selection.Interior.ColorIndex = 6
Case 'atelier': Selection.Interior.ColorIndex = 5
Case 'depannage': Selection.Interior.ColorIndex = 24
Case Else: Selection.Interior.ColorIndex = xlNone
End Select
If Selection.Cells.Count > 1 Then Selection.Value = Target.Value
Exit Sub
GESTERR:
End Sub
merci et bon week end à tous
pierrot [file name=test_20050401203148.zip size=40723]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/test_20050401203148.zip[/file]