Colorier des cellules en fonction des resulta

Fermé
bhoothnath Messages postés 1 Date d'inscription mercredi 20 août 2008 Statut Membre Dernière intervention 20 août 2008 - 20 août 2008 à 13:33
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 - 20 août 2008 à 19:46
Bonjour, je n'ai pas réussi à trouver ce que je cherchais c'est pourquoi je pose la question suivante:
Comment colorier une cellules en fonction de sa valeur?

ex: j'ai 30 numeros qui sont disposé dans un ordre aléatoire, et j'aimerai attribuer à chaque numéro une couleur afin d'obtenir un féstival de couleur sur le classeur, je crois qu'il faut passer par une macro.
Merci de votre aide!

8 réponses

just1xpa2 Messages postés 1603 Date d'inscription jeudi 26 juillet 2007 Statut Membre Dernière intervention 3 février 2013 196
20 août 2008 à 13:54
bonjour, un petit fichier pour savoir si tes cellules sont sur une plage bien precise( tableau de 6x5 per exemple, ou disperser dans la feuille... merci
0
CaPiT Messages postés 609 Date d'inscription lundi 7 janvier 2008 Statut Membre Dernière intervention 21 avril 2010 51
20 août 2008 à 14:08
Bonjour,

Tu vas dans outils > Macro > Visual Basic Editor. La macro s'execute lorsque tu rentre un numéro. Double clic sur la feuille 1 puis:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage, Cellule As Range
        
If Target.Cells.Count < 2 Then ' Si on selectionne qu'une cellule

    'Définit la plage de référence
    Set Plage = Range("A1:B10") 'plage de cellules ou les couleurs peuvent changer
    Set Cellule = Range(Target.Address)' Cellule selectionnée

    If Cellule <> "" Then
        If Not Intersect(Plage, Cellule) Is Nothing Then
           'condition 1
            If Cellule = 1 Then
                Cellule.Interior.ColorIndex = 1 'le 1 c'est du noir
            End If
            
            'condition 2
            If Cellule = 2 Then
                Cellule.Interior.ColorIndex = 5 'le 5 c'est une autre couleur
            End If

        (...) ' Tu mets tes 30 conditions

    End If
    Else
        Cellule.Interior.ColorIndex = xlNone
End If

End Sub


Normalement ça marche ;)
0
Je m'attendais pas à des réponses aussi rapides!! Merci a vous!!!! Capit c'est exactement sa que je cherchais. Je vais le rentrer directement dans openoffice
0
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 240
20 août 2008 à 14:13
bonjour

au dela de 3 mises en forme, il faut effectivement passer par une macro, elle existe
voici un fichier avec plein d'exemples de ce que peut faire la macro fournie

mfrc multi-format, images, ssons, commentaires, seule la partie couleur t'interresse m'enfin je ne peux couper le fichier

c'est une macro complementaire..... MFC multiples

bonne journée
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Utilisateur anonyme
20 août 2008 à 14:13
Je m'attendais pas à des réponses aussi rapides!! MErci a vous!!!! Capit c'est exactement sa que je cherchais. Je vais le rentrer directement dans openoffice
0
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 240
20 août 2008 à 14:48
re:

va falloire que je dise à bilou de retirer lles copier / coller lol
0
CaPiT Messages postés 609 Date d'inscription lundi 7 janvier 2008 Statut Membre Dernière intervention 21 avril 2010 51
20 août 2008 à 15:11
T'inquiete wadoohindi j'ai eut le même problème donc mon excel était proche de ta demande. Si tu as besoin d'aide encore je suis là ;)

@wilfried_42: Qu'as tu voulu dire? je n'ai pas compris.
0
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 240
20 août 2008 à 19:46
re:

regarde sur le meme fil, post 3 et 5
0