Cellule en surbrillance
Bonjour,
Grace à ccm81 que je remercie à nouveau car la macro ci-dessous fonctionne très bien la lecture de mon fichier est plus facile car quand je sélectionne une cellules à AX 10 le nom de mon adhérent en colonne E se met en bleu. mais j'aimerais que la colonne 4 correspondant au prénom, puisse également se mettre en bleu.
Malgré plusieurs tentatives, je n'y arrive pas.
Option Explicit
Const plage = "baseH"
Const cocoul = 5
Const coul = 8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim li As Long, co As Long
li = Target.Row
co = Target.Column
If co = cocoul Then Exit Sub
If Not Intersect(Target, Range(plage)) Is Nothing Then
Range(plage).Interior.ColorIndex = xlNone
Cells(li, cocoul).Interior.ColorIndex = coul
End If
End Sub
Merci et bon WE
Windows / Chrome 111.0.0.0
3 réponses
-
Contributeur
Bonjour,
redéfinis ton nom baseH sur les 2 colonnes D:E
eric
-
Je viens d'essayer, mais ce n'est pas bon car "BaseH" correspond à l'ensemble des lignes et colonnes de mon fichier. Pour moi c'est Const cocoul = 5 qu'il faut soit modifier soit ajouter une autre constante.
Merci cependant pour ta réponse
A poursuivre
-
Bonjour,
Voir un truc comme ça? il faut au moins redéfinir ta base BaseH à partir de la colonne D
Option Explicit Const plage = "baseH" Const cocoule = 4 Const cocoul = 5 Const coul = 8 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim li As Long, co As Long li = Target.Row co = Target.Column If co = cocoule Then Exit Sub If co = cocoul Then Exit Sub If Not Intersect(Target, Range(plage)) Is Nothing Then Range(plage).Interior.ColorIndex = xlNone Cells(li, cocoule).Interior.ColorIndex = coul Cells(li, cocoul).Interior.ColorIndex = coul End If End SubSlts
