1 pièce(s) jointe(s)
mettre ligne et colonne de la cellule sélectionnée en gras
Bonjour,
J'ai un tableau qui ressemble à ceci :
Pièce jointe 549602
Celui-ci peut évoluer quant aux nombres de lignes et de colonnes.
Je souhaite que la ligne et la colonne de la cellule sélectionnée soit en gras même si cette dernière est vide. (ex : D5 de mon tableau exemple)
J'ai trouvé de bout de code mais il ne se limite à mon tableau. En effet si je suis en C6, il met en couleur la ligne et la colonne alors que cette ligne ne doit pas être considérée.
De plus, si je me mets en D7, c'est uniquement la cellule qui a de la couleur.
J'espère que c'est clair.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = Range("a1").CurrentRegion
' Clear the color of all the cells
Cells.Interior.ColorIndex = 0
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
With ActiveCell
' Highlight the row and column that contain the active cell, within the current region
Range(Cells(.Row, .CurrentRegion.Column), Cells(.Row, .CurrentRegion.Columns.Count + .CurrentRegion.Column - 1)).Interior.ColorIndex = 8
Range(Cells(.CurrentRegion.Row, .Column), Cells(.CurrentRegion.Rows.Count + .CurrentRegion.Row - 1, .Column)).Interior.ColorIndex = 8
End With
Application.ScreenUpdating = True
End Sub |
Merci beaucoup.
