Activer une cellule en fonction d'une couleur

Bonjour,

Sur la feuille 2 , cellule A1, j'ai la cellule rempli d'une certaine couleur

Comment activer la cellule correspondante à cette même couleur sur la feuil 1 sur la ligne 5 ?

Merci de votre aide

Bonjour User_695,

Pourrais tu joindre un fichier ?

De plus je ne saisi pas bien ce que tu souhaites faire dans la feuille 1

Désolé si je n'ai pas été assez clair. Je joins un fichier. Je souhaite seulement sélectionner la cellule en feuille 1 (Range( "x5").Select) qui a la même couleur que la cellule A1 en feuille 2. Ensuite je fais appel à une procédure déjà existante. Merci

J'ai une solution à te proposer, la macro se déclenche avec le bouton recherche,

Sub recherche()

Dim Cel As Range
Dim x As Integer, y As Integer

For Each Cel In Range("A:A")
    If Cel.Interior.Color = Worksheets("Feuil2").Range("A1").Interior.Color Then
        Cel.Select
        x = ActiveCell.Row
        y = ActiveCell.Column
        MsgBox "Cellule trouvée :" & Cel(y, 1).Address&
        Exit For
    End If

Next Cel

End Sub

Par contre, cela marche quand les données sont en colonne

Je te joints le fichier sur lequel j'ai travaillé

En espérant que ça répond à ta requête

A+