Autres (RESOLU) COLORER LA CELLULE PAR CLIC

job75

XLDnaute Barbatruc

• 4 Janvier 2022

• #2

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+

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 4 Janvier 2022

• #3

Bonjour JOB
C'est nickel.
Merci

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 7 Janvier 2022

• #4

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+

Cliquez pour agrandir...

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

 

Pièces jointes

• Charlie colorer les cellules.xlsm

  17.8 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Janvier 2022

• #5

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+

 

Pièces jointes

• Charlie colorer les cellules(1).xlsm

  20.4 KB · Affichages: 6

Vote positif 0 Vote négatif

Solution

chaelie2015

XLDnaute Accro

• 7 Janvier 2022

• #6

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

 

Vote positif 0 Vote négatif