Microsoft 365 mettre en surbrillance

sebjbd85

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonjour sebjbd85, le forum,

Collez cette macro dans le code de la feuille :
VB:
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

XLDnaute Barbatruc
Si l'on veut que la cellule active ne soit pas en surbrillance c'est plus compliqué :
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 730
Messages
2 081 978
Membres
101 854
dernier inscrit
micmag26