Sujet Précédent Sujet Suivant

EXCEL couleurs automatiques

Fermé
ab - 9 mars 2011 à 20:12
Raymond PENTIER Messages postés 58797 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 4 janvier 2025 - 10 mars 2011 à 05:33
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





A voir également:

2 réponses

Réponse 1 / 2
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 249
Modifié par eriiic le 9/03/2011 à 20:50
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
Réponse 2 / 2
Raymond PENTIER Messages postés 58797 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 4 janvier 2025 17 262
10 mars 2011 à 05:33
Mais il serait temps de passer à Excel 2007 ou 2010 ; tu auras autant de couleurs que tu veux avec la MFC ...
-1