Discussion :

[Soifranc]

Bonjour
Dans un tableau je saisis des valeurs dans la colonne J.
Est-il possible par macro de mettre en surbrillance les 9 cellules de gauche
et les 5 cellules de droite par rapport à la position de saisie de la
colonne J.
Merci

[jfontaine]

Bonjour

Est ce que cela te conviens

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim Ligne As Integer
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 10 Then
    If Ligne > 0 Then Range("A" & Ligne & ":I" & Ligne).Interior.ColorIndex = xlNone
    Ligne = Target.Row
    Range("A" & Ligne & ":I" & Ligne).Interior.ColorIndex = 15
Else
    If Ligne > 0 Then Range("A" & Ligne & ":I" & Ligne).Interior.ColorIndex = xlNone
End If
End Sub

[Soifranc]

Ok cela fonctionne pour les cellules de gauche mais pas pour les 5 cellules
de droite.

Ok cela fonctionne correctement j'ai la letrre N à la place de I pour les cellules
de droite.