Changer la couleur de la cellule active temporairement

[Philippe95]

Bonjour à vous tous !
Ça devient une habitude le samedi en fin de matinée, je me lasse de triturer les formules et les codes sans résultat probant et je finis par vous poser la question …
Donc, je souhaiterai que la cellule sélectionnée sur une feuille soit immédiatement repérable (sans agressivité).
Cela fonctionne ! Mais … (pas marrant si non !)
Si j’utilise un lien hypertexte pour me déplacer d’une feuille à l’autre, EXCEL me laisse sur la feuille cible une forme, que je ne souhaite pas !
Une idée pour m’en débarrasser définitivement.
Merci …
Philippe.

 

[Dranreb]

Re : Changer la couleur de la cellule active temporairement

Bonjour.

En écrivant la procédure comme ça, ça va déjà mieux :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cu As Shape
If ActiveSheet.Name <> Me.Name Then Exit Sub ' ne rien changer en cas le lien hypertexte
On Error Resume Next
Set Cu = Me.Shapes("Curseur")
If Err Then
   Set Cu = Me.Shapes.AddShape(msoShapeRectangle, 6, 6, 8, 6)
   Cu.Name = "Curseur"
   With Cu.Fill: .Visible = msoFalse: .Transparency = 1: End With
   With Cu.Line: .Visible = True: .ForeColor.SchemeColor = 10: .Weight = 3: End With
   End If
On Error GoTo 0
Cu.Left = Target.Left: Cu.Width = Target.Width
Cu.Top = Target.Top: Cu.Height = Target.Height
End Sub

 

[job75]

Re : Changer la couleur de la cellule active temporairement

Bonjour Philippe95, Bernard,

Pas bien compliqué, remplacez ActiveSheet par Me dans votre macro...

A+

 

[Dranreb]

Re : Changer la couleur de la cellule active temporairement

Bonjour Job75
… et Selection par Target !

 

[Philippe95]

Re : Changer la couleur de la cellule active temporairement

Merci de vos réponses ...
Cela fonctionne parfaitement Dranreb !
Merci !