Problème liste déroulante et FormatCondition

Salut les amis,

Ci joint une exemple du problème

Je veux créer une liste déroulante dans la Feuil2 à partir de la Feuil1. Toute les cellules de la colonne 3 de la Feuil2 seront affecté par la valeur de la colonne 2 Feuil 1 et couleur de la cellule colonne 3 Feuil1

Là il crée la liste déroulante sans affecter à la cellule la couleur convenable

J'attend vos réponse, ça fait plus que 6 jours que je bloque.

Merci

Allou c'est urgent

Bonjour,

Je ne pense pas que tu puisse le faire directement grâce à la liste déroulante.

Par contre suivant le nombre de valeur différentes maximum que tu peux avoir, au pire tu peux faire cela grâce à une MFC, sinon il faudra sûrement passer par du vba.

Cordialement,

Bonjour à nouveau,

Ce code marche bien quand les variable sont statique et déclaré avant

sub test () 
Public Const Action_Type_1= "OUT"
Public Const Action_Type_2= "OUT2"
Public Const Action_Type_3= "OUT3"
Public Const Action_Type_4= "OUT4"
Public Const Action_Type_5= "OUT5"

  With Worksheets(Plans).Range(Cells(3, 5).Address & ":" & Cells(Rows.Count, 5).End(xlUp).Address)
            With .Validation

                .Delete
                 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:=Action_Type_1 & "," & Action_Type_2 & "," & Action_Type_3 & "," & Action_Type_4 & "," & Action_Type_5
                .ErrorMessage = "You don't have the persmissison to write"

            End With

            With .FormatConditions

                .Delete
                .Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""" & Action_Type_1 & """"
                .Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""" & Action_Type_2 & """"
                .Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""" & Action_Type_3 & """"
                .Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""" & Action_Type_4 & """"
                .Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=""" & Action_Type_5 & """"

            End With

            .FormatConditions(1).Interior.ColorIndex = 2
            .FormatConditions(2).Interior.ColorIndex = 5
            .FormatConditions(3).Interior.ColorIndex = 2
            .FormatConditions(4).Interior.ColorIndex = 26
            .FormatConditions(5).Interior.ColorIndex = 2

        End With
end sub 

mais dans mon cas, la liste sera dynamique .... je ne sais pas ou ça peut etre le problème

Bonsoir

Un essai