Boucle sur MFC et sur condition de la MFC

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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! :D

26/11/2018, 14h30
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
26/11/2018, 14h40
Le Marteau

Citation:

Envoyé par 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:

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

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

Bonjour,

Si j'ai bien compris

Code:

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

26/11/2018, 14h50
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!!!!
26/11/2018, 18h28
ARTURO83

Bonsoir,

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

cdlt
26/11/2018, 18h36
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
27/11/2018, 09h14
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

Bonjour,

Ceci devrait aller

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub MFC()
    Application.ScreenUpdating = False
    Set Plage = Range("D16:D26")
    For Lig = 16 To 71 Step 11
        Col = 4
        Set Plage = Range(Cells(Lig, Col), Cells(Lig + 10, Col))
        Plage.Select
        For compteur = 1 To 28
            Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(Lig + 4, 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(Lig, Col), Cells(Lig + 10, Col))
            Plage.Select
    Next compteur, Lig
End Sub

Cdlt

27/11/2018, 10h51
eriiic

Bonjour,

Citation:

Eric je suis désolé mais je ne suis pas sur de bien comprendre...

tu boucles sur 28 cellules pour voir si une contient 1
Application.Countif(ta_plage,1)>0 te donnait directement la réponse, sans boucler

Maintenant tu ne te sers même plus de la variable compteur. Pourquoi boucler 28 fois dessus ?
eric
28/11/2018, 09h24
Le Marteau

Bonjour à vous deux et merci pour vos réponses!

Je suis désolé de ne répondre que maintenant je n'ai pas réussis à accéder au site hier...

Arturo ton code marche du tonnerre!! merci beaucoup!!!
Eric une fois encore je ne suis pas sur de comprendre.... Je ne cherche pas a compter le nombre de 1 mais d'appliquer une MFC sur un plage. Enfait les "1" sont générés par des formules qui traite d'autres de la feuille. La MFC est juste la pour donner un aspect visuel à la feuille de calcul.

J'ai repris le code d'Arturo en décalant d'une colonne à chaque fois et en agrandissant certaine plages et en changeant la couleur dans chaque colonnes. En fait j'avais besoin de comprendre le principe de fonctionnement pour pouvoir l'appliquer au reste :D

Je vous remercie beaucoup tout les deux!!!

1 pièce(s) jointe(s)

Donc au finale ça me donne ça:

J'ai mis le fichier en PJ pour une meilleurs compréhension :D Pièce jointe 430544
A moins que vous ayez des idées pour alléger le code....

Ma prochaine étape est de réussir à copier/ insérer un "pack" de 10 lignes (chaque pack de ligne correspond à un étage et le nombre d'étage est variable selon les projets). De 16 à 26 en conservant la MFC le format et les formules etc... Le défis va être de redimensionner les boucles en fonction de chaque insertion de "pack" de ligne.... Parce que je ne sais pas en avance combien de "pack" de ligne j'aurais besoin... en la même chose ensuite avec un pack de colonnes (7 colonnes). Quand on en sera là je ferai les boutons pour que les utilisateurs puisses rajouter un étage, supprimer un étage et rajouter une gaine, supprimer une gaine... en espérant que les formule classique ne "saute" pas.....

Code:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
Sub MFC()
    Application.ScreenUpdating = False
    Set Plage = Range("D16:D26") 'MFC 1
    For Lig = 5 To 115 Step 11
        Col = 4
        Set Plage = Range(Cells(Lig, Col), Cells(Lig + 10, Col))
        Plage.Select
        For compteur = 1 To 28
            Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(Lig + 4, Col).Address & "=1"
            Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
            With Selection.FormatConditions(1).Interior
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent2
                .Color = RGB(255, 128, 255)
            End With
            Selection.FormatConditions(1).StopIfTrue = True
            ActiveCell.Offset(0, 7).Select
            Col = Col + 7
            Set Plage = Range(Cells(Lig, Col), Cells(Lig + 10, Col))
            Plage.Select
    Next compteur, Lig
    Set Plage = Range("D16:D26") 'MFC 2
    For Lig = 5 To 115 Step 11
        Col = 5
        Set Plage = Range(Cells(Lig, Col), Cells(Lig + 10, Col))
        Plage.Select
    For compteur = 1 To 28
            Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(Lig + 3, Col).Address & "=1"
            Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
            With Selection.FormatConditions(1).Interior
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent2
                .Color = RGB(0, 128, 0)
            End With
            Selection.FormatConditions(1).StopIfTrue = True
            ActiveCell.Offset(0, 7).Select
            Col = Col + 7
            Set Plage = Range(Cells(Lig, Col), Cells(Lig + 10, Col))
            Plage.Select
    Next compteur, Lig
    Set Plage = Range("D16:D26") 'MFC 3
    For Lig = 5 To 115 Step 11
        Col = 6
        Set Plage = Range(Cells(Lig, Col), Cells(Lig + 10, Col))
        Plage.Select
        For compteur = 1 To 28
            Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(Lig + 2, Col).Address & "=1"
            Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
            With Selection.FormatConditions(1).Interior
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent2
                .Color = RGB(0, 128, 224)
            End With
            Selection.FormatConditions(1).StopIfTrue = True
            ActiveCell.Offset(0, 7).Select
            Col = Col + 7
            Set Plage = Range(Cells(Lig, Col), Cells(Lig + 10, Col))
            Plage.Select
    Next compteur, Lig
    Set Plage = Range("D16:D26") 'MFC 4
    For Lig = 5 To 115 Step 11
        Col = 7
        Set Plage = Range(Cells(Lig, Col), Cells(Lig + 10, Col))
        Plage.Select
        For compteur = 1 To 28
            Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(Lig + 10, Col).Address & "=1"
            Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
            With Selection.FormatConditions(1).Interior
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent2
                .Color = RGB(192, 32, 64)
            End With
            Selection.FormatConditions(1).StopIfTrue = True
            ActiveCell.Offset(0, 7).Select
            Col = Col + 7
            Set Plage = Range(Cells(Lig, Col), Cells(Lig + 10, Col))
            Plage.Select
    Next compteur, Lig
    Set Plage = Range("D16:D26") 'MFC 5
    For Lig = 5 To 115 Step 11
        Col = 8
        Set Plage = Range(Cells(Lig, Col), Cells(Lig + 10, Col))
        Plage.Select
        For compteur = 1 To 28
            Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(Lig + 7, Col).Address & "=1"
            Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
            With Selection.FormatConditions(1).Interior
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorAccent2
                .Color = RGB(160, 64, 255)
            End With
            Selection.FormatConditions(1).StopIfTrue = True
            ActiveCell.Offset(0, 7).Select
            Col = Col + 7
            Set Plage = Range(Cells(Lig, Col), Cells(Lig + 10, Col))
            Plage.Select
    Next compteur, Lig
End Sub

28/11/2018, 10h28
eriiic

Bonjour,

tu peux me dire à quel endroit tu te sers de 'compteur' dans tes boucles ?
J'ai beau chercher je ne vois pas. Si tu ne t'en sers pas tes boucle sont inutiles, tu fais 28 fois la même chose.
eric
28/11/2018, 10h47
Le Marteau

Le problème est peut être la ^^. J'utilise peut être mal "compteur".
Je fais effectivement 28 fois la même chose pour appliquer la même MFC a 28 colonnes espacé de 7 colonnes à chaque fois. Je ne sais pas si la macro a suivit la PJ...
Chaque groupe de 7 colonnes traite des informations différentes

Bonjour,

Les macros n'étant appelées qu'à la demande, elles doivent se trouver dans un module standard et non dans le module de la feuille. Je les ai déplacées dans le module 1 et quelque peu modifiées.

Code:

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
41
42
43
44
45
46
47
Sub colonnes()
    Application.ScreenUpdating = False
    For c = 3 To 197
        If Not Columns(c).Hidden Then Columns(c).Hidden = True Else Columns(c).Hidden = False
    Next c
End Sub
 
Sub MFC_Chutes()
    Application.ScreenUpdating = False
    Range("C5:GO134").FormatConditions.Delete 'on efface les MFC précédentes
 
    For c = 4 To 8 'N° de la colonne traitée
        'préparation des paramètres en fonction de la colonne traitée
        Select Case c
        Case Is = 4 'MFC EU
            DecLig = 4 'valeur de décalage à ajouter à la ligne traitée
            Couleur = RGB(255, 128, 255) 'Couleur à appliquer
        Case Is = 5 'MFC EV
            DecLig = 3
            Couleur = RGB(0, 128, 0)
        Case Is = 6 'MFC EP
            DecLig = 2
            Couleur = RGB(0, 128, 224)
        Case Is = 7 'MFC ECS
            DecLig = 10
            Couleur = RGB(192, 32, 64)
        Case Is = 8 'MFC VMC
            DecLig = 7
            Couleur = RGB(160, 64, 255)
        End Select
 
        '******************** Application des MFC ***************************
        For Lig = 5 To 115 Step 11
            Col = c
            For compteur = 1 To 28
                Set Plage = Range(Cells(Lig, Col), Cells(Lig + 10, Col))
                Plage.Select
                Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(Lig + DecLig, Col).Address & "=1"
                Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
                With Selection.FormatConditions(1).Interior
                    .PatternColorIndex = xlAutomatic
                    .ThemeColor = xlThemeColorAccent2
                    .Color = Couleur
                End With
                Col = Col + 7
    Next compteur, Lig, c
End Sub

Avec le fichier
Pièce jointe 430828

Cdlt

29/11/2018, 09h41
Le Marteau

Bonjour Arturo!

Wow!!! Super effectivement le code est bien plus léger!!

Il y a juste un détail, tu as raccourci le code de masquage de colonne mais en masquant également les colonnes "verte" B, I, P, W... etc J'en ai besoin pour la saisit. je vais voir si j'arrive a faire une boucle pour dire de cacher 6 colonne sur 7 en me servant des exemple de boucle que tu as faite précédemment.

Sans vouloir abusé de ta gentillesse tu peux m'expliquer la différence entre placer la macro dans le module de la feuille et dans le module standard?

Encore merci pour ton aide!!!
29/11/2018, 14h24
ARTURO83

Bonjour,

Modif concernant les colonnes vertes
Pièce jointe 430945

Différence entre placer la macro dans le module de la feuille et dans le module standard
Macro dans le module de la feuille: réagit au évènements qui se produisent dans la feuille (Changer une valeur, sélectionner une cellule, etc...
Plutôt que de faire de long discours, voir https://silkyroad.developpez.com/VBA/EvenementsFeuille/

Module standard: on y met les macros qui sont appelées par une action volontaire en cliquant sur un objet affecté à une macro (bouton, image etc..)

Cdlt
30/11/2018, 09h52
Le Marteau

Bonjour Arturo!!!

Merci encore pour ton aide! Et merci pour l'explication!!

Cdt
03/12/2018, 10h59
Le Marteau

Bonjour Arturo!!

Je reviens vers toi parce que j’essaie d'adapter le code que tu as fait mais je n'arrive pas à faire ce que je veux...
J'essaie avec des boutons de commande (ça j'y arrive:calim2:) de faire deux chose...

La première : De donner la possibilité de rajouter un niveau ou d'en supprimer un... Pour passer de RDC, R+1 ,R+2 à RDC, R+1 .... R+20.
Seulement ça me demande de déclarer la plage des MFC en variable et d'incrémenter la valeur de la cellule indiquant le niveau...

J'ai essayé de copier coller les lignes correspondant au RDC pour les coller entre le RDC et R+1 pour que les sommes en bas de page suivent mais du coup ça modifie la plage des MFC et du coup je n'arrive ni a déclarer la nouvelle plage ni à incrémenter les valeurs des niveaux...

La deuxième (Dans le même esprit) : De donner la possibilité de rajouter une gaine ou d'en supprimer une...

Mes tentatives restes infructueuses....
Si tu as une méthodo en tête je veux bien la tester!!

Merci de toute l'aide que tu pourras m'apporter!!!
03/12/2018, 11h56
ARTURO83

Bonjour,

Je dois m'absenter, je ne pourrai regarder qu'à partir de demain, à moins que quelqu'un d'autre prenne le relais, sinon patientez un peu.

Cdlt

Voir 40 message(s) de cette discussion en une page