Colorer une cellule Excel selectionnée-problème

Bonsoir,

Je souhaiterais colorer une cellule active.

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

Code:

---

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

salut

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

Code:

---

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

---

Avec l'instruction

Code:

---

OldRng.Interior.ColorIndex = xlNone

---

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

Citation:

---

Envoyé par babaothe

salut

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

Code:

---

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

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

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 ?

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

ok merci pr les reseignement