Surligner une ligne quand une cellule est sélectionnée

Bonjour,

Je cherche à surligner la ligne de la cellule sélectionnée. Dans mon planning j'importe les données d'absences, grâce à Yvouille . Pour ne pas surcharger le visuel j'ai enlevé la grille et n'est pas fais de ligne. J'ai figé ma colonne avec les noms, mais c'est a peine suffisant.

Une idée ???

Bonjour

Code de Feuille RECAP

Public old_color, old_sel
Option Explicit

Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not old_sel = "" Then Range(old_sel).EntireRow.Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = sel.EntireRow.Interior.ColorIndex
sel.EntireRow.Interior.ColorIndex = 36
End Sub

Remarque: Problème avec des cellules déjà en couleur

Cordialement

Bonsoir, c'est nickel pour surligner une ligne.

Si je sélectionne une autre cellule, cela surligne laligne aussi, sans pour autant plus surligner la première !!

Ce qui me donne, si je sélectionne plusieurs cellules, de nombreuses lignes surlignées. Du coup cela perd un peu de son intérêt

Serait-il possible si je change de cellule que la première ligne soit remis à zéro et que la suivante soit surlignée???

A te relire, après cet excellent début.

Leakim

Ps: pour la coloration des cellules sous MFC, c'est pas gênant, l'idée c'est d'aider à la lecture, de faire un guide visuel.

J'ai essayé çà avec un bouton en plus

Sub clear_ligne()
'
' clear_ligne Macro
'

'
    Rows("6:34").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

Bonjour

Puisque la MFC ne dérange pas, c'est beaucoup plus simple

La formule de la MFC à appliquer sur ton tableau

=CELLULE("ligne")=LIGNE()

Cordialement

Bonsoir, Alors là ... là ... c'est du grand ART

Merci c'est nickel !!!

Au plaisir,

Leakim

A l'attention de " Amadeus "

Bonsoir, j'ai également utilisé ta solution pour surligner, 7 mais depuis il n'est plus possible de faire copier-coller, ni collage spécial.

Aurrais-tu une parade à ce pt souci????

Roland

Bonjour a tous

Votre code marche tres bien

Public old_color, old_sel
Option Explicit

Sub Worksheet_SelectionChange(ByVal sel As Range)
If Not old_sel = "" Then Range(old_sel).EntireRow.Interior.ColorIndex = old_color
old_sel = sel.Address
old_color = sel.EntireRow.Interior.ColorIndex
sel.EntireRow.Interior.ColorIndex = 36
End Sub

Parcontre jai la colonne 6 et 7 qui présente déja des couleurs ..comment faire pour les garder ?