Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…