Mettre surbrillance une cellule en fonction de l'activecell Résolu/Fermé

Question

Bonjour,

Je débute en VBA et je bloque sur un code...

Ayant beaucoup de personnels à gérer au boulot, je cherche à faire en sorte que quand je sélectionne une cellule (donc l'activecell), cela me mettre en surbrillance le nom du personnel. La range de mes personnels est ("C23:C58"). J'ai essayé ça mais ça ne fait rien du tout. Je dois passer à côté de quelque chose :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim StaffNames As Range
    Dim FirstCellRow As Range
    Set StaffNames = Range("C1:C10")
    Set FirstCellRow = Cells(1, ActiveCell.Column)
    
    On Error Resume Next
    StaffNames.FormatConditions.Delete
    If Not Intersect(StaffNames, Target) Is Nothing And Target.Count = 1 Then
        Intersect(Target.FirstCellRow, StaffNames).FormatConditions.Add Type:=xlExpression, Formula1:="VRAI"
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        Selection.FormatConditions(1).Interior.Color = RGB(0, 255, 0)
    End If
End Sub

Merci par avance pour vos lumières !

Cdlmt 

Rémi

M-12 · Answer

Bonjour,
Teste ceci
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Me.Range("A1")
    If Not Application.Intersect(Target, Range("C23:C58")) Is Nothing Then
        .Range("C23:C58").Interior.ColorIndex = xlColorIndexNone
        .Cells(Target.Row, Target.Column).Interior.Color = vbYellow
    End If
    End With
End Sub

Remi2236 · Answer

Bonjour,

Je viens de tester, mais en fait je voudrais que quand je clique sur une cellule contenue dans la Range("D23;NC23"), cela me mette en surbrillance la cellule contenant le nom de mon personnel (noms qui sont contenus dans la Range("C23:C85") sur la ligne de mon ActiveCell.

M-12 · Answer

Un p’tit classeur avec 10/15 données anonymisées serait mieux pour régler le soucis 

Allez dans https://www.cjoint.com/
Cliquez sur "PARCOURIR" pour sélectionner le classeur
Clic le bouton "CREER LE LIEN"
Clic droit quand le lien est créé "COPIER LE LIEN"
Sur le post Clic droit "Coller".

Frenchie83 · Answer

Bonjour,
 
Ceci peut-être, mais relisez-vous car votre demande contient des bizareries.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("D23:NC85")) Is Nothing Then
        Range("C23:C85").Interior.ColorIndex = xlColorIndexNone
        Cells(Target.Row, "C").Interior.Color = vbYellow
    End If
End Sub

Cdlt

Remi2236 · Answer

Bonjour Frenchie83, merci ça marche impeccable ! 
Cdlt Rémi

Mettre surbrillance une cellule en fonction de l'activecell

5 réponses

Discussions similaires