Bonjour à tous,

Je cherche à faire une boucle de mises en forme conditionnelle sur des plages en fonction de la valeur d'une cellule de la plage sous VBA.
J'ai réussi à créer la boucle et la mise en forme conditionnelle néanmoins je rencontre deux problèmes...

J'ai

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub MFC()
Range("D16:D26").Select
    For compteur = 1 To 28
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=d20=1" 'ici je n'arrive pas à changer la cellule de condition sur la plage suivante (ici k20 etc...)
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent2
        .TintAndShade = 0.799981688894314
    End With
    Selection.FormatConditions(1).StopIfTrue = True
    ActiveCell.Offset(0, 7).Select ' ici je n'arrive pas à selectionner toute la plage suivante mais seulement la première cellule de la plage...
    Next compteur
End Sub
La prochaine étape sera de créer une deuxième boucle pour décaler les plages de 10 lignes 5 fois de suite et d'arrêter la boucle... Mais ça se sera pour la prochaine fois ^^

Merci pour votre aide!