Cellule colorée

Résolu/Fermé
mic6259 - 11 mai 2015 à 09:09
 mic6259 - 12 mai 2015 à 11:14
Bonjour
Est-il possible de colorée une cellule après avoir cliquer dessus et qu'elle reprend la couleur d origine après.
Merci

3 réponses

jordane45 Messages postés 36596 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 1 décembre 2022 4 420
11 mai 2015 à 09:17
Bonjour,
Ta question manque de précisions....

Changer la couleur quand on clic dessus .. oui.
Mais ... quelle couleur ? En fonction de quoi ? N'importe quelle cellule ?

Et puis... "reprend la couleur d origine après. " .. après quoi ?
Au bout de combien de temps ou après quelle action ou condition ?

0
Jaune par exemple mais dans une feuille definie, par exemple feuil2.
0
Mike-31 Messages postés 18113 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 25 novembre 2022 5 015
Modifié par Mike-31 le 11/05/2015 à 09:29
Bonjour,

Rapidement ce genre de code à placer dans les propriétés de ta feuille

clic droit sur l'onglet de ta feuille/Visualiser le code et coller ce code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 3
End Sub 


A+
Mike-31


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code

Merci d'y penser dans tes prochains messages.
.

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
Frenchie83 Messages postés 2237 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 20 juin 2022 333
11 mai 2015 à 09:57
Bonjour
A peu près la même procédure mais en restituant les couleurs d'origine de la précédente sélection.
Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static SelectionPrecedente As String, CouleurPrecedente As Long
    If Not SelectionPrecedente = "" Then Range(SelectionPrecedente).Interior.ColorIndex = CouleurPrecedente
    SelectionPrecedente = Target.Address
    CouleurPrecedente = Target.Interior.ColorIndex
    Target.Interior.ColorIndex = 41 'bleu
End Sub
0
Merci beaucoup c'est exactement ce que je voulais
Bonne journée
0