Discussion :

[vapordinateur]

Bonjour à tous,

j'ai crée en VBA une mise en forme conditionnelle avec 5 conditions que voici :

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
Private Sub Workbook_Open()
 
    Range("e9:e200").Select
    Range("e9").Activate
    Dim lacellule As Range
    For Each lacellule In Selection
    couleurderemplissage = lacellule
    Next lacellule
    Range("e9:e9").Select
    Range("e9").Activate
 
End Sub
 
        Property Let couleurderemplissage(lacellule As Range)
        Dim indexcouleur As Integer
            Select Case lacellule.Value
 
                Case "1"
                indexcouleur = 3
                Case "2"
                indexcouleur = 8
                Case "3"
                indexcouleur = 6
                Case "4"
                indexcouleur = 7
                Case "5"
                indexcouleur = 4
                Case Else
                indexcouleur = xlColorIndexNone
 
            End Select
        lacellule.Interior.ColorIndex = indexcouleur
        End Property

Cela se fait sur la colonne "E".
J'aimerais simplement que ma macro copie la couleur de fond de la case E(x) dans la case D(x) quand une des 5 conditions est remplie pour cette case ...

Est-ce possible ?

Merci d'avance à quiconque prendra le temps de me lire.

@+ Vapo

[Pierre Fauconnier]

Bonjour

Une solution simple consisterait à appliquer la même MFC sur D que sur E, en s'appuyant sur les valeurs de E...

[vapordinateur]

Oui c'est ce que je voudrais mais je ne sais pas comment faire...
je suis assez débutant en VBA, j'ai juste adapté un code trouvé sur internet.

Il faut qua ça ressemble à ça ??? :

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
Private Sub Workbook_Open()
 
    Range("d9:e200").Select
    Range("e9").Activate
    Dim lacellule As Range
    For Each lacellule In Selection
    couleurderemplissage = lacellule
    Next lacellule
    Range("e9:e9").Select
    Range("e9").Activate
 
End Sub
 
        Property Let couleurderemplissage(lacellule As Range)
        Dim indexcouleur As Integer
            Select Case lacellule.Value
 
                Case "1"
                indexcouleur = 3
                Case "2"
                indexcouleur = 8
                Case "3"
                indexcouleur = 6
                Case "4"
                indexcouleur = 7
                Case "5"
                indexcouleur = 4
                Case Else
                indexcouleur = xlColorIndexNone
 
            End Select
        lacellule.Interior.ColorIndex = indexcouleur
        End Property

[EDIT] : non j'ai testé ce n'est pas ça car là ce n'est pas basé sur la valeur de E.

Pour simplifier, n'existe-t-il pas un moyen du genre :

Code :

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

("e9:e200").Interior.ColorIndex = ("d9:d200).Interior.ColorIndex

???

[vapordinateur]

Bon alors j'ai trouvé une solution que j'arrive à appliquer sur une case en particulier, j'ajoute ceci à mon code (pour la case E9 dans ce cas) :

Code :

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

1
2
3
4
5
If Range("E9").Interior.ColorIndex = "3" Then Range("D9").Interior.ColorIndex = "3"
    If Range("E9").Interior.ColorIndex = "8" Then Range("D9").Interior.ColorIndex = "8"
    If Range("E9").Interior.ColorIndex = "6" Then Range("D9").Interior.ColorIndex = "6"
    If Range("E9").Interior.ColorIndex = "7" Then Range("D9").Interior.ColorIndex = "7"
    If Range("E9").Interior.ColorIndex = "4" Then Range("D9").Interior.ColorIndex = "4"

Mais ça ne fonctionne pas quand j'essaie de le faire sur une plage de case :
une erreur dans mon code ??? :

Code :

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

1
2
3
4
5
If Range("E9:E167").Interior.ColorIndex = "3" Then Range("D9:D167").Interior.ColorIndex = "3"
    If Range("E9:E167").Interior.ColorIndex = "8" Then Range("D9:D167").Interior.ColorIndex = "8"
    If Range("E9:E167").Interior.ColorIndex = "6" Then Range("D9:D167").Interior.ColorIndex = "6"
    If Range("E9:E167").Interior.ColorIndex = "7" Then Range("D9:D167").Interior.ColorIndex = "7"
    If Range("E9:E167").Interior.ColorIndex = "4" Then Range("D9:D167").Interior.ColorIndex = "4"

[DVano]

Sans le code complet, on ne peut pas t'aider...

[vapordinateur]

Alors le voici ^^

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
Private Sub Worksheet_Change(ByVal Target As Range)

    Range("e9:e200").Select
    Range("e9").Activate
    Dim lacellule As Range
    For Each lacellule In Selection
    couleurderemplissage = lacellule
    Next lacellule
    Range("e9:e9").Select
    Range("e9").Activate
    
    If Range("E9:E167").Interior.ColorIndex = "3" Then Range("D9:D167").Interior.ColorIndex = "3"
    If Range("E9:E167").Interior.ColorIndex = "8" Then Range("D9:D167").Interior.ColorIndex = "8"
    If Range("E9:E167").Interior.ColorIndex = "6" Then Range("D9:D167").Interior.ColorIndex = "6"
    If Range("E9:E167").Interior.ColorIndex = "7" Then Range("D9:D167").Interior.ColorIndex = "7"
    If Range("E9:E167").Interior.ColorIndex = "4" Then Range("D9:D167").Interior.ColorIndex = "4"

End Sub

        Property Let couleurderemplissage(lacellule As Range)
        Dim indexcouleur As Integer
            Select Case lacellule.Value

                Case "1"
                indexcouleur = 3
                Case "2"
                indexcouleur = 8
                Case "3"
                indexcouleur = 6
                Case "4"
                indexcouleur = 7
                Case "5"
                indexcouleur = 4
                Case Else
                indexcouleur = xlColorIndexNone

            End Select
        lacellule.Interior.ColorIndex = indexcouleur
        End Property

Les parties en rouge sont pour moi l'endroit d'où vient le problème...
J'ai l'impression qu'il n'associe pas E(x) à D(x) ou alors qu'il faut que toute ma plage des E soit sur fond rouge pour faire passer ma plage des D sur fond rouge (ce qui n'est pas ce que je veux...).
Je veux que si E(135) à un fond rouge, D(135) passe sur fond rouge.

N'hésitez pas à me poser des questions si je n'ai pas été clair

[EDIT] : hé DVANO tu habites à vienne, moi je suis de chonas l'amballan juste à côté...^^