OVH Cloud OVH Cloud

Cellule active (curseur)

4 réponses
Avatar
Jean Laflèche
Bonjour à tous et toutes,

Je tente d'aider un regroupement de personnes âgées, en informatisant peu à
peu leurs bases de données et leurs procédures. Le problème rencontré par
la majorité, est qu'ils (elles) ont de la difficulté à repérer le curseur
(la cellule active). Cela les énerve de devoir chercher où il pointe.

Y a-t-il donc un moyen de changer la couleur de la cellule active ?

Merci à l'avance
--
Salutations et bonne fin de journée,

Jean Laflèche

4 réponses

Avatar
RGI
Bonjour

mettre ce code dans la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 10000 Or Target.Column < 1 Or Target.Column > 255 Then
Exit Sub
Range("A1:IV10000").Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 36
End Sub


Salutations

RGI

Bonjour à tous et toutes,

Je tente d'aider un regroupement de personnes âgées, en informatisant peu à
peu leurs bases de données et leurs procédures. Le problème rencontré par
la majorité, est qu'ils (elles) ont de la difficulté à repérer le curseur
(la cellule active). Cela les énerve de devoir chercher où il pointe.

Y a-t-il donc un moyen de changer la couleur de la cellule active ?

Merci à l'avance



Avatar
JB
Bonjour,

Coloriage cellule active pour un champ seulement:

-Selectionner A2:D16
-Format/Mise en forme conditionnelle
=ET(LIGNE()ÎLLULE("ligne");COLONNE()ÎLLULE("colonne"))

http://cjoint.com/?lppv3sMNuq

Cordialement JB


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


Bonjour à tous et toutes,

Je tente d'aider un regroupement de personnes âgées, en informatisant peu à
peu leurs bases de données et leurs procédures. Le problème rencon tré par
la majorité, est qu'ils (elles) ont de la difficulté à repérer le curseur
(la cellule active). Cela les énerve de devoir chercher où il pointe.

Y a-t-il donc un moyen de changer la couleur de la cellule active ?

Merci à l'avance
--
Salutations et bonne fin de journée,

Jean Laflèche


Avatar
JB
Une loupe pour mieux voir la cellule active:

http://cjoint.com/?lppY43SeC3

JB

Bonjour à tous et toutes,

Je tente d'aider un regroupement de personnes âgées, en informatisant peu à
peu leurs bases de données et leurs procédures. Le problème rencon tré par
la majorité, est qu'ils (elles) ont de la difficulté à repérer le curseur
(la cellule active). Cela les énerve de devoir chercher où il pointe.

Y a-t-il donc un moyen de changer la couleur de la cellule active ?

Merci à l'avance
--
Salutations et bonne fin de journée,

Jean Laflèche


Avatar
JB
Bonjour,

Il faut préciser que s'il y a une couleur de fond, celle ci est
effacée.

JB

comme ceci
Cjoint <http://cjoint.com/?lppIsbxexy>

salutations

RGI


Bonjour

mettre ce code dans la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 10000 Or Target.Column < 1 Or Target.Column > 255 Then
Exit Sub
Range("A1:IV10000").Interior.ColorIndex = xlNone
ActiveCell.Interior.ColorIndex = 36
End Sub


Salutations

RGI

Bonjour à tous et toutes,

Je tente d'aider un regroupement de personnes âgées, en informatis ant
peu à peu leurs bases de données et leurs procédures. Le probl ème
rencontré par la majorité, est qu'ils (elles) ont de la difficult é à
repérer le curseur (la cellule active). Cela les énerve de devoir
chercher où il pointe.

Y a-t-il donc un moyen de changer la couleur de la cellule active ?

Merci à l'avance




--------------010908080109030306080505
Content-Type: text/html; charset=ISO-8859-1
X-Google-AttachSize: 1522

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content- Type">
</head>
<body bgcolor="#ffffff" text="#000000">
comme ceci<br>
<a href="http://cjoint.com/?lppIsbxexy">Cjoint</a><br>
<br>
salutations<br>
<br>
RGI<br>
<br>
<br>
RGI a &eacute;crit&nbsp;:
<blockquote cite="mide$" type="cit e">Bonjour
<br>
<br>
mettre ce code dans la feuille
<br>
<br>
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
<br>
If Target.Row &gt; 10000 Or Target.Column &lt; 1 Or Target.Column &gt;
255 Then Exit Sub
<br>
Range("A1:IV10000").Interior.ColorIndex <br>
ActiveCell.Interior.ColorIndex <br>
End Sub
<br>
<br>
<br>
Salutations
<br>
<br>
RGI
<br>
<br>
<br>
<blockquote type="cite">Bonjour &agrave; tous et toutes,
<br>
<br>
Je tente d'aider un regroupement de personnes &acirc;g&eacute;es, en info rmatisant
peu &agrave; peu leurs bases de donn&eacute;es et leurs proc&eacute;dures .&nbsp; Le probl&egrave;me
rencontr&eacute; par la majorit&eacute;, est qu'ils (elles) ont de la dif ficult&eacute; &agrave;
rep&eacute;rer le curseur (la cellule active).&nbsp; Cela les &eacute;ner ve de devoir
chercher o&ugrave; il pointe.
<br>
<br>
Y a-t-il donc un moyen de changer la couleur de la cellule active ?
<br>
<br>
Merci &agrave; l'avance
<br>
&nbsp; </blockquote>
</blockquote>
</body>
</html>

--------------010908080109030306080505--