XL 2021 mise en forme conditionnelle des cellules quand une autre est sélectionnée

marco22

XLDnaute Occasionnel
Bonjour
J'aimerai mettre en surbrillance des cellules quand une cellule est sélectionnée
J'ai créer un fichier carré magique que je vous joins
Je voudrai que quand je sélectionne la cellule H7 les cellules J7, K7, L7, M7 soient surlignées ainsi que les cellules correspondantes dans le carré magique (cellules B2:E5) et cela pour toutes les cellules de la colonne de H7 à H32.
Je ne sais pas si j'ai été clair dans mon explication.
merci
 

Pièces jointes

  • carré magique.xlsx
    12.6 KB · Affichages: 4

job75

XLDnaute Barbatruc
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[B2:E5,J7:M32].Interior.ColorIndex = xlNone 'RAZ
[B2:E5,J7:M32].Font.ColorIndex = xlAutomatic 'RAZ
If Intersect(ActiveCell, [H7:H32]) Is Nothing Then Exit Sub
With Union(Range(ActiveCell(1, 2)).Offset(1, 1), ActiveCell(1, 3).Resize(, 4))
    .Interior.Color = vbBlue 'bleu
    .Font.Color = vbWhite 'police blanche
End With
End Sub
 

Pièces jointes

  • carré magique.xlsm
    19.4 KB · Affichages: 5

Discussions similaires

Statistiques des forums

Discussions
315 094
Messages
2 116 153
Membres
112 670
dernier inscrit
Flow87