Si cellule selectionnée, colorer autre cellule

Version imprimable

18/03/2011, 14h48
mobiclick

Si cellule selectionnée, colorer autre cellule

Bonjour le forum...

Mon problème est le suivant:

J'ai une plage de cellules A8:J52.J'aimerai que lorsqu'une cellule de cette plage est active,toutes les autres cellules qui sont sur la même ligne prennent une couleur donnée ,histoire de les mettre en évidence(pour faciliter la lecture de mon tableau).Exemple:lorsque D10 est selectionnée ,les cellules de la plage A10:J10 prennent une couleur particulière (surbrillance...etc).

Grand merci d'avance!

Bonjour,
Procédure :
1- ouvrir le classeur concerné,
2- se placer sur la feuille concernée,
3- clic droit sur l'onglet de cette feuille / Visualiser le code
4- dans la fenêtre Visual Basic qui s'ouvre, copier/coller ce code :
Code:

1 2 3 4 5 6 7 8 9 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 7 And Target.Row < 53 And Target.Column < 11 And Target.Count < 2 Then Range("A8:J52").Interior.ColorIndex = xlNone Range(Cells(Target.Row, 1), Cells(Target.Row, 10)).Interior.ColorIndex = 3 Target.Interior.ColorIndex = xlNone Else Range("A8:J52").Interior.ColorIndex = xlNone End If End Sub
5- fermer la fenêtre Visual Basic
6- tester
Adaptation possible de la couleur en changeant le 3 de "Interior.ColorIndex".

Bonjour,

En légère variante mais dans le même esprit que pijaku :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    [A8:J52].Interior.ColorIndex = xlNone
 
    If Not Intersect([A8:J52], Target) Is Nothing Then
        Range(Cells(Target.Row, 1), _
              Cells(Target.Row, _
              [A8:J52].Columns.Count)).Interior.ColorIndex = 3
    End If
 
End Sub

Hervé.

18/03/2011, 16h30
mobiclick

Merci à pijaku et à Theze
Les deux codes marchent à merveille
Bonne continuation:ccool::ccool::ccool:
18/03/2011, 21h53
mobiclick

Bonjour le forum,
Désolé de revenir apres avoir mis "résolu",car je viens de découvrir que les codes en question ne fonctionnent pas sur des feuilles protégées...certaines cellules de la plage A8:J52 sont protégées contre toute modification...y a-t-il une astuce pour contourner ce probleme?
encore une fois merci de votre aide

Bonjour Mobiclick,

Il te faut ôter la protection de la feuille et la remettre ensuite dans la foulée :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    'déprotège la feuille
    Me.Unprotect "MonMotDePasse"
 
    'effectue les modifs
    [A8:J52].Interior.ColorIndex = xlNone
 
    If Not Intersect([A8:J52], Target) Is Nothing Then
 
        Range(Cells(Target.Row, 1), _
              Cells(Target.Row, _
              [A8:J52].Columns.Count)).Interior.ColorIndex = 3
    End If
 
    'reprotège la feuille
    Me.Protect "MonMotDePasse"
 
End Sub

Hervé.

22/03/2011, 23h06
mobiclick

Bonjour le forum,
Vraiment merci pour la réponse...c'est exactement ce que je cherchais...
Salutations :ccool: Theze et tous les membres