Bonjour les amis,
J'ai besoin d'une mis en forme conditionnel d'une liste déroulante dynamique.
Je ne vois pas où elle est l'erreur.
Merci pour votre aide
J'ai besoin d'une mis en forme conditionnel d'une liste déroulante dynamique.
Je ne vois pas où elle est l'erreur.
Code:
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
Merci pour votre aide