mise en forme sur sélection (autre colonne)

[vistla]

Bonjour cher forum!

je crois que celle-ci sera une facile pour certain mais je n'y arrive pas, encore une fois.

j'ai un tableau contenant 50+ colonnes. j'aimerais que lorsque je choisis une cellule (par exemple la celle AB15, que la cellule B15 devienne en gras (et éventuellement avec un fond de couleur différent)

j'avais trouvé ce code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static Gras As String

If Gras <> "" Then Range(Gras).Font.Bold = False
Gras = Target.Address
ActiveCell.Font.Bold = True

End Sub

celui-ci mets en gras la cellule sélectionné et enlève le gras lorsque je quitte la cellule.

j'ai essayé de changer "Target.Address en y ajoutant un Offset, mais je n'y arrive pas. J'ai une erreur..

De toute façon, Le offset ne fonctionnerait pas si je me déplace verticalement dans mon tableau.

Auriez-vous un code me permettant cela?

merci 🙂

Éric

 

[kjin]

Re : mise en forme sur sélection (autre colonne)

Bonsoir,
Au plus simple

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static Gras As String
If Target.Count > 1 Or Target.Column < 27 Then Exit Sub
If Gras <> "" Then
    With Range(Gras)
        .Font.Bold = False
        .Interior.ColorIndex = xlNone
    End With
End If
Gras = Target.Offset(0, -26).Address
With Range(Gras)
    .Font.Bold = True
    .Interior.ColorIndex = 6
End With
End Sub

A+
kjin
A+
kjin

 

[vistla]

Re : mise en forme sur sélection (autre colonne)

Merci, c'est un bon début, mais si je me déplace verticalement, le "target.address" bouge également.. il faudrait que ce soit la colonne B peut importe si je me déplace de gauche à droite.

 

[kjin]

Re : mise en forme sur sélection (autre colonne)

Re,

mais si je me déplace verticalement, le "target.address" bouge également.. il faudrait que ce soit la colonne B peut importe si je me déplace de gauche à droite

Tu veux dire horizontalement sans doute 🙄

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static Gras As String
If Target.Count > 1 Then Exit Sub
If Gras <> "" Then
    With Range(Gras)
        .Font.Bold = False
        .Interior.ColorIndex = xlNone
    End With
End If
Gras = Cells(Target.Row, 2).Address
With Range(Gras)
    .Font.Bold = True
    .Interior.ColorIndex = 6
End With
End Sub

A+
kjin

 

[vistla]

Re : mise en forme sur sélection (autre colonne)

Excellent ! Merci beaucoup!!!! 🙂 Ça fonctionne #1!