Colorer/Décolorer des cellules

[degap05]

Bonjour,

La macro du fichier joint (du forum), permet de colorer la cellule active en utilisant la palette de couleurs et de décolorer la cellule précédemment colorée.
Je souhaiterais avec votre aide, ne faire fonctionner cette macro que sur des plages de cellules définies. Par exemple B3:C7, D3:C7, F3:G7, H3:I7, etc... Ainsi qu'exclure la couleur blanche.

Merci d'avance.

 

[Risleure]

Re : Colorer/Décolorer des cellules

Bonjour Degap05, le Forum

Une proposition

Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim MaZone As Range
Set MaZone = Union(Range("B3:C7"), Range("d3:e7"), Range("F3:G7"), Range("H3:I7"))
With Range("A1:D10")
Cells.Interior.ColorIndex = xlNone
End With
If Not Intersect(Target, MaZone) Is Nothing Then
If N = 56 Then N = 3
ActiveCell.Interior.ColorIndex = N
N = N + 1
End If
End Sub

A+

PS j'ai pas vérifié pour la couleur blanche mais tu dois l'avoir éliminée N > 2

 

[degap05]

Re : Colorer/Décolorer des cellules

Bonjour Risleure,
avec:
Private Sub Worksheet_selectionChange(ByVal Target As Range)
Dim MaZone As Range
Set MaZone = Union(Range("B3:C7"), Range("d3:e7"), Range("F3:G7"), Range("H3:I7"))
cells.Interior.ColorIndex = xlNone
If Not Intersect(Target, MaZone) Is Nothing Then
If N = 56 Then N = 3
ActiveCell.Interior.ColorIndex = N
N = N + 1
End If
End Sub

C'est toute la feuille qui est décolorée et aucune couleur sur la cellule sélectionnée !!

A+

 

[Risleure]

Re : Colorer/Décolorer des cellules

Re,

Je viens de re vérifier pour moi ça marche !!! 😱
Voir la PJ
A+

ATTENTION tu as modifié le code il n'y a plus With Range (A1:A10).... !!

 

[degap05]

Re : Colorer/Décolorer des cellules

Bonjour,
Tu as raison.
Cela fonctionne.
Merci beaucoup.