liste déroulante dynamique et FormatConditions

[roisabri]

Salut les amis
J'ai lancé une discussion déjà similaire à ce même sujet.

Mais là je bloque encore

 Set Cell_Color = Worksheets(Data).Range("P2")
    While Not Cell_Color.Interior.Color = Gray Or Cell_Color.Interior.Color = White
        i = i + 1
        Set Cell_Color = Cell_Color.offset(1, 0)
    Wend
    
    
    With Worksheets(Plans).Range(Cells(3, 15).Address & ":" & Cells(Rows.Count, 15).End(xlUp).Address).Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
            xlBetween, Formula1:="=Data!$B$2:$B$" & i
            .ErrorMessage = "You don't have the persmissison to write"
        End With
        With .FormatConditions
                .Delete
                For j = 2 To i
                .Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""Data!$B"" & i & """""
                Next
            End With
            
        For j = 1 To i - 1
        .FormatConditions(j).Interior.Color = Sheets(Data).Cells(j, 16).Interior.Color
        Next
        
    End With

Là ce que je veux faire que ma liste , affectera la cellule en modifiant son couleur s'il est rouge dans la feuille data , il sera rouge dans la feuille Plans

Merci d'avance

 

[roisabri]

Re : liste déroulante dynamique et FormatConditions

Je relance la discussion à nouveau, du help?

 

[roisabri]

Re : liste déroulante dynamique et FormatConditions

allou, vous êtes ici les amis?

 

[roisabri]

Re : liste déroulante dynamique et FormatConditions

aucune solution?