EXCEL couleurs automatiques

ab -  
Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonsoir,

Sur 1 tableau d'-absence de voudrais faire apparaitre les cellules en couleur (8 à 10 couleurs) par rapport aux CP - RTT - AANC - Maladie - Anciennetée - Récup - Férié - Samedi - Dimanche ...) le format - Mise en forme conditionnelle, me permets de mettre que 3 couleurs. .Je suis nulle en VBA

2 réponses

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonsoir,

    Clic-droit sur l'onglet de la feuille et choisir 'visualiser le code'.
    Y copier-coller le code suivant : 
    Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim c As Range 
    If Not Intersect(Target, Range("ZoneFormatée")) Is Nothing Then 
        For Each c In Range("Légende") 
            If UCase(Target.Value) = UCase(c.Value) Then 
            'ou If Target.Value = c.Value Then  'si on veut garder la sensibilité Majuscule/minuscule 
                Target.Font.ColorIndex = c.Font.ColorIndex 
                Target.Interior.ColorIndex = c.Interior.ColorIndex 
                Target.Interior.Pattern = c.Interior.Pattern 
                Target.Font.Bold = c.Font.Bold 
                Target.Font.Italic = c.Font.Italic 
                Exit For 
            End If 
        Next c 
    End If 
End Sub

    Sur la feuille sélectionner la plage devant avoir la MFC et la nommer ZoneFormatée,
    Saisir la liste des mots avec les attributs voulus (couleur police et fond, gras, italique) et nommer cette plage Légende

    Exemple : http://www.cijoint.fr/cjlink.php?file=cj201103/cijjUcEn8u.xls
    Si les cellules sont déjà saisies il faut les revalider.

    eric
    0
  2. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    Mais il serait temps de passer à Excel 2007 ou 2010 ; tu auras autant de couleurs que tu veux avec la MFC ...
    -1