création d'une macro pb de sélection

[Karla]

bonjour,
je cherche à faire une macro qui,quand je sélectionne une cellule colore en rouge celle d'avant, celle d'après et celle située 4cases plus loin.. je n'y arrice vraiment pas. quelq'un pourrait il m'aider ?

 

[ERIC S]

Bonjour

A adapter
A mettre sur la feuille considérée et non dan sun module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'efface les couleurs présentes sur la feuille
Cells.Interior.ColorIndex = xlNone
'teste selon position
If Target.Column 'supérieur' 1 Then Target.Offset(0, -1).Interior.Color = RGB(255, 0, 0)
If Target.Column 'inférieur' 256 Then Target.Offset(0, 1).Interior.Color = RGB(255, 0, 0)
If Target.Column 'inférieur' 253 Then Target.Offset(0, 4).Interior.Color = RGB(255, 0, 0)
End Sub

A+

 

[Pierrot93]

Bonjour Karla

Tu peux essayer le code ci dessous, mais la cellule active doit être au moins sur la 2ème liggne

Bonne journée

Sub TestCouleur()
ActiveCell.Offset(1, 0).Interior.ColorIndex = 3
ActiveCell.Offset(-1, 0).Interior.ColorIndex = 3
ActiveCell.Offset(4, 0).Interior.ColorIndex = 3
End Sub

 

[ERIC S]

re

encore un raté

remplacer 'supérieur' et 'inférieur' par les signes correspondants

 

[ERIC S]

re

pour protéger aussi contre les multisélections (plusieurs lignes ou colonnes)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'efface les couleurs présentes sur la feuille
Cells.Interior.ColorIndex = xlNone
If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then Exit Sub
'teste selon position
If Target.Column 'supérieur' 1 Then Target.Offset(0, -1).Interior.Color = RGB(255, 0, 0)
If Target.Column 'inférieur' 256 Then Target.Offset(0, 1).Interior.Color = RGB(255, 0, 0)
If Target.Column 'inférieur' 253 Then Target.Offset(0, 4).Interior.Color = RGB(255, 0, 0)
End Sub

en remplaçant supérieur et inférieur par leurs signes

A+