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