Colorier une cellule si elle est selectionné

Bonjour,

J'ai une macro qui me permet de copier le contenu d"une cellule sur ma plage [C11:O23] et coller son contenu dans CB4.

Cela fonctionne très bien. Maintenant je souhaite faire évoluer ma macro pour que la cellule sélectionné dans ma plage [C11:O23] soit colorier en rouge (255, 0,0) et si possible avec des bordure épaisse quand je clic dessus.

Il faudrait aussi que ma cellule redevienne vierge (remplissage blanc) quand je clic sur une autre.

Je ne sais pas du tout comment faire.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Valeur As String

If Not Intersect(Target, [c11:o23]) Is Nothing Then [CB4] = Target.Value

End Sub

Pouvez vous m'aider ?

Mercio

Bonjour Bramavalos,

Voici une proposition. En sachant que ce que tu demandes est peu compatible avec les bordures de ton tableau.

Couleur de fond en rouge = aucun souci

en revanche, pour les bordure, prenons l'exemple de la cellule C11. Elle a deux types de bordure. Donc après l'avoir encadrée d'une ligne épaisse, il faudra rétablir à gauche et en haut une bordure épaisse et en bas et à droite en ligne fine. Imagine la procédure pour pas grand chose en définitive.

Je te propose ou d'opter pour de la ligne fine sur tout ton tableau ou seulement le fond rouge de la cellule cible.

A toi de choisir.

Tu as aussi dans la procédure la possibilité d'ôter les remarques des lignes qui font l'encadré afin de tester les encadrés avec une ligne plus épaisse.

Tiens moi au courant après tests.

Cdt

super ca fonctionne parfaitement

je te remercie

Merci