Bonsoir,

Je souhaiterais colorer une cellule active.

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
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