Sujet Précédent Sujet Suivant

EXCEL couleurs automatiques

ab -  
Raymond PENTIER Messages postés 71869 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

A voir également:

2 réponses

Réponse 1 / 2
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
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 71869 Date d'inscription   Statut Contributeur Dernière intervention   17 397
 
Mais il serait temps de passer à Excel 2007 ou 2010 ; tu auras autant de couleurs que tu veux avec la MFC ...
-1