vba et changement de couleur cellule

[jopont]

bonjour
Dans le code ci-dessous, pourquoi lorsque je quitte la selection de la cellule D3, la couleur reste activer dans la zone samedis :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$3" And Target.Count = 1 Then
SendKeys "%{down}"
Range("samedis").Interior.Color = 255
End If

merci

 

[PascalXLD]

Re : vba et changement de couleur cellule

Bonjour

ta macro se déclenche quand tu entres dans D3 et non quand tu en sors

 

[jopont]

Re : vba et changement de couleur cellule

comment faire alors, pour revenir à la couleur de départ quand j'en sors?
merci

 

[PascalXLD]

Re : vba et changement de couleur cellule

re

essaies

dans un module au tout début du module avant du code

Public Macouleur as variant
Public MonAdresse as String

puis modifies ainsi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$3" And Target.Count = 1 Then
MaCouleur = Range("samedis").Interior.Color
MonAdresse = "$D$3"
SendKeys "%{down}"
Range("samedis").Interior.Color = 255
Else
If MonAdresse = "$D$3" Then
Range("samedis").Interior.Color = MaCouleur
MonAdresse = ""
End If
End If
End Sub

 

[jopont]

Re : vba et changement de couleur cellule

Pourquoi déclarer les variables à part en public ?

 

[jopont]

Re : vba et changement de couleur cellule

merci ça fonctionne. mais comment appliquer cela à plusieurs cellules : le code suivant ne fonctionne plus

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$3" And Target.Count = 1 Then
MaCouleur = Range("samedis").Interior.Color
MonAdresse = "$D$3"
SendKeys "%{down}"
Range("samedis").Interior.Color = 255
Else
If MonAdresse = "$D$3" Then
Range("samedis").Interior.Color = MaCouleur
MonAdresse = ""
End If
End If
If Target.Address = "$A$3" And Target.Count = 1 Then
MaCouleur = Range("lundis").Interior.Color
MonAdresse = "$A$3"
SendKeys "%{down}"
Range("lundis").Interior.Color = 255
Else
If MonAdresse = "$A$3" Then
Range("lundis").Interior.Color = MaCouleur
MonAdresse = ""
End If
End If

End Sub