Discussion :

[Ptitbubu75]

Bonjour à tous,

Je recherche les lignes de codes pour mettre en place automatiquement via une macro une mise en forme conditionnelle de plusieurs colonnes.
J'ai cherché sur différents forum et les solutions trouvé ne fonctionnent pas ou je dois faire une erreur quelque part.
Du coup je le fais manuellement ce qui est long et source d'erreur.

Mon besoin serait :
- valeur>= 1500 mise en forme couleur RGB (255, 0, 0)
- valeur >= 410 et <1500 RGB (0, 255, 0)
- valeur <410 RGB (0, 0, 255)

Et cette mise en page jusqu'à la dernière ligne rempli de mon tableau (cette ligne étant variable) :
J'ai déjà dans mon code la variable :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim DernLigne As Long
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row

Merci pour votre aide

Bruno

[Franc]

Bonjour, voilà qui fera le boulot:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub MiseEnFormeConditionnelle()
    Dim DernLigne As Long
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
    Dim Plage As Range
    Set Plage = Range("A1:B" & DernLigne) 'Modifiez la plage selon vos besoins
 
    'Supprime les mises en forme conditionnelles existantes dans la plage
    Plage.FormatConditions.Delete
 
    'Ajoute une mise en forme conditionnelle pour les valeurs >= 1500
    With Plage.FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:="=1500")
        .Interior.Color = RGB(255, 0, 0)
    End With
 
    'Ajoute une mise en forme conditionnelle pour les valeurs >= 410 et <1500
    With Plage.FormatConditions.Add(Type:=xlCellValue, Operator:=xlBetween, Formula1:="=410", Formula2:="=1500")
        .Interior.Color = RGB(0, 255, 0)
    End With
 
    'Ajoute une mise en forme conditionnelle pour les valeurs <410
    With Plage.FormatConditions.Add(Type:=xlCellValue, Operator:=xlLess, Formula1:="=410")
        .Interior.Color = RGB(0, 0, 255)
    End With
End Sub

[Ptitbubu75]

Merci,

Je vais tester tout de suite.