Discussion :

[Le Marteau]

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!

[BENNASR]

Bonsoir
Pour moi j'arrive pas à comprendre ta demande donc si tu peux expliquer davantage avec un exemple et/ou un capture écran des données de départ et une simulation du résultat souhaité
Pour les règles de MFC je crois que vous pouvez sans VBA gérer ces règles
BONNE CONTINUATION

[ARTURO83]

Bonjour,

Si j'ai bien compris

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
Sub MFC()
    Application.ScreenUpdating = False
    Col = 4
    Set Plage = Range("D16:D26")
    Plage.Select
    For compteur = 1 To 28
        Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(20, Col).Address & "=1"
        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
        Col = Col + 7
        Set Plage = Range(Cells(16, Col), Cells(26, Col))
        Plage.Select
    Next compteur
End Sub

Cdlt

[Le Marteau]

ActiveCell.Offset(0, 7).Select ' ici je n'arrive pas à selectionner toute la plage suivante mais seulement la première cellule de la plage...

ça j'ai reussi avec

Code :

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

Range(ActiveCell.Offset(0, 7), ActiveCell.Offset(10, 7)).Select

Seulement les plages ne se colorent pas.....

[Le Marteau]

Bonjour vous deux,
Tout d'abord merci beaucoup pour vos réponses!

Arturo ta solution fonctionne super bien! Sauriez vous comment faire pour répéter la même opération pour passer de la plage D16 : D26 à D27 : D37 puis D38 : D48 etc et ça six fois de suite?

Merci beaucoup à vous!!!!

[ARTURO83]

Bonsoir,

En ce qui concerne la ligne à tester, pour la 1ère ligne c'est la 20, mais pour les autres??

cdlt

[eriiic]

Bonjour,

si j'ai bien compris ton code tu peux remplacer ta boucle de 28 par un =nb.si(ta_plage;1)>0 (en anglais en vba)
eric

[Le Marteau]

Bonjour à tous!!

Encore merci pour vos réponses!!
Eric je suis désolé mais je ne suis pas sur de bien comprendre...

Arturo, je remarque qu'il n'y a pas qu'en VBA que je suis débutant mais aussi pour expliquer mes problématiques .
La cellule de condition se déplace également donc : Pour D16 : D26 c'est donc 20 . Pour D27 : D37 c'est 31 puis D38 : D48 c'est 42 etc... donc +11 à chaque fois si je ne me trompe pas.

J'espère avoir été assez clair...

Merci pour tout votre aide