Discussion :

[polonVBA]

Bonjour,
J'aurai besoin d'un avis de pro.
Voilà, dans ma feuille F1, je voudrais que la cellule active change de couleur pour être plus visible et qu'elle reprenne sa couleur d'origine quand on la quitte.
Pour ce faire j'ai mis dans Visual Basic Feuille F1 la procédure suivante:

Code :

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

1
2
3
4
5
6
7
8
Public old_color, old_sel  
Option Explicit  
Sub Worksheet_SelectionChange(ByVal sel As Range)  
If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color  
old_sel = sel.Address  
old_color = sel.Interior.ColorIndex  
sel.Interior.ColorIndex = 6 'Mets la cellule active en jaune.  
End Sub

Ça marche bien pour une cellule blanche, mais pour une cellule de couleur... elle ne retrouve pas sa couleur quand on change de cellule.
Pire, quand on sélectionne plusieurs cellules, c'est la cata... je ne peux même plus changer la couleur.
Quelqu'un aurait'il une procédure qui fonctionne?

Je crois savoir que l'on peut modifier la couleur de la cellule active d'excel dans le registre. Mais la j'avoue que je n'aime pas trop toucher au moteur de l'ordi mais s'il le fallait pourquoi pas. Mais quoi changer ou modifier?

Si quelqu'un peut m'aider je suis preneur.

Merci .

[Daniel.C]

Bonjour,

Sans changer les couleurs, tu peux sélectionner la ligne et la colonne de la cellule active. Mets cette macro dans le module de la feuille :

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Union(Target.EntireRow, Target.EntireColumn).Select
    Application.EnableEvents = True
End Sub

[Docmarti]

Bonjour polonVBA

Si tu tiens mordicus à changer la couleur

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
17
18
19
Public r As Range
 
Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Target.Copy Feuil3.Range(Target.Address)
 
If Not r Is Nothing Then
   r.Copy
   Application.EnableEvents = False
   Target.Parent.Range(r.Address).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
   Target.Select
   Application.EnableEvents = True
End If
 
Target.Interior.ColorIndex = 6 'Mets la cellule active en jaune.
Set r = Feuil3.Range(Target.Address)
 
End Sub

[polonVBA]

Merci à Daniel et à Docmarti d'avoir essayé de me dépanner.
La proc de Daniel me mets toute les cellules de ma feuille en surbrillance... ce n'est pas le but recherché.

La proc de Docmarti bloque à la ligne:

Code :

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

Target.Copy Feuil3.Range(Target.Address)

La feuille sur laquelle je travaille s'appelle F1. J'ai bien remplacé Feuil3 par F1 mais ça ne change rien.

Désolé, je suis loin de tout comprendre.

Merci.

Bonne soirée

[Daniel.C]

La proc de Daniel me mets toute les cellules de ma feuille en surbrillance... ce n'est pas le but recherché.

Regarde le classeur joint, tu comprendras mieux :
PJ : polonVBA.xlsm

[polonVBA]

Regarde le classeur joint, tu comprendras mieux :
PJ : polonVBA.xlsm

Merci Daniel pour ta réponse.
Ta macro fonctionne bien dans une feuille vierge, mais dans une feuille élaborée avec des cellules fusionnées cela ne répond pas à ce que je recherche.
Je veux simplement augmenter la visibilité de la cellule active (ou des cellules fusionnées) en la changeant de couleur par exemple. Il faut que lorsque l'on change de cellule active la précédente retrouve sa couleur d'origine.
J'y suis presque avec ma macro que j'utilise, mais ça coince avec les cellules fusionnées et je ne vois pas comment m'en sortir.

Code :

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

1
2
3
4
5
6
7
8
Public old_color, old_sel  
Option Explicit  
Sub Worksheet_SelectionChange(ByVal sel As Range)  
If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color  
old_sel = sel.Address  
old_color = sel.Interior.ColorIndex  
sel.Interior.ColorIndex = 6 'Mets la cellule active en jaune.  
End Sub

Si vous avez une solution... Merci.

PS je garde ta macro, elle me servira à autre choise.

[Marc-L]

Bonjour,

ne pas fusionner les cellules ‼

Mieux vaut utiliser l'alignement Centré sur plusieurs colonnes …


___________________________________________________
Tous unis, tous Charlie

[Citrax]

Bonjour,

En effet, Docmarti a fait un boulot excellent. Merci ce code peut s'averer tres pratique pour des presentation ou des feuillets non colorés, avec beaucoup de valeurs.
Seule remarque et sans vouloir froisser ou chippoter, toute selection "déplacée" gardera la couleur jaune.

@+

[boisgontierjacques]

Bonjour,

Sans feuille intermédiaire

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
17
18
19
20
21
22
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Set champ = Range("A1:D20")
  '---- restitution couleurs
  If Not Intersect(champ, Target) Is Nothing And Target.Count < 100 Then
    CoulCurseur = RGB(255, 255, 0)
    For Each n In ActiveWorkbook.Names
      If Left(n.Name, 7) = "MémoAdr" Then
        adr = Mid(n.Name, 8): Coul = Val(Mid(n, 2)): If Coul = 16777215 Then Coul = xlNone
        If Range(adr).Interior.Color = CoulCurseur Then Range(adr).Interior.Color = Coul
      End If
    Next n
    '------ sauvegarde couleurs
    For Each n In ActiveWorkbook.Names
      If Left(n.Name, 7) = "MémoAdr" Then n.Delete
    Next n
    For Each c In Target
         ActiveWorkbook.Names.Add Name:="MémoAdr" & Replace(c.Address, "$", ""), RefersTo:=c.Interior.Color
    Next c
    Target.Interior.Color = CoulCurseur
  End If
End Sub

Jacques Boisgontier