cellule colorée Résolu

Question

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

jordane45 · Answer

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 ?

Mike-31 · Answer

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.

Frenchie83 · Answer

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

Cellule colorée

3 réponses

Discussions similaires

Newsletters