RechercheV donnée+couleur cellule

Bonjour,

Je suis en train de travailler sur un projet et j'aurais besoin de votre aide.

J'ai mit en fichier joint un exemple de ce sur quoi je travaille.

Je vous explique, j'ai mon tableau, grâce à la fonction recherchev je peux retrouver une cellule de mon tableau. Cependant je ne retrouve que la donnée de la cellule et non sa couleur.

Connaîtriez-vous un moyen de retranscrire la donnée de la cellule + sa couleur? Sachant que la couleur dépends de la cellule sélectionnée.

Je vous remercie d'avance.

Bonjour,

Une piste avec VBA à mettre dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)

     Dim Cel As Range

     If Target.Count > 1 Then Exit Sub
     If Intersect(Target, Range("I7:I9")) Is Nothing Then Exit Sub
     If IsError(Range("I11").Value) Then Exit Sub

     Set Cel = Range("B2:E6").Find(Range("I11").Value, , xlValues, xlWhole)

     If Not Cel Is Nothing Then Range("I11").Interior.Color = Cel.Interior.Color

End Sub

sinon, voir avec une MFC si c'est possible ?

Bonjour,

Je trouve que tu te compliques un peu :

Ligne : =EQUIV(I3;A3:A6;0)

Colonne : =EQUIV(I4;B2:E2;0)

Valeur finale : =INDEX(B3:E6;I7;I8)

Pour la couleur, il faudra soit passer par VBA, soit codifier un dispositif MFC qui te coloriera de la même façon les cellules de ton tableau et la cellule de recherche.

Cordialement.

Theze a écrit :

Bonjour,

Une piste avec VBA à mettre dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)

     Dim Cel As Range

     If Target.Count > 1 Then Exit Sub
     If Intersect(Target, Range("I7:I9")) Is Nothing Then Exit Sub
     If IsError(Range("I11").Value) Then Exit Sub

     Set Cel = Range("B2:E6").Find(Range("I11").Value, , xlValues, xlWhole)

     If Not Cel Is Nothing Then Range("I11").Interior.Color = Cel.Interior.Color

End Sub

sinon, voir avec une MFC si c'est possible ?

J'ai donc rentré le code dans la feuille mais malheureusement rien ne se passe..

MFerrand a écrit :

Bonjour,

Je trouve que tu te compliques un peu :

Ligne : =EQUIV(I3;A3:A6;0)

Colonne : =EQUIV(I4;B2:E2;0)

Valeur finale : =INDEX(B3:E6;I7;I8)

Pour la couleur, il faudra soit passer par VBA, soit codifier un dispositif MFC qui te coloriera de la même façon les cellules de ton tableau et la cellule de recherche.

Cordialement.

Je te remercie, je ne connaissais pas ces formules