Discussion :

[jean30]

Bonjour à la communauté,
Sachant que j'ai une Mfc qui me colore une ligne sur deux.
Je cherche à mettre en surbrillance la ligne lors de la sélection d'un nom en colonne A
et uniquement dans ce cas.
Je ne voudrais pas qu'en cliquant dans une cellule autre que cette ligne sélectionné en colonne A
la mise en surbrillance change.
En vous remerciant.

[marot_r]

Bonjour.

Juste pour être sûr.

Est-ce que tu veux que la ligne soit mise en évidence si tu as une données dans la colonne A ?

Si tu as plusieurs lignes qui ont des données en colonne A doivent-elles, elles aussi, être mise en évidence ou seulement la ligne "active" ?

A+

[jean30]

Bonsoir marot
Merci de me répondre,
C'est seulement la ligne "active" lors de la sélection du nom, qui reste en surbrillance jaune par exemple
même si l'on clique dans d'autre cellules autre que dans la colonne A
Clique sur autre nom, la ligne se met en surbrillance
Tout clique dans autre cellule que la colonne A doivent être sans effet
J'ai plus de 500 noms en colonne A et prénoms en colonne B

[Menhir]

Est-ce que tu utilises le terme "nom" au sens où l'entend Excel ?
Parce que dans ce cas, je ne comprends pas comment on pourrait "cliquer sur un nom"...

La notion de surbrillance n'existe pas dans Excel.
Donc il faudrait que tu expliques plus clairement ce que tu souhaites.

Si ce que tu souhaites c'est modifier la couleur de fond, le problème ne sera pas de modifier la couleur de la ligne sélectionnée mais de revenir à la couleur précédente quand elle sera désélectionnée.

En plus, si tu as déjà une MFC qui colore tes cellule, elle prévaut sur la couleur par défaut de la cellule.
Donc il faudrait passer par une autre MFC qui soit prioritaire sur celle-là et modifier sa zone d'application en fonction de la sélection.

[jean30]

Bonjour Menhir,
En tout premier, je te remercie de t'intéresser à ma demande qui peut paraître farfelue.

La MFC sur la feuille "Données" est issue de :

Code :

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

=MOD(LIGNE() ;2)

A partir de cette macro de toi, trouvée ici :
https://www.developpez.net/forums/d1...-surbrillance/

Code :

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

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Interior.ColorIndex = 3
 End Sub

Je désirerai que la ligne "active" lors de la sélection d'un Nom en colonne A, se colore (jaune par exemple), et reste dans cette couleur même si l'on clique dans d'autre cellules autre que dans la colonne A
En plus clair peut être, seulement lors de la sélection d'un Nom en colonne A la ligne devient (jaune par exemple)

En te remerciant.

[Menhir]

Il suffit de rajouter dans la macro une vérification du muméro de colonne de la cellule sélectionnée.

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Column > 1 Then Exit Sub
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Interior.ColorIndex = 3
End Sub

[jean30]

Merci beaucoup Menhir c'est impeccable
Bonne soirée

[jean30]

Il suffit de rajouter dans la macro une vérification du muméro de colonne de la cellule sélectionnée.

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Column > 1 Then Exit Sub
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Interior.ColorIndex = 3
End Sub

J’essaie de modifier le code ainsi :

Code :

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

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Column > 1 Then Or Target.Column > 2 Then    ‘je suppose que 1 ou 2 concerne la colonne A ou B
Else
Exit Sub

Ou sans succès :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Column > 1 Then Exit Sub  ‘je suppose que cela concerne la colonne A
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Interior.ColorIndex = 36
            Else
     If Target.Column > 2 Then Exit Sub  ‘je suppose que cela concerne la colonne B
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Interior.ColorIndex = 36
End Sub

Ci-dessous le code complet dans 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
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Option explicit
Private Declare Function GetKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim FC As FormatCondition
    Dim SélectionOK As Boolean
    Static NomValue As Long
    Static CheckNom As Boolean
    Static CheckFC As Boolean
    Const Nom = "Ligne"
    Const NomValueNA = -1
    Const Formule = "=LIGNE(A1)=Ligne"
    Const SélectionTouches = False
    Const SélectionClick = True
 
    Application.EnableEvents = False
    Application.ScreenUpdating = False
 
'Identifier comment la sélection s'est effectuée (codes touches https://docs.microsoft.com/fr-fr/windows/win32/inputdev/virtual-key-codes)
'If Not GetAsyncKeyState(vbKeyLButton) Then 'NE FONCTIONNE PAS TOUJOURS, SINON UTILISER LE STATUS DES TOUCHES DE DÉPLACEMENT (ci-dessous)
    If GetKeyState(vbKeyPageUp) And &H8000 _
    Or GetKeyState(vbKeyPageDown) And &H8000 _
    Or GetKeyState(vbKeyEnd) And &H8000 _
    Or GetKeyState(vbKeyHome) And &H8000 _
    Or GetKeyState(vbKeyLeft) And &H8000 _
    Or GetKeyState(vbKeyUp) And &H8000 _
    Or GetKeyState(vbKeyRight) And &H8000 _
    Or GetKeyState(vbKeyDown) And &H8000 _
    Or GetKeyState(vbKeySelect) And &H8000 _
    Then
        If SélectionTouches Then SélectionOK = True
    Else
        If SélectionClick Then SélectionOK = True
    End If
 
    'Vérifier si Nom "Ligne" existe
    If Not CheckNom Then
        On Error Resume Next
        ActiveWorkbook.Names.Add Name:=Nom, RefersTo:="=" & NomValueNA
        On Error GoTo 0
 
        CheckNom = True
    End If
 
    'Initlaiser valeur de "Ligne"
    If NomValue = 0 Then
        NomValue = CLng(Replace(ActiveWorkbook.Names(Nom).Value, "=", ""))
    End If
 
    'Vérifier si Format Condition existe
    If Not CheckFC Then
        For Each FC In Cells.FormatConditions
            If FC.Type = xlExpression And FC.Formula1 = Formule Then Exit For
        Next FC
 
   'Format Condition n'existe pas: la créer
    If FC Is Nothing Then
        Call BaseUnProtect
        Set FC = Cells.FormatConditions.Add(Type:=xlExpression, Formula1:=Formule)
        FC.Interior.Color = 13434879
        FC.Priority = 1
         Call BaseProtect
    End If
 
        CheckFC = True
 
    End If
 
    'Ajuste "Ligne" selon la sélection pour appliquer la Format Condition    If NomValue <> Target.Row _
    And SélectionOK _
    And Target.Row > 1 _
    And Target.Column <= 2 _
    Then
        NomValue = Target.Row
        ThisWorkbook.Names(Nom).RefersTo = "=" & NomValue
    End If
 
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

[Menhir]

Code :

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

1
2
3
If Target.Column > 1 Then Or Target.Column > 2 Then    ‘je suppose que 1 ou 2 concerne la colonne A ou B
Else
Exit Sub

D'abord, les erreurs de syntaxe :

• Le premier Then n'a rien à faire là
• Le Else ne sert à rien
• Quand la structure If n'est pas sur une seule ligne, il faut la terminer par un EndIf

Ensuite les erreurs logique.
Essaye de réfléchir deux secondes à ce que signifie

Code :

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

Target.Column > 1 Or Target.Column > 2

.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Column > 1 Then Exit Sub  ‘je suppose que cela concerne la colonne A
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Interior.ColorIndex = 36
     Else
     If Target.Column > 2 Then Exit Sub  ‘je suppose que cela concerne la colonne B
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Interior.ColorIndex = 36
End Sub

D'abord, même erreur logique que dans le précédent entre le >1 et >2.

Ensuite une erreur de syntaxe : le If et l'action qu'il déclenche étant sur la même ligne, la portée de cette structure ne va pas au-delà de cette ligne.
Donc à quoi se rattache le Else qui apparait quelques lignes plus loin ?

On a l'impression que tu copies du code sans chercher à le comprendre, ce qui fonctionne rarement.

[jean30]

Bonjour Menhir,
Je te remercie de me venir en aide

On a l'impression que tu copies du code sans chercher à le comprendre, ce qui fonctionne rarement.

Désolé, vraiment, mais oui, j'ai du mal à comprendre, conséquence de 2 AVC c'est très dur pour moi

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Column > 1 Then Exit Sub
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Interior.ColorIndex = 36
     Else
     If Target.Column > 2 Then Exit Sub
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Interior.ColorIndex = 36
End Sub

Avec le code que tu as mis j'obtiens Else sans If
En supprimant le Else, le code ne fonctionne pas pour les lignes paires

[Menhir]

Avec le code que tu as mis j'obtiens Else sans If

Ce n'est pas mon code mais le tien.
Et je t'ai précisé que le Else qui s'y trouve n'a pas de raison d'être.

Pour t'aider à comprendre le problème de ton code, voici deux question :
A ton avis, que fait la ligne : If Target.Column > 1 Then Exit Sub (ça peut se comprendre même en littéral avec un niveau d'anglais de collège)
Comprenant cette ligne, est-ce que tu penses qu'il y a une chance que se déclenche la condition If Target.Column > 2 Then Exit Sub

[jean30]

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Column > 2 Then Exit Sub
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Interior.ColorIndex = 36
End Sub

En prenant ce code, ça fonctionne bien lors clic colonne A ou B mais que pour les lignes impaires
Je te remercie de ta grande patience envers moi

[Menhir]

que pour les lignes impaires

Je ne vois rien dans ce code qui l'empêcherait de fonctionner pour les lignes paires

[jean30]

C'est pourtant le cas

[Menhir]

Etant donné que j'ai testé ce code et qu'il fonctionne aussi bien pour les lignes paires que impaires, la cause du problème est vraisemblablement un éléments que tu ne présentes pas dans ton message #12.

[jean30]

Le code est le même, je suis complétement perdu, je remet le code :

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     If Target.Cells.Column > 2 Then Exit Sub
     Cells.Interior.ColorIndex = xlNone
     Target.EntireRow.Interior.ColorIndex = 36
End Sub

Je viens de supprimer tous les enregistrements et là ça fonctionne, bizarre
Je copie et collage spécial valeurs et même problème

[Menhir]

Le code est le même, je suis complétement perdu, je remet le code :

Tu pourras le remettre 10 fois, ça ne changera rien : ce code fonctionne.
Tant que tu ne donneras pas d'informations sur "le reste", il sera impossible de savoir d'où vient ton problème.

Je viens de supprimer tous les enregistrements et là ça fonctionne, bizarre

Qu'est-ce que tu as supprimé ?

Je copie et collage spécial valeurs et même problème

Il n'y a pas de "Copy" ni de "Collage spécial" dans le code que tu montres.

[jean30]

Tu pourras le remettre 10 fois, ça ne changera rien : ce code fonctionne.
Tant que tu ne donneras pas d'informations sur "le reste", il sera impossible de savoir d'où vient ton problème.

De quel reste me parle-tu ?

Qu'est-ce que tu as supprimé ?

J'ai effacé les données de la feuille (colonne A:O) sélection et touche Suppr

Il n'y a pas de "Copy" ni de "Collage spécial" dans le code que tu montres.

Pris copier à partir de l'original et fait un collage spécial valeurs sur ce que j'ai effacé sur l'autre classeur

Désolé de t'accaparer tant Menhir, mais en plus de mes 2 AVC à quelques mois d'intervalle + début Alzheimer, ça ne va pas s'arranger et ça devient impossible pour moi de me concentrer

Je compte très sincèrement sur toi (pour copier ton code c'est vrai) si tu accepte bien sur
Je peux te transmettre en MP le classeur confidentiel, car je ne veux plus rien effacer ou corriger dessus
Si refus de ta part, compréhensible je ferai sans cette fonction

En te remerciant

[Menhir]

Je crois que j'ai compris en relisant tes premiers posts : il y a une MFC dans ta feuille qui colore une ligne sur deux.
Et comme une MFC surpasse un format de cellule, cette macro semble ne pas s'appliquer aux lignes modifiées par la MFC.

[jean30]

Bonjour Menhir
Effectivement, je l'avais signalé dans mon premier post
N'y a-t-il pas possibilité de supprimer cette MFC en début de code et la remettre à la fin ?
En te remerciant