coloré une cellule excel selectionné-problème

[winnie]

Bonsoir,

Je souhaiterais coloré une cellule active.

Pour cela j'ai bien évidement réalisé le code suivant :

Public OldRng As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not OldRng Is Nothing Then
OldRng.Interior.ColorIndex = xlNone
End If
Target.Interior.ColorIndex = 6
Set OldRng = Target
End Sub

Néanmoins mes cellules sont à l'origine colorées et lorsque le sectionnement se fait mes cellules perdent leur couleur d'origine.

Y a t il moyen de contourner ce problème ?

Merci

 

[Pierrot93]

Re : coloré une cellule excel selectionné-problème

Bonjour Winnie,

essaye peut être le code ci-dessous, si j'ai bien compris :

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static couleur As Variant, t As Range
If Not t Is Nothing Then t.Interior.ColorIndex = couleur
With Target.Interior
    couleur = .ColorIndex
    .ColorIndex = 6
End With
Set t = Target
End Sub

code à utiliser dans le module de la feuille concernée.

bonne soirée
@+

 

[winnie]

Re : coloré une cellule excel selectionné-problème

bonjour, merci pour les réponses.

Et si je veux que juste ma police change de couleur.

Par exemple la police de la cellule sélectionnée devient rouge ?

 

[Pierrot93]

Re : coloré une cellule excel selectionné-problème

Bonjour,

remplace les :

.Interior.ColorIndex

par :

.Font.ColorIndex

bon après midi
@+

 

[LPandre]

Re : coloré une cellule excel selectionné-problème

Bonjour, je relance cette discussion pour : le changement de couleur du fond des cellules ne doit s'appliquer que sur la plage des cellule A2 à B10. Si une cellule en dehors de cette plage est sélectionnée, il ne se passe rien.

Comment faire ?

Par avance merci.

 

[DL_13]

Re : coloré une cellule excel selectionné-problème

Bonjour,

En reprenant le code de Pierrot93, ajouter les lignes en couleur

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static couleur As Variant, t As Range
If Not Intersect([A2:B10], Target) Is Nothing Then
If Not t Is Nothing Then t.Interior.ColorIndex = couleur
With Target.Interior
couleur = .ColorIndex
.ColorIndex = 6
End With
Set t = Target
End If
End Sub

Bonne journée

 

[LPandre]

Re : coloré une cellule excel selectionné-problème

Impec ! de nouveau MERCI !

 

[BOISGONTIER]

Re : coloré une cellule excel selectionné-problème

Bonjour,

La version ci dessus pose un pb. La valeur de la variable couleur est perdue à la réouverture du fichier.

http://boisgontierjacques.free.fr/fichiers/jb-Curseur.xls

JB