Autres (RESOLU) COLORER LA CELLULE PAR CLIC

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

chaelie2015

XLDnaute Accro
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
 
Dernière édition:
Solution
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+
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 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
 

Pièces jointes

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
17
Affichages
261
Réponses
7
Affichages
418
Réponses
4
Affichages
549
Réponses
4
Affichages
243
Retour