OVH Cloud OVH Cloud

Cellule active en vert pâle

24 réponses
Avatar
Caroline L.
Bonjour à tous !

Quel temps fait-il chez vous ? Ici à Montréal, c'est très moche. Il pleut
avec vents... on dirait l'automne.
Mais bon. :) Je bois du chocolat chaud et j'apprends plein de trucs Excel
!

J'ai deux questions (j'utilise Excel 2000 sous Win 98) :

1ère question : je voudrais faire en sorte que la cellule active (celle qui
est sélectionnée) soit fond vert pâle.
Exemple : si mon curseur se trouve en E3, je voudrais que E3 soit fond vert
pâle. Lorsque je me déplace vers une autre cellule, la couleur disparaît et
se loge dans la prochaine cellule active.
Mais la difficulté c'est que j'ai 2 restrictions que voici :

1) D'abord je voudrais que cette fonction s'applique à la plage suivante :
Colonne C à J (inclusivement) et ligne 3 (inclusivement) vers le bas jusqu'à
la dernière ligne d'Excel.

2) À l'intérieur de cette sélection j'ai un format de cellule conditionnel
qui colore certaines cellules en jaune.
Je voudrais que la cellule active "laisse tomber temporairement" le jaune et
devienne verte pâle (puisqu'il s'agit de la cellule active). Par la suite,
lorsque je changerai de cellule, elle reprendra sa couleur d'origine
c'est-à-dire le jaune. Est-ce que c'est clair ?

--------------------------------------------

2e question : sûrement que c'est très simple mais je n'arrive pas à
convertir les heures de format hh:mm
en format nombre. Exemple : convertir 14:30 en 14,5 ou bien encore,
convertir 09:45 en 9,75.
Je veux compiler des heures travaillées pour la comptabilité.

Voilà. Merci à l'avance pour votre aide.
Je prends un bon chocolat chaud à votre santé !

10 réponses

1 2 3
Avatar
LeSteph
Bonsoir,

Tu ouvres le message de MichDenis tu copie sa macro avec la souris
depuis Private sub ........jusqu'à .End Sub
tu vas dans excel
puis alt+f11 pour ouvrir VBA
puis ctrl+r pour ouvrir l'explorateur de projet
dedans il ya l'icône de feuil1 DBLclic
un module vide se trouve maintenant à droite
tu mets le curseur de souris dedans ctrl+v pour coller
tu ferme vba
puis tu te déplaces dans la feuille.

Sitou

leSteph

"Ctitout" a écrit dans le message de
news:chsjkt$bcn$
bonsoir à tous
une question neuneu
comment faire pour insérer cette macro
j'ai ouvert un fichier j'ai appelé VBA
sous feuil1 - général copy la macro mais me demande le nom de la macro
j'ai cliqué sur Feuil1 puis insertion module : idem
sous ThisWorkbook idem

je n'arrive pas à la faire fonctionner ou faut il l'écrire
je suis bloqué bien que j'ai lu http://www.excelabo.net/xl/pap-vba.php

--

Ctitout B-{}

¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
"michdenis" a écrit dans le message de
news:
Bonjour Caroline,

Dans le module de la feuille où l'action se déroule, copie ceci :

Et tu remplaces le 8 par une valeur de 1 à 56 , selon la couleur que tu
désires !


Ceci n'affectera pas la couleur de tes cellules ayant une mise en forme
conditionnelle ...


'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rg As Range
Cells.Interior.ColorIndex = xlNone
Set Rg = Intersect(Range("c3:J65536"), Target)
If Not Rg Is Nothing Then
Rg.Interior.ColorIndex = 8
End If

End Sub
'--------------------------


Salutations!



"Caroline L." a écrit dans le message de
news:ur40d.22989$

Bonjour à tous !

Quel temps fait-il chez vous ? Ici à Montréal, c'est très moche. Il
pleut


avec vents... on dirait l'automne.
Mais bon. :) Je bois du chocolat chaud et j'apprends plein de trucs
Excel

!

J'ai deux questions (j'utilise Excel 2000 sous Win 98) :

1ère question : je voudrais faire en sorte que la cellule active (celle
qui

est sélectionnée) soit fond vert pâle.
Exemple : si mon curseur se trouve en E3, je voudrais que E3 soit fond
vert

pâle. Lorsque je me déplace vers une autre cellule, la couleur disparaît
et

se loge dans la prochaine cellule active.
Mais la difficulté c'est que j'ai 2 restrictions que voici :

1) D'abord je voudrais que cette fonction s'applique à la plage suivante
:


Colonne C à J (inclusivement) et ligne 3 (inclusivement) vers le bas
jusqu'à

la dernière ligne d'Excel.

2) À l'intérieur de cette sélection j'ai un format de cellule
conditionnel


qui colore certaines cellules en jaune.
Je voudrais que la cellule active "laisse tomber temporairement" le
jaune


et
devienne verte pâle (puisqu'il s'agit de la cellule active). Par la
suite,


lorsque je changerai de cellule, elle reprendra sa couleur d'origine
c'est-à-dire le jaune. Est-ce que c'est clair ?

--------------------------------------------

2e question : sûrement que c'est très simple mais je n'arrive pas à
convertir les heures de format hh:mm
en format nombre. Exemple : convertir 14:30 en 14,5 ou bien encore,
convertir 09:45 en 9,75.
Je veux compiler des heures travaillées pour la comptabilité.

Voilà. Merci à l'avance pour votre aide.
Je prends un bon chocolat chaud à votre santé !








Avatar
Philippe.R
Bonsoir,
Tu copies ce qui suit, tel quel, dans le module qui s'ouvre quand tu cliques droit sur l'onglet de la
feuille concernée et que tu choisi "visualiser le code" :

'----------------debut de copie----------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rg As Range
Cells.Interior.ColorIndex = xlNone
Set Rg = Intersect(Range("c3:J65536"), Target)
If Not Rg Is Nothing Then
Rg.Interior.ColorIndex = 8
End If

End Sub
'------------------fin de copie---------------
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.
Préférez suivre facilement sur le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"Ctitout" a écrit dans le message de news:chsjkt$bcn$
bonsoir à tous
une question neuneu
comment faire pour insérer cette macro
j'ai ouvert un fichier j'ai appelé VBA
sous feuil1 - général copy la macro mais me demande le nom de la macro
j'ai cliqué sur Feuil1 puis insertion module : idem
sous ThisWorkbook idem

je n'arrive pas à la faire fonctionner ou faut il l'écrire
je suis bloqué bien que j'ai lu http://www.excelabo.net/xl/pap-vba.php

--

Ctitout B-{}

¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
"michdenis" a écrit dans le message de
news:
Bonjour Caroline,

Dans le module de la feuille où l'action se déroule, copie ceci :

Et tu remplaces le 8 par une valeur de 1 à 56 , selon la couleur que tu
désires !


Ceci n'affectera pas la couleur de tes cellules ayant une mise en forme
conditionnelle ...


'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rg As Range
Cells.Interior.ColorIndex = xlNone
Set Rg = Intersect(Range("c3:J65536"), Target)
If Not Rg Is Nothing Then
Rg.Interior.ColorIndex = 8
End If

End Sub
'--------------------------


Salutations!



"Caroline L." a écrit dans le message de
news:ur40d.22989$

Bonjour à tous !

Quel temps fait-il chez vous ? Ici à Montréal, c'est très moche. Il pleut
avec vents... on dirait l'automne.
Mais bon. :) Je bois du chocolat chaud et j'apprends plein de trucs
Excel

!

J'ai deux questions (j'utilise Excel 2000 sous Win 98) :

1ère question : je voudrais faire en sorte que la cellule active (celle
qui

est sélectionnée) soit fond vert pâle.
Exemple : si mon curseur se trouve en E3, je voudrais que E3 soit fond
vert

pâle. Lorsque je me déplace vers une autre cellule, la couleur disparaît
et

se loge dans la prochaine cellule active.
Mais la difficulté c'est que j'ai 2 restrictions que voici :

1) D'abord je voudrais que cette fonction s'applique à la plage suivante :
Colonne C à J (inclusivement) et ligne 3 (inclusivement) vers le bas
jusqu'à

la dernière ligne d'Excel.

2) À l'intérieur de cette sélection j'ai un format de cellule conditionnel
qui colore certaines cellules en jaune.
Je voudrais que la cellule active "laisse tomber temporairement" le jaune
et

devienne verte pâle (puisqu'il s'agit de la cellule active). Par la suite,
lorsque je changerai de cellule, elle reprendra sa couleur d'origine
c'est-à-dire le jaune. Est-ce que c'est clair ?

--------------------------------------------

2e question : sûrement que c'est très simple mais je n'arrive pas à
convertir les heures de format hh:mm
en format nombre. Exemple : convertir 14:30 en 14,5 ou bien encore,
convertir 09:45 en 9,75.
Je veux compiler des heures travaillées pour la comptabilité.

Voilà. Merci à l'avance pour votre aide.
Je prends un bon chocolat chaud à votre santé !








Avatar
Ctitout
bonsoir
merci j'ai réussi

--

Ctitout B-{}

¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
"michdenis" a écrit dans le message de
news:
Bonjour Caroline,

Dans le module de la feuille où l'action se déroule, copie ceci :

Et tu remplaces le 8 par une valeur de 1 à 56 , selon la couleur que tu
désires !


Ceci n'affectera pas la couleur de tes cellules ayant une mise en forme
conditionnelle ...


'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rg As Range
Cells.Interior.ColorIndex = xlNone
Set Rg = Intersect(Range("c3:J65536"), Target)
If Not Rg Is Nothing Then
Rg.Interior.ColorIndex = 8
End If

End Sub
'--------------------------


Salutations!



"Caroline L." a écrit dans le message de
news:ur40d.22989$

Bonjour à tous !

Quel temps fait-il chez vous ? Ici à Montréal, c'est très moche. Il pleut
avec vents... on dirait l'automne.
Mais bon. :) Je bois du chocolat chaud et j'apprends plein de trucs
Excel

!

J'ai deux questions (j'utilise Excel 2000 sous Win 98) :

1ère question : je voudrais faire en sorte que la cellule active (celle
qui

est sélectionnée) soit fond vert pâle.
Exemple : si mon curseur se trouve en E3, je voudrais que E3 soit fond
vert

pâle. Lorsque je me déplace vers une autre cellule, la couleur disparaît
et

se loge dans la prochaine cellule active.
Mais la difficulté c'est que j'ai 2 restrictions que voici :

1) D'abord je voudrais que cette fonction s'applique à la plage suivante :
Colonne C à J (inclusivement) et ligne 3 (inclusivement) vers le bas
jusqu'à

la dernière ligne d'Excel.

2) À l'intérieur de cette sélection j'ai un format de cellule conditionnel
qui colore certaines cellules en jaune.
Je voudrais que la cellule active "laisse tomber temporairement" le jaune
et

devienne verte pâle (puisqu'il s'agit de la cellule active). Par la suite,
lorsque je changerai de cellule, elle reprendra sa couleur d'origine
c'est-à-dire le jaune. Est-ce que c'est clair ?

--------------------------------------------

2e question : sûrement que c'est très simple mais je n'arrive pas à
convertir les heures de format hh:mm
en format nombre. Exemple : convertir 14:30 en 14,5 ou bien encore,
convertir 09:45 en 9,75.
Je veux compiler des heures travaillées pour la comptabilité.

Voilà. Merci à l'avance pour votre aide.
Je prends un bon chocolat chaud à votre santé !





Avatar
Clément Marcotte
Bonjour,

Y a pas à dire, vous fûtes synchronisés ;-)
Avatar
Philippe.R
N'est ce pas !?!
;o)))
--
Amicales Salutations

"Clément Marcotte" a écrit dans le message de
news:u4q$
Bonjour,

Y a pas à dire, vous fûtes synchronisés ;-)




Avatar
Philippe.R
Content pour toi !
;o))
--
Amicales Salutations

"Ctitout" a écrit dans le message de news:chstpm$ue7$
bonsoir
merci j'ai réussi

--

Ctitout B-{}

¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
il ne faut pas mettre du vinaigre dans ses écrits,
il faut y mettre du sel. (Montesquieu)
¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤
"michdenis" a écrit dans le message de
news:
Bonjour Caroline,

Dans le module de la feuille où l'action se déroule, copie ceci :

Et tu remplaces le 8 par une valeur de 1 à 56 , selon la couleur que tu
désires !


Ceci n'affectera pas la couleur de tes cellules ayant une mise en forme
conditionnelle ...


'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rg As Range
Cells.Interior.ColorIndex = xlNone
Set Rg = Intersect(Range("c3:J65536"), Target)
If Not Rg Is Nothing Then
Rg.Interior.ColorIndex = 8
End If

End Sub
'--------------------------


Salutations!



"Caroline L." a écrit dans le message de
news:ur40d.22989$

Bonjour à tous !

Quel temps fait-il chez vous ? Ici à Montréal, c'est très moche. Il pleut
avec vents... on dirait l'automne.
Mais bon. :) Je bois du chocolat chaud et j'apprends plein de trucs
Excel

!

J'ai deux questions (j'utilise Excel 2000 sous Win 98) :

1ère question : je voudrais faire en sorte que la cellule active (celle
qui

est sélectionnée) soit fond vert pâle.
Exemple : si mon curseur se trouve en E3, je voudrais que E3 soit fond
vert

pâle. Lorsque je me déplace vers une autre cellule, la couleur disparaît
et

se loge dans la prochaine cellule active.
Mais la difficulté c'est que j'ai 2 restrictions que voici :

1) D'abord je voudrais que cette fonction s'applique à la plage suivante :
Colonne C à J (inclusivement) et ligne 3 (inclusivement) vers le bas
jusqu'à

la dernière ligne d'Excel.

2) À l'intérieur de cette sélection j'ai un format de cellule conditionnel
qui colore certaines cellules en jaune.
Je voudrais que la cellule active "laisse tomber temporairement" le jaune
et

devienne verte pâle (puisqu'il s'agit de la cellule active). Par la suite,
lorsque je changerai de cellule, elle reprendra sa couleur d'origine
c'est-à-dire le jaune. Est-ce que c'est clair ?

--------------------------------------------

2e question : sûrement que c'est très simple mais je n'arrive pas à
convertir les heures de format hh:mm
en format nombre. Exemple : convertir 14:30 en 14,5 ou bien encore,
convertir 09:45 en 9,75.
Je veux compiler des heures travaillées pour la comptabilité.

Voilà. Merci à l'avance pour votre aide.
Je prends un bon chocolat chaud à votre santé !








Avatar
Caroline L.
Bonjour,
j'ai essayé, cela fonctionne en partie. C'est génial, la cellule active se
colore mais c'est très long. Est-ce la puissance de mon ordi qui donne se
résultat ? Ensuite si la cellule active ayant une mise en forme
conditionnelle (jaune) est sélectionnée, elle reste jaune. Mais le plus
gros inconvénient c'est que j'ai perdu toutes les couleurs dans le reste de
la feuille (par exemple, la colonne A et la ligne 2 était en couleur mais
maintenant tout est fond blanc).

Que faire ?


"michdenis" a écrit dans le message de news:

Bonjour Caroline,

Dans le module de la feuille où l'action se déroule, copie ceci :

Et tu remplaces le 8 par une valeur de 1 à 56 , selon la couleur que tu
désires !


Ceci n'affectera pas la couleur de tes cellules ayant une mise en forme
conditionnelle ...


'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rg As Range
Cells.Interior.ColorIndex = xlNone
Set Rg = Intersect(Range("c3:J65536"), Target)
If Not Rg Is Nothing Then
Rg.Interior.ColorIndex = 8
End If

End Sub
'--------------------------


Salutations!



"Caroline L." a écrit dans le message de
news:ur40d.22989$

Bonjour à tous !

Quel temps fait-il chez vous ? Ici à Montréal, c'est très moche. Il pleut
avec vents... on dirait l'automne.
Mais bon. :) Je bois du chocolat chaud et j'apprends plein de trucs
Excel

!

J'ai deux questions (j'utilise Excel 2000 sous Win 98) :

1ère question : je voudrais faire en sorte que la cellule active (celle
qui

est sélectionnée) soit fond vert pâle.
Exemple : si mon curseur se trouve en E3, je voudrais que E3 soit fond
vert

pâle. Lorsque je me déplace vers une autre cellule, la couleur disparaît
et

se loge dans la prochaine cellule active.
Mais la difficulté c'est que j'ai 2 restrictions que voici :

1) D'abord je voudrais que cette fonction s'applique à la plage suivante :
Colonne C à J (inclusivement) et ligne 3 (inclusivement) vers le bas
jusqu'à

la dernière ligne d'Excel.

2) À l'intérieur de cette sélection j'ai un format de cellule conditionnel
qui colore certaines cellules en jaune.
Je voudrais que la cellule active "laisse tomber temporairement" le jaune
et

devienne verte pâle (puisqu'il s'agit de la cellule active). Par la suite,
lorsque je changerai de cellule, elle reprendra sa couleur d'origine
c'est-à-dire le jaune. Est-ce que c'est clair ?

--------------------------------------------

2e question : sûrement que c'est très simple mais je n'arrive pas à
convertir les heures de format hh:mm
en format nombre. Exemple : convertir 14:30 en 14,5 ou bien encore,
convertir 09:45 en 9,75.
Je veux compiler des heures travaillées pour la comptabilité.

Voilà. Merci à l'avance pour votre aide.
Je prends un bon chocolat chaud à votre santé !





Avatar
Caroline L.
Merci à toi d'avoir répondu.
:o))

"LeSteph" a écrit dans le message de news:

Bonjour,
laisse tomber la mienne, me suis leuré sur
la mefc qui n'a pas de raison de changer de couleur
même si on efface toute la zone.
En plus j'ai mal ciblé puisqu'il faut aussi effacer le vert clair
lorsqu'on sort de c3:j65536
Donc prends celle de MichDenis qui est nickel
il n'y a même pas photo!Et c'était bien plus simple
en fait!
Merci à toi pour cet intéressant exercice.

;-)
leSteph

"Caroline L." a écrit dans le message de
news:GL70d.34515$
Re-bonsoir,
j'ai lu vos messages... merci.
Je vais tester vos bons conseils et procédures demain à la première
heure


et
je vous reviens à ce moment... Là je dois me déconnecter d'internet
puisque

je suis "ligne téléphonique" ... Mais je tenais à vous remercier de
votre


aide.

À bientôt :o))



"LeSteph" a écrit dans le message de news:
#
ReBonsoir tous et Michdenis,
Me suis bien amusé et en plus grâce à toi j'ai le corrigé!
Un pu plus concis et efficace
Merci!
;-))

"michdenis" a écrit dans le message de
news:
Bonjour Caroline,

Dans le module de la feuille où l'action se déroule, copie ceci :

Et tu remplaces le 8 par une valeur de 1 à 56 , selon la couleur que
tu



désires !

Ceci n'affectera pas la couleur de tes cellules ayant une mise en
forme



conditionnelle ...

'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rg As Range
Cells.Interior.ColorIndex = xlNone
Set Rg = Intersect(Range("c3:J65536"), Target)
If Not Rg Is Nothing Then
Rg.Interior.ColorIndex = 8
End If

End Sub
'--------------------------


Salutations!



"Caroline L." a écrit dans le message de
news:ur40d.22989$

Bonjour à tous !

Quel temps fait-il chez vous ? Ici à Montréal, c'est très moche. Il
pleut


avec vents... on dirait l'automne.
Mais bon. :) Je bois du chocolat chaud et j'apprends plein de
trucs




Excel
!

J'ai deux questions (j'utilise Excel 2000 sous Win 98) :

1ère question : je voudrais faire en sorte que la cellule active
(celle



qui
est sélectionnée) soit fond vert pâle.
Exemple : si mon curseur se trouve en E3, je voudrais que E3 soit
fond




vert
pâle. Lorsque je me déplace vers une autre cellule, la couleur
disparaît



et
se loge dans la prochaine cellule active.
Mais la difficulté c'est que j'ai 2 restrictions que voici :

1) D'abord je voudrais que cette fonction s'applique à la plage
suivante



:
Colonne C à J (inclusivement) et ligne 3 (inclusivement) vers le bas
jusqu'à

la dernière ligne d'Excel.

2) À l'intérieur de cette sélection j'ai un format de cellule
conditionnel


qui colore certaines cellules en jaune.
Je voudrais que la cellule active "laisse tomber temporairement" le
jaune


et
devienne verte pâle (puisqu'il s'agit de la cellule active). Par la
suite,


lorsque je changerai de cellule, elle reprendra sa couleur d'origine
c'est-à-dire le jaune. Est-ce que c'est clair ?

--------------------------------------------

2e question : sûrement que c'est très simple mais je n'arrive pas à
convertir les heures de format hh:mm
en format nombre. Exemple : convertir 14:30 en 14,5 ou bien
encore,




convertir 09:45 en 9,75.
Je veux compiler des heures travaillées pour la comptabilité.

Voilà. Merci à l'avance pour votre aide.
Je prends un bon chocolat chaud à votre santé !

















Avatar
Caroline L.
Bonjour GD,
1- intéressant et impressionnant comme idée mais ce n'est pas tellement ce
que je cherche
2- super génial ! ça fonctionne... tu rends une femme heureuse !
merci


"GD" a écrit dans le message de news:

Bonsour ® Caroline.L,
1-
si tu ne tiens pas "absolument" que le fond de la cellule active soit
vert.....
voir cet exemple de notre ami franco-canadien Gaetan :
http://www.polykromy.com/fichiers/rectangle.xls

2-
"14:30"/"1:" ou bien en A1 14:30 en B1¡/"1:" format standard
"9:45"/"1:" ou bien en A2 9:45 en B2¢/"1:" format standard

;o)))
@+



"Caroline L." a écrit dans le message de
news:ur40d.22989$
Bonjour à tous !

Quel temps fait-il chez vous ? Ici à Montréal, c'est très moche. Il
pleut


avec vents... on dirait l'automne.
Mais bon. :) Je bois du chocolat chaud et j'apprends plein de trucs
Excel

!

J'ai deux questions (j'utilise Excel 2000 sous Win 98) :

1ère question : je voudrais faire en sorte que la cellule active (celle
qui

est sélectionnée) soit fond vert pâle.
Exemple : si mon curseur se trouve en E3, je voudrais que E3 soit fond
vert

pâle. Lorsque je me déplace vers une autre cellule, la couleur disparaît
et

se loge dans la prochaine cellule active.
Mais la difficulté c'est que j'ai 2 restrictions que voici :

1) D'abord je voudrais que cette fonction s'applique à la plage suivante
:


Colonne C à J (inclusivement) et ligne 3 (inclusivement) vers le bas
jusqu'à

la dernière ligne d'Excel.

2) À l'intérieur de cette sélection j'ai un format de cellule
conditionnel


qui colore certaines cellules en jaune.
Je voudrais que la cellule active "laisse tomber temporairement" le
jaune


et
devienne verte pâle (puisqu'il s'agit de la cellule active). Par la
suite,


lorsque je changerai de cellule, elle reprendra sa couleur d'origine
c'est-à-dire le jaune. Est-ce que c'est clair ?

--------------------------------------------

2e question : sûrement que c'est très simple mais je n'arrive pas à
convertir les heures de format hh:mm
en format nombre. Exemple : convertir 14:30 en 14,5 ou bien encore,
convertir 09:45 en 9,75.
Je veux compiler des heures travaillées pour la comptabilité.

Voilà. Merci à l'avance pour votre aide.
Je prends un bon chocolat chaud à votre santé !








Avatar
LeSteph
Bonsoir Caroline,
Essaie cette petite variante:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rg As Range
Range("c3:J65536").Cells.Interior.ColorIndex = xlNone
Set Rg = Intersect(Range("c3:J65536"), Target)
If Not Rg Is Nothing Then
Rg.Interior.ColorIndex = 8
End If

End Sub


'leSteph
"Caroline L." a écrit dans le message de
news:Rto0d.67807$
Bonjour,
j'ai essayé, cela fonctionne en partie. C'est génial, la cellule active se
colore mais c'est très long. Est-ce la puissance de mon ordi qui donne se
résultat ? Ensuite si la cellule active ayant une mise en forme
conditionnelle (jaune) est sélectionnée, elle reste jaune. Mais le plus
gros inconvénient c'est que j'ai perdu toutes les couleurs dans le reste
de

la feuille (par exemple, la colonne A et la ligne 2 était en couleur mais
maintenant tout est fond blanc).

Que faire ?


"michdenis" a écrit dans le message de news:

Bonjour Caroline,

Dans le module de la feuille où l'action se déroule, copie ceci :

Et tu remplaces le 8 par une valeur de 1 à 56 , selon la couleur que tu
désires !


Ceci n'affectera pas la couleur de tes cellules ayant une mise en forme
conditionnelle ...


'--------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rg As Range
Cells.Interior.ColorIndex = xlNone
Set Rg = Intersect(Range("c3:J65536"), Target)
If Not Rg Is Nothing Then
Rg.Interior.ColorIndex = 8
End If

End Sub
'--------------------------


Salutations!



"Caroline L." a écrit dans le message de
news:ur40d.22989$

Bonjour à tous !

Quel temps fait-il chez vous ? Ici à Montréal, c'est très moche. Il
pleut


avec vents... on dirait l'automne.
Mais bon. :) Je bois du chocolat chaud et j'apprends plein de trucs
Excel

!

J'ai deux questions (j'utilise Excel 2000 sous Win 98) :

1ère question : je voudrais faire en sorte que la cellule active (celle
qui

est sélectionnée) soit fond vert pâle.
Exemple : si mon curseur se trouve en E3, je voudrais que E3 soit fond
vert

pâle. Lorsque je me déplace vers une autre cellule, la couleur disparaît
et

se loge dans la prochaine cellule active.
Mais la difficulté c'est que j'ai 2 restrictions que voici :

1) D'abord je voudrais que cette fonction s'applique à la plage suivante
:


Colonne C à J (inclusivement) et ligne 3 (inclusivement) vers le bas
jusqu'à

la dernière ligne d'Excel.

2) À l'intérieur de cette sélection j'ai un format de cellule
conditionnel


qui colore certaines cellules en jaune.
Je voudrais que la cellule active "laisse tomber temporairement" le
jaune


et
devienne verte pâle (puisqu'il s'agit de la cellule active). Par la
suite,


lorsque je changerai de cellule, elle reprendra sa couleur d'origine
c'est-à-dire le jaune. Est-ce que c'est clair ?

--------------------------------------------

2e question : sûrement que c'est très simple mais je n'arrive pas à
convertir les heures de format hh:mm
en format nombre. Exemple : convertir 14:30 en 14,5 ou bien encore,
convertir 09:45 en 9,75.
Je veux compiler des heures travaillées pour la comptabilité.

Voilà. Merci à l'avance pour votre aide.
Je prends un bon chocolat chaud à votre santé !









1 2 3