Discussion :

[mavean]

Bonjour

J'ai un tableau avec beaucoup de colonnes exemple ci dessous :

colonne A - colonne B - colonne C
1) 1040 article1 (un nombre à rentrer)
2) 1050 article 2 (un nombre à rentrer)
3) 1071 article 3 (un nombre à rentrer)

Je souhaite que quand selectionne la cellule C1, la cellule B1 se mets en surbrillance.

Tout cela avec du code VBA
A noter la feuille sera protégée

Merci d'avance.

[mercatog]

Exemple à mettre dans le module de la feuille

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static LaCellule As String
 
If Target.Column = 3 Then
    If LaCellule <> "" Then Range(LaCellule).Interior.Color = xlNone
    LaCellule = Target.Offset(, -1).Address
    Target.Offset(, -1).Interior.ColorIndex = 36
End If
End Sub

[mavean]

Merci de ton aide

J'ai modifier ton code pour avoir la couleur de police au lieu de la surbrillance.

1) Comment le simplifier (2 IF)
2) Comment faire afin que la couleur de police redevienne normale (noir) si je sélectionne une autre cellule

Encore une fois Merci de ton aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static LaCellule As String
 
If Target.Column = 16 Then
    If LaCellule <> "" Then Range(LaCellule).Interior.Color = xlNone
    LaCellule = Target.Offset(, -9).Address
    Target.Offset(, -9).font.ColorIndex = 3
End If
    If Target.Column = 17 Then
    If LaCellule <> "" Then Range(LaCellule).Interior.Color = xlNone
    LaCellule = Target.Offset(, -10).Address
    Target.Offset(, -10).Font.ColorIndex = 3
End If
End Sub

[patricktoulon]

bonjour
simplifier oui!! si tu veux

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static LaCellule As String
    If Target.Column = 16 Or Target.Column = 17 Then
        If LaCellule <> "" Then Range(LaCellule).Font.Color = vbBlack
        LaCellule = Cells(Target.Row, "G").Address
        Range(LaCellule).Font.Color = vbRed
    End If
End Sub