Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

modifier couleur du curseur...

5 réponses
Avatar
Philippe MERY
Bonjour.
XL 97

est il possible de modifier la couleur de la cellule active ?


merci

Cordialement.
Philippe MERY
**pour m'écrire perso**
mery-ph -serveur- ifrance.com
www.freymille.com

5 réponses

Avatar
JPMonnier
Bonjour,
Je ne sais pas si ça fonctionne sur Excel 97
A tester
A placer dans le code de la feuille désirée

Public ADR

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Interior.ColorIndex = 6
Range(ADR).Interior.ColorIndex = xlNone
ADR = ActiveCell.Address
End Sub
--
Cordialement


"Philippe MERY" a écrit dans le message de
news:48d8e38c$0$854$
Bonjour.
XL 97

est il possible de modifier la couleur de la cellule active ?


merci

Cordialement.
Philippe MERY
**pour m'écrire perso**
mery-ph -serveur- ifrance.com
www.freymille.com



Avatar
Philippe MERY
"JPMonnier" a écrit dans le message de news:

Bonjour,
Je ne sais pas si ça fonctionne sur Excel 97
A tester
A placer dans le code de la feuille désirée

Public ADR

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Interior.ColorIndex = 6
Range(ADR).Interior.ColorIndex = xlNone
ADR = ActiveCell.Address
End Sub
--
Cordialement




oui ca marche... trop... :-))
toutes les cellules "visitées" reste en couleur alors que je voudrais juste
la cellule active (ou bien le tour -je ne sais comment l'appeler-)

merci
Avatar
JB
Bonjour,

http://boisgontierjacques.free.fr/pages_site/mfc.htm#CurseurCouleur

http://boisgontierjacques.free.fr/fichiers/jb-Curseur.xls

JB

On 23 sep, 14:39, "Philippe MERY"
wrote:
Bonjour.
XL 97

est il possible de modifier  la couleur de la cellule active ?

merci

Cordialement.
 Philippe MERY
 **pour m'écrire perso**
 mery-ph -serveur- ifrance.com
 www.freymille.com


Avatar
JP25
Ca fonctionne sur Excel 2000
as-tu bien déclaré Public ADR dans ta feuille ou se trouve la
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
?
--
Cordialement



"Philippe MERY" a écrit dans le message de
news: 48d8f953$0$873$
"JPMonnier" a écrit dans le message de news:

Bonjour,
Je ne sais pas si ça fonctionne sur Excel 97
A tester
A placer dans le code de la feuille désirée

Public ADR

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveCell.Interior.ColorIndex = 6
Range(ADR).Interior.ColorIndex = xlNone
ADR = ActiveCell.Address
End Sub
--
Cordialement




oui ca marche... trop... :-))
toutes les cellules "visitées" reste en couleur alors que je voudrais
juste la cellule active (ou bien le tour -je ne sais comment l'appeler-)

merci



Avatar
Philippe.R
Bonjour,
Une mise en forme conditionnelle appliquée à la plage considérée, avec : si
la formule est :

=ET(COLONNE()ÎLLULE("colonne");LIGNE()ÎLLULE("ligne"))

couleur de ton choix ; et dans le code de la feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Calculate
End Sub

--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"Philippe MERY" a écrit dans le message de
news:48d8e38c$0$854$
Bonjour.
XL 97

est il possible de modifier la couleur de la cellule active ?


merci

Cordialement.
Philippe MERY
**pour m'écrire perso**
mery-ph -serveur- ifrance.com
www.freymille.com