Comment mettre les ligne active et la colonne active en surbrillance ?

**morobaboumar** · 11/03/2020, 22h32

Bonsoir membres du forum,
La ligne active et la colonne active sont surlignées sur réception du curseur(la sourie).
Quelle est la méthode à appliquer ?

Cordialement.

**ARTURO83** · 12/03/2020, 03h07

Bonjour,

code à copier dans le module de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static DerLig As Long 'déclare la variable DerLig en static
    Static DerCol As Long 'déclare la variable DerCol en static
    If Target.Count > 1 Then Exit Sub 'Si plus d'une cellule sélectionnées, alors on sort
    If DerLig <> 0 And DerCol <> 0 Then
        Rows(DerLig).Interior.ColorIndex = xlNone 'remettre la précédente ligne sélectionnée en normal
        Columns(DerCol).Interior.ColorIndex = xlNone 'remettre la précédente colonne sélectionnée en normal
    End If
    Target.EntireRow.Interior.ColorIndex = 6 'Surligne la ligne en jaune
    Target.EntireColumn.Interior.ColorIndex = 6 'Surligne la colonne en jaune
    DerLig = Target.Row 'méorise le numéro de la ligne
    DerCol = Target.Column 'méorise le numéro de la colonne
End Sub

Pour accéder au module VBA, faire ALT + F11 , sélectionnez le nom de la feuille dans la partie gauche et copiez le code précédent dans la partie droite, comme ci-dessous
Pièce jointe 545150

Cdlt

**Patrice740** · 12/03/2020, 08h46

Bonjour le Fil
Bonjour Arturo,

En utilisant un Range statique, ça fonctionnera aussi lors d'une sélection multiple (colonne, ligne, zone).
Bien évidemment, il manquera encore le cas (peu utilisé) du déplacement de la cellule active dans une zone sélectionnée (qui ne provoque pas SelectionChange), mais ça ne peut pas être fait à la souris (demande initiale).

Code VBA-E :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static cel As Range
  If Not cel Is Nothing Then
    cel.EntireRow.Interior.ColorIndex = xlNone 'remettre la précédente ligne sélectionnée en normal
    cel.EntireColumn.Interior.ColorIndex = xlNone 'remettre la précédente ligne sélectionnée en normal
  End If
  Set cel = ActiveCell
  cel.EntireRow.Interior.ColorIndex = 6
  cel.EntireColumn.Interior.ColorIndex = 6
End Sub

**boisgontierjacques** · 12/03/2020, 09h32

Bonjour,

Il y a plusieurs méthodes.
Certaines suppriment les couleurs de fond.
En Pj, quelques méthodes qui ne modifient pas la couleur de fond.

Boisgontier

**morobaboumar** · 12/03/2020, 13h14

Envoyé par ARTURO83

Bonjour,
code à copier dans le module de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static DerLig As Long 'déclare la variable DerLig en static
    Static DerCol As Long 'déclare la variable DerCol en static
    If Target.Count > 1 Then Exit Sub 'Si plus d'une cellule sélectionnées, alors on sort
    If DerLig <> 0 And DerCol <> 0 Then
        Rows(DerLig).Interior.ColorIndex = xlNone 'remettre la précédente ligne sélectionnée en normal
        Columns(DerCol).Interior.ColorIndex = xlNone 'remettre la précédente colonne sélectionnée en normal
    End If
    Target.EntireRow.Interior.ColorIndex = 6 'Surligne la ligne en jaune
    Target.EntireColumn.Interior.ColorIndex = 6 'Surligne la colonne en jaune
    DerLig = Target.Row 'méorise le numéro de la ligne
    DerCol = Target.Column 'méorise le numéro de la colonne
End Sub

Pour accéder au module VBA, faire ALT + F11 , sélectionnez le nom de la feuille dans la partie gauche et copiez le code précédent dans la partie droite, comme ci-dessous
Pièce jointe 545150
Cdlt

Bonjour membres du forum,
bonjour ARTURO83,
très heureux d'être avec vous.
je viens d'appliquer votre code et voici l'erreur à aperçu:

Nom : CaptureExcel_SurbrillanceLigneColonne_3.PNG
Affichages : 2290
Taille : 113,0 Ko

Nom : CaptureExcel_SurbrillanceLigneColonne_3.PNG
Affichages : 2290
Taille : 113,0 Ko

Nom : CaptureExcel_SurbrillanceLigneColonne_1.PNG
Affichages : 2238
Taille : 50,9 Ko

Nom : CaptureExcel_SurbrillanceLigneColonne_2.PNG
Affichages : 2242
Taille : 42,6 Ko

Cordailement.

**morobaboumar** · 12/03/2020, 13h30

Envoyé par Patrice740

Bonjour le Fil
Bonjour Arturo,
En utilisant un Range statique, ça fonctionnera aussi lors d'une sélection multiple (colonne, ligne, zone).
Bien évidemment, il manquera encore le cas (peu utilisé) du déplacement de la cellule active dans une zone sélectionnée (qui ne provoque pas SelectionChange), mais ça ne peut pas être fait à la souris (demande initiale).

Code VBA-E :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static cel As Range
  If Not cel Is Nothing Then
    cel.EntireRow.Interior.ColorIndex = xlNone 'remettre la précédente ligne sélectionnée en normal
    cel.EntireColumn.Interior.ColorIndex = xlNone 'remettre la précédente ligne sélectionnée en normal
  End If
  Set cel = ActiveCell
  cel.EntireRow.Interior.ColorIndex = 6
  cel.EntireColumn.Interior.ColorIndex = 6
End Sub

Bonjour Patrice740,
Voici le message d'erreur suite à exécution de votre code:

Nom : CaptureExcel_SurbrillanceLigneColonne_4.PNG
Affichages : 2232
Taille : 52,0 Ko

Nom : CaptureExcel_SurbrillanceLigneColonne_4.PNG
Affichages : 2232
Taille : 52,0 Ko

Nom : CaptureExcel_SurbrillanceLigneColonne_5.PNG
Affichages : 2223
Taille : 24,3 Ko

Cordialement.

**morobaboumar** · 12/03/2020, 14h02

Envoyé par boisgontierjacques

Bonjour,
Il y a plusieurs méthodes.
Certaines suppriment les couleurs de fond.
En Pj, quelques méthodes qui ne modifient pas la couleur de fond.
Boisgontier

Bonjour boisgontierjacques,
la méthode que j'ai choisie est: "CurseurLigneColMFC"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set champ = Range("A1:M20")
  If Me.CheckBox1 Then
    If Not Intersect(champ, Target) Is Nothing Then
      champ.FormatConditions.Delete
      If Target.Count = 1 Then
        Union(Intersect(Target.EntireRow, champ), _
        Intersect(Target.EntireColumn, champ)).FormatConditions.Add Type:=xlExpression, Formula1:="VRAI"
        Union(Intersect(Target.EntireRow, champ), _
        Intersect(Target.EntireColumn, champ)).FormatConditions(1).Interior.ColorIndex = 36
        'Target.FormatConditions(1).Font.Bold = True
      End If
    End If
  Else
    champ.FormatConditions.Delete
  End If
End Sub

Voici la capture d'erreur:

Nom : CaptureExcel_SurbrillanceLigneColonne_6.PNG
Affichages : 2194
Taille : 46,6 Ko

Nom : CaptureExcel_SurbrillanceLigneColonne_7.PNG
Affichages : 2302
Taille : 37,6 Ko

Cordialement.

**Patrice740** · 12/03/2020, 18h18

Bonjour,
Tu n'as pas ajouté le Checkbox sur la feuille !
Il sert à activer / désactiver le surlignage.
Si tu n'en a pas besoin, supprimes la ligne en Erreur (bleue) et le End If correspondant

**morobaboumar** · 12/03/2020, 19h20

Envoyé par Patrice740

Bonjour,
Tu n'as pas ajouté le Checkbox sur la feuille !
Il sert à activer / désactiver le surlignage.
Si tu n'en a pas besoin, supprimes la ligne en Erreur (bleue) et le End If correspondant

Bonsoir Patrice740,
j'ai effectué ce que vous m'avez suggéré:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set champ = Range("A1:N90")
  'If Me.CheckBox1 Then
    If Not Intersect(champ, Target) Is Nothing Then
      champ.FormatConditions.Delete
      If Target.Count = 1 Then
        Union(Intersect(Target.EntireRow, champ), _
        Intersect(Target.EntireColumn, champ)).FormatConditions.Add Type:=xlExpression, Formula1:="VRAI"
        Union(Intersect(Target.EntireRow, champ), _
        Intersect(Target.EntireColumn, champ)).FormatConditions(1).Interior.ColorIndex = 36
        'Target.FormatConditions(1).Font.Bold = True
      'End If
    End If

Peut on gérer les erreurs avec ce code car lorsque la feuille est protégée, un Click sur elle renvoie des messages d’erreurs ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

currentdb.execute ..., dbfailonerror

Nom : CaptureExcel_SurbrillanceLigneColonne_8.PNG
Affichages : 2561
Taille : 112,4 Ko

Maintenant comment fait on pour changer la couleur des lignes active et colonne active ?
Cordialement.

**Patrice740** · 13/03/2020, 08h50

Bonjour,

Beaucoup de codes de JB modifient les cellules et donc posent problème avec des cellules protégées : il faut déprotéger avant la modification et re-protéger après.
Et pour changer la couleur, il suffit de changer la valeur du ColorIndex, voire le remplacer par un Color.

Je te suggère d'utiliser la méthode CurseurTarget qui ne fait que sélectionner l'union de la ligne et de la colonne sans modifier quoi que ce soit.

**morobaboumar** · 13/03/2020, 10h06

Envoyé par Patrice740

Bonjour,
Beaucoup de codes de JB modifient les cellules et donc posent problème avec des cellules protégées : il faut déprotéger avant la modification et re-protéger après.
Et pour changer la couleur, il suffit de changer la valeur du ColorIndex, voire le remplacer par un Color.
Je te suggère d'utiliser la méthode CurseurTarget qui ne fait que sélectionner l'union de la ligne et de la colonne sans modifier quoi que ce soit.

Bonjour Patrice740,
Pour conclure, en plus du code, il faut ajouter aussi la mise en forme conditionnelle.
N'est pas ?
Merci infiniment et à très bientôt.
Cordialement.

**boisgontierjacques** · 13/03/2020, 18h28

Bonjour,

Il doit y avoir des problèmes de protection.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set champ = Range("A1:M20")
  If Me.CheckBox1 Then
    If Not Intersect(champ, Target) Is Nothing Then
      champ.FormatConditions.Delete
      If Target.Count = 1 Then
        Union(Intersect(Target.EntireRow, champ), Intersect(Target.EntireColumn, champ)).FormatConditions.Add Type:=xlExpression, Formula1:="VRAI"
        Union(Intersect(Target.EntireRow, champ), Intersect(Target.EntireColumn, champ)).FormatConditions(1).Interior.ColorIndex = 36
        'Target.FormatConditions(1).Font.Bold = True
      End If
    End If
  Else
    champ.FormatConditions.Delete
  End If
End Sub

Boisgontier

**morobaboumar** · 13/03/2020, 18h57

Envoyé par boisgontierjacques

Bonjour,
Il doit y avoir des problèmes de protection.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set champ = Range("A1:M20")
  If Me.CheckBox1 Then
    If Not Intersect(champ, Target) Is Nothing Then
      champ.FormatConditions.Delete
      If Target.Count = 1 Then
        Union(Intersect(Target.EntireRow, champ), Intersect(Target.EntireColumn, champ)).FormatConditions.Add Type:=xlExpression, Formula1:="VRAI"
        Union(Intersect(Target.EntireRow, champ), Intersect(Target.EntireColumn, champ)).FormatConditions(1).Interior.ColorIndex = 36
        'Target.FormatConditions(1).Font.Bold = True
      End If
    End If
  Else
    champ.FormatConditions.Delete
  End If
End Sub

Boisgontier

Bonsoir boisgontierjacques,
Merci encore une fois je viens d'apprendre un grand plus à travers vos interventions.
Surtout la ligne de code suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Target.FormatConditions(1).Font.Bold = True

infiniment et à bientôt.
Cordialement.

Comment mettre les ligne active et la colonne active en surbrillance ? [XL-2013]

Excel

Discussions similaires

Partager

Partager