SOS...SOS...SOS...CLIC sur cellule
jeancharles
comment faire pour que les cellules sur lesquelles je vais
cliquer,deviennent colorées
sur excel2002
jcharles P
michdenis
à défaut de plus d'explications sur ce que tu veux faire, copie le code suivant dans le module feuille où l'action se
déroule.
un clic droit sur l'onglet de la feuille / menu contextuel / visualiser le code ...copier-coller dans la page blanche !
'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 3
End Sub
'-----------------------
Salutations!
"jeancharles" <jc.prudho...@free.fr> a écrit dans le message de news:40cd92bc$0$13926$636a...@news.free.fr...
jeancharles
> '-----------------------
> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>
> Cells.Interior.ColorIndex = xlNone
> Target.Interior.ColorIndex = 3
>
> End Sub
> '-----------------------
>
>
> Salutations!
cependant j'ai ub message me disant la declaration de la procedure ne
correspont pas a la description de l'evenement
je fais surement une mauvaise manip!
en fait je demarre
c'est ma premiére macro
michdenis
Tu as fait comme mentionner :
un clic droit sur l'onglet de la feuille / menu contextuel / visualiser le code ...copier-coller dans la page blanche !
Ce qui suit s'appelle une procédure événementielle car elle se produit et s'exécute à chaque fois que tu cliques dans
une cellule de la feuille où tu as copié cette procédure. Assure-toi que la première ligne de la procédure Private ...
... Range) soit sur la même ligne ...
Si tu as copié ceci dans la feuille module 1, c'est seulement lorsque tu cliqueras dans cette feuille que l'action se
produira.
Je ne vois pas vraiment ce qui pourrait bloquer l'exécution de cette procédure.
'-----------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 3
End Sub
'-----------------------
Salutations!
"jeancharles" <jc.prudho...@free.fr> a écrit dans le message de news:40cdb90e$0$13932$636a...@news.free.fr...
jeancharles
en effet j'ai refait la procedure et maintenant cela semble bien parti pour
fonctionner...à un détail près,des que je clique sur une autre cellule et
bien celle ou j'ai cliqué précedemment redevient blanche!!...
jeancharlesP
"michdenis" <mich...@hotmail.com> a écrit dans le message de
news:Ot8ULXj...@TK2MSFTNGP09.phx.gbl...
michdenis
Si tu veux conserver la couleur des cellules déjà existant, enlève de la procédure cette ligne de code :
Cells.Interior.ColorIndex = xlNone
Salutations!
"jeancharles" <jc.prudho...@free.fr> a écrit dans le message de news:40ce19af$0$13929$636a...@news.free.fr...