Mise en forme conditionnelle Exl 2010
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