Colorisation a la sélection

Bonjour a tous,

J'ai une erreur a l'execution d'une macro que je ne comprend pas.

En fait dans la feuille 2 de mon classeur, lorsque je clic sur une cellule de la colonne I

Je souhaiterais que chaque cellule de la sélection (ici de B2 à G53) qui est identique a la cellule sur laquelle je clique se colore en vert(par ex)

Mais a l'execution cela ne fonctionne pas....

Quelqu'un pourrait il y jeter un oeil?

Merci

Bonjour,

j'ai mis jaune mais je te laisse trouver les codes index color pour changer.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Dim l%, Dl%, Dc%
Dl = Cells(Rows.Count, 1).End(xlUp).Row
Dc = 7 ' ou Cells(1, Columns.Count).End(xlToLeft).Column pour colonne I
Cells.Interior.ColorIndex = 2
l = ActiveCell.Row
Range(Cells(l, 1), Cells(l, Dc)).Interior.ColorIndex = 36

End Sub

Ooops color de Colonne A à G pour colorer de B à G il suffit de changer le chiffre de la colonne de départ :

Range(Cells(l, 2), Cells(l, Dc)).Interior.ColorIndex = 36

Merci pour ta réponse, mais cela ne donne pas le résultat voulu, ce que je voudrais c'est que si je clique sur une valeur dans la colonne I, il me colore ces même valeurs dans la Le range LA partie se trouvant de (B2:G53)

Je vais montré ce que je souhaite manuellement

Dans mon exemple si je sélectionne I2 il me colore les résultat mit en vert (ex) idem pour I19 (je les ai mis en une autre couleur juste pour différencier)

Salut Damsa17,
Salut Xmenpl,

comme ceci, sans doute...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'
Dim rCel As Range, iIdx%
'
If Not Intersect(Target, Columns("I")) Is Nothing And Target.Row > 1 And Target <> "" Then
    Application.ScreenUpdating = False
    Range("I2:I" & Range("I" & Rows.Count).End(xlUp).Row).Interior.Color = xlNone
    Range("B2:G" & Range("A" & Rows.Count).End(xlUp).Row).Interior.Color = xlNone
    Target.Interior.Color = RGB(145, 210, 80)
    For Each rCel In Range("B2:G" & Range("A" & Rows.Count).End(xlUp).Row)
        If rCel = Target Then _
            rCel.Interior.Color = RGB(145, 210, 80): _
            iIdx = iIdx + 1
    Next
    Application.ScreenUpdating = True
    MsgBox IIf(iIdx = 0, "Pas d'occurrence !", iIdx & IIf(iIdx = 1, " occurrence rencontrée !", " occurrences rencontrées !"))
End If
'
End Sub

A+

Ouiiiii Merci c'est exactement ce que je voiulais

Re Damsa

Bonjour Curulis

effectivement çà n'avait pas rapport avec une recherche de ligne mais plutôt à une colorisation de cellules trouvées dans une plage.