Discussion :

[thirdeye]

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

[babaothe]

salut

pas certain de te comprendre totalement, mais je pense que tu veux faire ceci, dans cet ordre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private OldRng As Range, couleur As Integer
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not OldRng Is Nothing Then
    OldRng.Interior.ColorIndex = couleur
  End If
  Set OldRng = Target
  couleur = Target.Interior.ColorIndex
  Target.Interior.ColorIndex = 6
 
End Sub

[PPz78]

Avec l'instruction

Code :

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

OldRng.Interior.ColorIndex = xlNone

Tu effaces la couleur que tu viens de déposer dans la cellule.
A+

[thirdeye]

salut

pas certain de te comprendre totalement, mais je pense que tu veux faire ceci, dans cet ordre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private OldRng As Range, couleur As Integer
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not OldRng Is Nothing Then
    OldRng.Interior.ColorIndex = couleur
  End If
  Set OldRng = Target
  couleur = Target.Interior.ColorIndex
  Target.Interior.ColorIndex = 6
 
End Sub

Je m'explique mieux.

On va dire que j'ai un tableau, dans ce tableau la couleur de fond de mes cellules et par exemple bleu claire. Néanmoins, avec la formule que j'ai mis ci dessus, lorsque ma cellule selectionnée est coloré en jaune, la couleur de fond disparait lorsque je change de cellule.

Je sais pas si j'ai reussi à être plus clair

[babaothe]

salut,

alors le code que je t'ai montré est bon

ton seul problème résulte du fait que, tant que ta feuille est active, la variable couleur est gardée en mémoire, ainsi que la variable oldrng, ce qui fait que tu te "marches sur les pieds".

Si tu veux éviter ce problème, il te faut :
1) sortir du mode création pour colorer tes cellules ===>> ta variable oldring deviendra alors nothing
2) revenir en mode exécution et tu verras que tout marche

[thirdeye]

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 ?

[babaothe]

rigoureusement la même chose en ... changeant le mot "Interior" par le mot "Font" et la couleur 6 par la couleur 3

[thirdeye]

ok merci pr les reseignement