Cellule colorée

Résolu
mic6259 -  
 mic6259 -
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 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
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
mic6259
 
Jaune par exemple mais dans une feuille definie, par exemple feuil2.
0
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
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
mic6259
 
Merci beaucoup c'est exactement ce que je voulais
Bonne journée
0