Colorer la ligne active

Bonjour

Je souhaite colorer la ligne active dans une plage de données. Grace à l'excellent au site http://cooking-excel.com/ j'ai réussi à faire ce que je voulais...

J'ai donc un plage (C17:D32), et j'ai créer sur cette plage une mise en forme conditionnel avec comme formule:

=LIGNE($C17)=$B$17

En b17, j'ai la formule suivante:

=MIN(MAX(LIGNE(C17);CELLULE("ligne"));LIGNE(C32))

Grace à cette formule la selection est borné en haut et en bas du tableau et affiche soit la 1er ligne, soit la derniere ligne du tableau et c'est parfait....

Est il possible de faire la meme chose pour les colonnes situé à droite?

Exemple:

je clique sur D18, la ligne se mets en surbrillance. Si maintenant je clique sur K30 et bien la ligne C30:D30 Qui s'y mets...Alors que je ne souhaite pas changer la sélection...

Merci pour votre aide

Bonjour,

Sans mise en forme conditionnelle, en utilisant l'évènement SelectionChange de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C17:D32")) Is Nothing Then
        With Range("C17:D32")
            .Interior.ThemeColor = xlThemeColorDark2
            .Font.ColorIndex = xlAutomatic
            .Font.Bold = False
        End With
        With Range(Cells(Target.Row, 3), Cells(Target.Row, 4))
            .Interior.Color = 6750207
            .Font.Color = -16777024
            .Font.Bold = True
        End With
    End If
End Sub

Bonjour oyobrans

Je te remercie, ca correspond exactement à ce que je souhaitais.

Si je peut me permêtre une petite question complémentaire...

Est il possible de récuperer, le contenu de la cellule selectionner (colonne C, Id Article) et de le copier dans une cellule du classeur (par ex B18), pour l'utiliser comme critère dans un filtre?

Merci pour ton aide...

Bonsoir,

Tu peux ajouter cette ligne avant le End If :

Worksheets("Base").Range("$A$1:$A$69").AutoFilter Field:=1, Criteria1:=Target.Cells(1, 1)