Bonjour,
Je souhaiterais réaliser une macro de mise en forme conditionnelle d'un tableau (une ligne complète en rouge en fonction de la valeur d'une cellule).
J'ai donc créé une boucle, qui fonctionne pour la sélection de la ligne, mais qui n'incrémente pas automatiquement la cellule.
Je pense que la syntaxe de la condition sur la ligne 14 est incorrecte.

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
Sub MFC()
 
Dim i As Integer
Dim j As Variant
 
For i = 3 To 10
    Rows(i).Select
    j = Range("G", i).Value
 
    'suppression conditions
    Selection.FormatConditions.Delete
    'condition auto
    'Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$G$3=1"  (OK)
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=j=1"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    'mise ne forme
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
        .Color = -16776961
        .TintAndShade = 0
    End With
Next i
 
End Sub


Merci pour votre aide :-)