Discussion :

[mel83]

Bonjour,

je souhaiterais que lorsque je clic sur monlienhypertexte1, la cellule A1 se colore en rouge.
Ensuite, lorsque je clique sur monlienhypertexte2, le cellule B3 doit se colorer en rouge et la cellule A1 (ainsi que toutes les autres cellules colorées (en réalité il n'y a toujours que la dernière colorée qui doit être décolorée)) doit redevenir transparente.
Les liens hypertexte se trouvent sur la mm feuille1.

Pour le moment, je colore bien la cellule A1 en cliquant sur monlienhypertexte1 et lorsque je clique sur monlienhypertexte2, la cellule B3 se colore mais je n'arrive pas à décolorer les autres cellules. Ou bien ca me les décolore toutes mm la B3.



Merci de votre aide


-clic sur monlienhypertexte1 -> seulement la cellule A1 se colore en rouge
-clic sur monlienhypertexte2 -> seulement la cellule B3 est colorée.

[Thautheme]

Bonjour Mel, bonjour le forum,

Si tu n'as pas d'autres couleurs dans l'onglet tu peux, avant de colorer une cellule, enlever la couleurs de toutes les cellules avec par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells.Interior.ColorIndex = xlNone

[mel83]

ca marche

[mel83]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = 0
Dim Target1 As String
Target1 = Target.Address
Select Case Target1
   Case "$A$1"
    Range("A1").Interior.ColorIndex = 3
   Case "$B$3"
    Range("B3").Interior.ColorIndex = 3
    Case Else
    'do nothing
End Select
End Sub

[Thautheme]

Bonjour Mel, bonjour le forum,

Si A1 et B3 sont les seules cellules à modifier, essaie comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim CEL1 As Range
Dim CEL2 As Range
 
If Target.Address = "$A$1" Or Target.Address = "$B$3" Then
    Set CEL1 = Range("A1"): Set CEL2 = Range("B3")
    Select Case CEL1.Interior.ColorIndex
        Case xlNone
            CEL1.Interior.ColorIndex = 3
            CEL2.Interior.ColorIndex = xlNone
        Case 3
            CEL1.Interior.ColorIndex = xlNone
            CEL2.Interior.ColorIndex = 3
    End Select
End If
End Sub

[mel83]

Enfait j'en ai beaucoup d'autre donc cette solution est pas mal

bonne journée
merciii

[Thautheme]

Bonjour Mel, bonjour le forum,

Si tu as beaucoup d'autres cellules, la solution proposée ne fonctionnera plus !...