Discussion :

[bentor22]

Bonjour,

je voudrais faire la macro suivante:

si la cellule dans la colonne A = "Vendu" alors colorer toute la ligne en gris foncé

si la cellule dans la colonne A ="cédé" alors colorer toute la ligne en gris clair

si la cellule dans la colonne A="manquant" alors colorer toute la ligne en bleu ciel

merci par avance pour votre aide,

bien cordialement,

[gFZT82]

Bonjour,

Pourquoi une macro alors que tu peux obtenir ce résultat avec de simples Mises en Forme Conditionnelles ?

Cordialement.

[bentor22]

Bonjour,

C est parce que je mets a jour ma macro hebdomadairement sur des fichiers différents.

[gFZT82]

Voici une macro pour mettre en place les mises en forme conditionnelles.
Il te reste à adapter le nom du classeur et celui de la feuille.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub MFC()
Dim Wb As Workbook
Dim Ws As Worksheet
    Application.ScreenUpdating = False
    Set Wb = ThisWorkbook
    Set Ws = Wb.Worksheets("Feuil1")
    Ws.Activate
    Ws.Range("A1").Select
    With Ws.Cells
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$A1=""Vendu"""
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = -0.499984740745262
        End With
        .FormatConditions(1).StopIfTrue = False
 
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$A1=""cédé"""
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = -0.14996795556505
        End With
        .FormatConditions(1).StopIfTrue = False
 
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$A1=""manquant"""
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        With .FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent5
            .TintAndShade = 0.599963377788629
        End With
        .FormatConditions(1).StopIfTrue = False
 
    End With
    Set Ws = Nothing: Set Wb = Nothing
End Sub

Cordialement.