Cellule en surbrillance

Fermé

mchotard Messages postés 415 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 18 mars 2024 - 25 mars 2023 à 12:32
The_boss_68 Messages postés 926 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 30 avril 2024 - 25 mars 2023 à 14:00

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

A voir également:

Cellule en surbrillance
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
Excel si cellule contient partie texte ✓ - Forum Excel

3 réponses

Réponse 1 / 3

eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
25 mars 2023 à 12:48

Bonjour,

redéfinis ton nom baseH sur les 2 colonnes D:E
eric

Réponse 2 / 3

mchotard Messages postés 415 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 18 mars 2024 38
25 mars 2023 à 13:25

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

Réponse 3 / 3

The_boss_68 Messages postés 926 Date d'inscription dimanche 15 novembre 2015 Statut Membre Dernière intervention 30 avril 2024 175
Modifié le 25 mars 2023 à 14:14

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

Discussions similaires

Excel si cellule contient texte alors...

=Si la cellule A1 a du texte = B1 devient couleur

Quel fonction faire en b1 par rapport à a1

Formule Excel : "SI" une cellule contient un mot, alors ?

excel fractionner une cellule horizontalement

Discussions similaires

Newsletters