XL 2013 Retouner valeur dans plage selon couleur de cellule

[antaninhio]

Bonjour,

Je cherche une formule qui dans chaque colonne retourne la date de la cellule de la même couleur dans le planning.

Cas d'exception:
-Si pas de cellule trouvée, retourne "Non défini".
-Si plus d'une date avec la même couleur, retourne "Trop de dates"

Voir exemple de résultat souhaité avec l'Item 1.

Merci

 

[Theze]

Bonjour,

Une piste avec une fonction perso dont la couleur prise en compte est la couleur de la cellule où se trouve la formule :

Function TrouveDate(Plage As Range)
   
    Dim Cel As Range
    Dim Nb As Integer
    Dim LaDate As Date
   
    For Each Cel In Plage
   
        If Cel.Interior.Color = Range(Application.Caller.Address).Interior.Color Then
            Nb = Nb + 1: LaDate = Cel.Value
        End If
       
    Next Cel
   
    Select Case Nb
   
        Case 0: TrouveDate = "Non défini"
        Case Is > 1: TrouveDate = "Trop de dates"
        Case Is = 1: TrouveDate = LaDate
       
    End Select
       
End Function

que tu utilises de cette façon : =TrouveDate($F3:$AJ3) à tirer vers le bas !

 

[antaninhio]

Ça marche super!! Merci beaucoup Theze!