Autres (RESOLU) COLORER LA CELLULE PAR CLIC

[chaelie2015]

Bonjour Forum
Mon souci est :
si je clic sur n'importe quelle cellule de la ligne 7(par exemple) alors colorer la cellule B temporairement qui correspond a cette ligne 7 et lorsque je reclic sur une autre ligne elle repasse en blanc.
exemple : si clic sur E7 alors colorer B7
si je clic sur C7 alors colorer B7
si je clic sur D12 alors colorer B12

Merci par avance

 

[job75]

Bonjour chaelie2015,

La macro dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [B7:B100] 'plage à adapter
    .Interior.ColorIndex = xlNone 'RAZ
    If Not Intersect(ActiveCell.EntireRow, .Cells) Is Nothing Then _
        Intersect(ActiveCell.EntireRow, .Cells).Interior.ColorIndex = 6 'jaune
End With
End Sub

A+

 

[chaelie2015]

Bonjour JOB
C'est nickel.
Merci

 

[chaelie2015]

Bonjour chaelie2015,

La macro dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [B7:B100] 'plage à adapter
    .Interior.ColorIndex = xlNone 'RAZ
    If Not Intersect(ActiveCell.EntireRow, .Cells) Is Nothing Then _
        Intersect(ActiveCell.EntireRow, .Cells).Interior.ColorIndex = 6 'jaune
End With
End Sub

A+

Bonjour Forum, JOB
Je souhaite compléter le code JOB par colorer encore les colonnes
exemple
si je sélectionne j11 alors colorer automatiquement la cellule B11 ( c'est fait) et le J6
si je sélectionne AL24 alors colorer automatiquement la cellule B24 ( c'est fait) et le AL6
et ainsi de suite.
Merci par avance

 

[job75]

Bonjour chaelie2015,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [B7:AP45] 'plage à adapter
    .Columns(1).Interior.ColorIndex = xlNone 'RAZ
    .Rows(0).Interior.ColorIndex = 15 'gris
    If Not Intersect(ActiveCell, .Cells) Is Nothing Then _
        Union(ActiveCell(.Row - ActiveCell.Row), ActiveCell(1, .Column - ActiveCell.Column + 1)).Interior.ColorIndex = 6 'jaune
End With
End Sub

A+

 

[chaelie2015]

Bonjour JOB
Merci pour la réponse, c'est parfait.
A+