Mise en forme conditionnel

[BLACKHAYES]

BONJOUR LE FORUM,

j'ai un petit souci avec mon excel 2003, je souhaiterais avoir dans plusieurs cellules au moins 5 conditions de couleur attribuées a des chiffres allant de 1 a 5 ou plus si possible

je m'explique: si je tape "1" dans une celluleil faudrait qu'elle s'affiche en vert par exemple o une autre couleur peu importe, mais que si je tape 2 elle s'affiche en rouge ou autre, et ainsi de suite,

le probleme c'est que excel 2003, n'offre que 3 possibilités de condition, alors comment puis-je faire pour en mettre plus, (si code, pas rop compliqué s'il vous plait).

mes cellules vont de "c" à "cv" et ce sur 5 lignes;

merci d'avance a vous tous pour votre aide !

 

[Victor21]

Re : Mise en forme conditionnel

Bonjour.

Un fichier joint en exemple, qui permettrait de personnaliser la proposition serait appréclé.

 

[BLACKHAYES]

Re : Mise en forme conditionnel

voila c'est fait, j'etais entrain de la faire,

desolé !!

 

[néné06]

Re : Mise en forme conditionnel

Bonjour Blachayes,le Forum
J'ai fais un planning sur excel 2003 Avec six MFC de couleur, mais en VBA
Je fais parvenir ce planning ,et tu regardes dans le module "Mise en forme".
Une piste que tu pourras exploiter,à moins que d'autres réponses plus simples te parviennent.

Edit: Salut Victor!

 

[BLACKHAYES]

Re : Mise en forme conditionnel

Bonjour Néné06,

merci pourton fichier, j'ai donc été voir le vba, mais wouaff, c'est compliqué, et moi je suis un novice en vba,

ton fichier prends en compte beaucoup de parametres et de cellules sous differents conditions,

alors j'attends un peu pour voir si il n'y a pas une soluce plus simple pour moi;

merci quand meme !! car cela fonctionne bien sinon

a moins que tu saches me coder mon fichier tout simple !!

 

[Victor21]

Re : Mise en forme conditionnel

Re,

Un essai sur votre fichier en pj.
Le code est dans le module de Feuil1.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim temoin As Boolean
    Dim Ref As Variant
    If Not Intersect(Target, Range("D2:AC19")) Is Nothing And Target.Count = 1 And Not temoin Then
        temoin = True
        Target.Interior.ColorIndex = xlNone
        For Each Ref In Sheets("Feuil1").Range("F23:F29")
            If UCase(Target.Value) = UCase(Ref.Value) Then
                Target.Interior.ColorIndex = Ref.Interior.ColorIndex
            End If
        Next Ref
        temoin = False
    End If
    
End Sub

Edit : Bonjour, Néné06

 

[BLACKHAYES]

Re : Mise en forme conditionnel

Bonjour Victor21,

je te remerciegrandement cela fonctionne a merveille.

Merci a vous, a bientot

 

[fanfan38]

Re : Mise en forme conditionnel

Bonjour

Pourquoi faire compliquer...

 

[néné06]

Re : Mise en forme conditionnel

Bonjour à tous

Ou , sans avoir de gabarit de couleurs sur la feuille
Voir PJ