Cellule en surbrillance
The_boss_68 Messages postés 952 Date d'inscription Statut Membre Dernière intervention -
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
- Cellule en surbrillance
- Excel cellule couleur si condition texte - Guide
- Proteger cellule excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule ✓ - Forum Excel
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
3 réponses
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 Sub
Slts
