XL 2013 Changement de couleur dynamique d'une plage (vba)

[speedyloopy]

Bonjour à tous,
je suis nouveau sur le forum et novice en vba...

j'ai un problème, je souhaite créer un tableau avec une fonction que quand on clique sur une cellule A2 la plage B2 à G2 changent de couleur et quand je clique sur une cellule plus bas la couleur redevienne normale et la plage du dessous change de couleur (exemple en pièce jointe) ça marche mais je me demandais comment le faire automatique (sans avoir besoin de mettre le numéro de chaque plage) et autre petit problème quand j'essaie de mettre un code rgb pour la couleur, ça ne marche pas...

Pourriez-vous m'aider s'il vous plait?

Meilleures salutations

 

[phlaurent55]

Re : Changement de couleur dynamique d'une plage (vba)

Bonjour speed.............. et bienvenue sur le forum

remplace ton code par celui-ci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B3:G21").Interior.Color = RGB(255, 255, 255)
Range(Cells(Target.Row, 2), Cells(Target.Row, 7)).Interior.Color = RGB(0, 0, 255)
End Sub

à+
Philippe

 

[phlaurent55]

Re : Changement de couleur dynamique d'une plage (vba)

Re,

ou plutôt par celui-ci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A21")) Is Nothing Then
Range("B2:G21").Interior.Color = RGB(255, 255, 255)
Range(Cells(Target.Row, 2), Cells(Target.Row, 7)).Interior.Color = RGB(0, 0, 255)
End If
End Sub

à+
Philippe

 

[speedyloopy]

Re : Changement de couleur dynamique d'une plage (vba)

Merci beaucoup philippe c'est génial

Merci aussi pour cette telle rapidité (ce site est incroyable)

A+ Martial