Mise en forme conditionnelle Exl 2010

Merci pour mes pinceaux

peintre 284932

Je demande depuis hier, un résultat attendu...

Le mieux dans ce cas c'est de faire un exemple avec tout les cas de figure...

Leakim

Je ne comprends pas le résultat attendu?

Voir l'onglet Obj2,si c'est cela que tu demandes

Jean Eric ,après relecture je me suis bien mélangé les pinceaux sur le tx de contrôle Pub il faut lire:

>25% <20%&25%> <20% et non 0.25%....etc.

Re,

Voir fichier modifié, avec je pense les bons pourcentages

J'ai commenté le code pour une meilleure compréhension.

Cdlt

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ws As Worksheet
Dim lngRows As Long
Dim maPlage As Range

    Set Ws = ActiveSheet
    With Ws
        lngRows = .Range("C" & Rows.Count).End(xlUp).Row
        Set maPlage = .Range("G6:G" & lngRows)
        If Not Application.Intersect(Target, maPlage) Is Nothing Then
            If Target.Count > 1 Then Exit Sub
            Application.ScreenUpdating = False
            Select Case Target.Offset(0, -2)
                Case "Freinte MMA (M - 3)", "Freinte Encyclopédies (M - 3)"
                'xlNone si = vide ou = 0, vert si <= 3%, orange si <=6 % et rouge si > 6%
                    Select Case Target
                        Case 0, ""
                            Target.Interior.Color = xlNone
                        Case Is <= 0.03
                            'vert
                            Target.Interior.Color = 5287936
                        Case Is <= 0.06
                            'orange
                            Target.Interior.Color = 49407
                        Case Else
                            'rouge
                            Target.Interior.Color = 255
                    End Select
                Case "Réclamations Pub (M - 1)"
                'xlNone si = vide ou = 0, vert si <= 5%, orange si <= 7%, rouge si > 7%
                        Select Case Target
                        Case 0, ""
                            Target.Interior.Color = xlNone
                        Case Is <= 0.05
                        'vert
                            Target.Interior.Color = 5287936
                        Case Is <= 0.07
                            'orange
                            Target.Interior.Color = 49407
                        Case Else
                            'rouge
                            Target.Interior.Color = 255
                    End Select
                Case "Réclamations Quot (M - 1)"
                'xlNone si = vide ou = 0, vert si <= 23%, orange si <= 25%, rouge > 25%
                    Select Case Target
                        Case 0, ""
                            Target.Interior.Color = xlNone
                        Case Is <= 0.23
                            'vert
                            Target.Interior.Color = 5287936
                        Case Is <= 0.25
                            'orange
                            Target.Interior.Color = 49407
                        Case Else
                            'rouge
                            Target.Interior.Color = 255
                    End Select
                Case "Taux de contrôle Pubs (M - 1)"
                'xlNone si = vide ou = 0, rouge si <= 20%, orange si <= 25%, vert > 25%
                    Select Case Target
                        Case 0, ""
                            Target.Interior.Color = xlNone
                        Case Is <= 0.2
                            'rouge
                            Target.Interior.Color = 255
                        Case Is <= 0.25
                            'orange
                            Target.Interior.Color = 49407
                        Case Else
                            'vert
                            Target.Interior.Color = 5287936
                    End Select
                Case Else
                    '
            End Select
        End If
    End With

End Sub

Jean Eric,

Merci d'avoir décortiqué tes macros,seulement j'ai toujours ce pb,lorsque par exemple je saisis un tx supérieur à 0.05% sur les Rcl Pub et Quot lignes 8 & 9 d'Avranches,la cellule ne passe pas à l'orange ni au rouge au dessus de 0.07 voir copie d'écran.

Si tu as l'opportunité d'y jeter un œil,je t'en remercie.

Re,

Je t'ai commenté le code.

Tu dois apprendre à différencier < et <= ou > et >=.

Selon ce que tu veux, tu modifies

Tes infos ne sont pas claires, les réponses en conséquence.

Cdlt

Bon,je vais essayé de me débrouiller avec ça,merci d'avoir pris un peu de votre temps pour mon cas

Rechercher des sujets similaires à "mise forme conditionnelle exl 2010"