Mettre la cellule active dans une couleur précise

Mais quand je quitte la cellule, je veux qu'elle reprenne sa couleur d'origine ....

Comment faire ?

J'ai ce début de code, mais je n'arrive pas à le finaliser.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Couleur

Dim Cellule_cible as range

début de boucle

Application.ScreenUpdating = False

Couleur = Target.Interior.Color 'Récupère la couleur de la cellule active

cellule_cible.range = target.range 'Récupère l'adresse de la cellule active

Target.Interior.ColorIndex = 8 'change la couleur de la cellule active

????????????quand la cellule active change ,

Cellule_cible.Interior.ColorIndex = Couleur 'remets la bonne couleur dans la cellule cible

fin de boucle

Application.ScreenUpdating = True

End Sub

Bonsoir,

Ci-joint une proposition, à tester.

Il reste un cas à gérer : remise à blanc à la fermeture du fichier.

Bonne soirée

Bouben

Merci

Mais le problème, c'est que si la cellule a une couleur, cela enlève la couleur de départ...

Or si la couleur est orange, par exemple, elle doit redevenir orange ...

Bonsoir,

Ah c'est sûr, ce n'était pas géré !!

Ci-joint une nouvelle version, à tester.

Petite modif complémentaire : pour annuler la dernière sélection (notamment avant de fermer le fichier) : il suffit de changer d'onglet.

Bonne nuit !

Bouben

Merci pour ton aide .. Je vais creuser.

En attendant j'ai utilisé :

Public old_color, old_sel

Option Explicit

Sub Worksheet_SelectionChange(ByVal sel As Range)

If Range("A1") = "O" Then

If Not old_sel = "" Then Range(old_sel).Interior.ColorIndex = old_color

old_sel = sel.Address

old_color = sel.Interior.ColorIndex

sel.Interior.ColorIndex = 8

End If

End Sub

J'ai rajouté la ligne If Range("A1") pour activer ou désactiver à la demande le processus... En effet, quand je voulais mettre en couleur une cellule, je ne pouvais pas le faire ...

Je vais tester la tienne... et éventuellement faire un mix ... qui pourrait être actif pour tout le fichier.

MErci

Quelques remarques ... quand on sélectionne plusieurs cellules, il y a une erreur de débogage, ce qui est normal.

Je vais adapter ...

MErci

Bonjour,

Qq exemples.

Ceuzin

Ouah .... impressionnant .. merci

Bonsoir,

C'est vraiment du beau boulot. Je stocke ce fichier bien précieusement !

Bouben

Bonjour

Juste une question. Quand je copie le code VBA dans mes fiches, j'ai des erreurs du style "Variable non défini". Or j'ai beau chercher, je ne trouve pas ou sont définie les variables...

Merci

Bonsoir,

En effet les variables ne semblent pas définies.

Dans toutes les feuilles, l'instruction "Option Explicit" n'est pas mentionnée, n'obligeant pas la déclaration des variables.

Dans ton cas, je pense que tu as paramétré Excel avec déclaration des variables obligatoires. Donc il ne reste plus qu'à tout déclarer là où ça manque !!!! Avec les types attendus (ou alors tout en variant ...)

Ou virer l'Option Explicit (mais je ne recommande pas du tout).

Bouben