Microsoft 365 mettre en surbrillance

[sebjbd85]

Bonsoir,

je souhaite que lorsque je sélectionne une cellule, la ligne (et/ou la colonne) complète se mette en surbrillance sans modifier ma mise en page ou mes mises en forme conditionnelle.
Merci d'avance

 

[job75]

Bonjour sebjbd85, le forum,

Collez cette macro dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
Union(Target.EntireRow, Target.EntireColumn).Select
Target.Activate
End Sub

A+

 

[job75]

Si l'on veut que la cellule active ne soit pas en surbrillance c'est plus compliqué :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
Dim P1 As Range, P2 As Range, P3 As Range, P4 As Range
If Target.Row > 1 Then Set P1 = Target.EntireColumn.Resize(Target.Row - 1) Else Set P1 = Target
If Target.Row < Rows.Count Then Set P2 = Target(2).Resize(Rows.Count - Target.Row) Else Set P2 = Target
If Target.Column > 1 Then Set P3 = Target.EntireRow.Resize(, Target.Column - 1) Else Set P3 = Target
If Target.Column < Columns.Count Then Set P4 = Target(1, 2).Resize(, Columns.Count - Target.Column) Else Set P4 = Target
Union(Target, P1, P2, P3, P4).Select
Target.Activate
End Sub

 

[sebjbd85]

Merci job75, c'est exactement ce que je voulais