Autres (RESOLU) COLORER LA CELLULE PAR CLIC

chaelie2015 · 4 Janvier 2022

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 · 7 Janvier 2022

Bonjour chaelie2015,

VB:

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+

job75 · 4 Janvier 2022

Bonjour chaelie2015,

La macro dans le code de la feuille :

VB:

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 · 4 Janvier 2022

Bonjour JOB
C'est nickel.
Merci

chaelie2015 · 7 Janvier 2022

job75 à dit:

Bonjour chaelie2015,

La macro dans le code de la feuille :

VB:

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 · 7 Janvier 2022

Bonjour chaelie2015,

VB:

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 · 7 Janvier 2022

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

Autres (RESOLU) COLORER LA CELLULE PAR CLIC

chaelie2015

XLDnaute Accro

job75

job75

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

chaelie2015

XLDnaute Accro

Discussions similaires