Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Cellule active en vert pâle

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é !
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
sabatier
c'est pas mon ange qui m'aurait dit ça....
enfin, faut savoir aussi que caroline ne connaît pas l'ignoble GD....
jps

"Caroline L." a écrit dans le message de
news:sTo0d.68552$
Bonjour GD,
... tu rends une femme heureuse !

merci



Avatar
LeSteph
Re,
J'oubliais tu remplace le 8 de colorindex par 35
Tu peux remettre des coukeurs ailleurs ex ligne1 et 2
elle ne seront plus effacées.
Sinon pour éviter que cela rame limite à 10000 au lieu de 65536
(à remplacer en conséquence)
;-)

"LeSteph" a écrit dans le message de
news:%
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é !













Avatar
Philippe.R
Bonsoir,
Un petit application.screenupdating = false en début et application.screenupdating =true à la fin ne
peut pas faire de mal non plus en terme de vitesse d'exécution.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"LeSteph" a écrit dans le message de
news:
Re,
J'oubliais tu remplace le 8 de colorindex par 35
Tu peux remettre des coukeurs ailleurs ex ligne1 et 2
elle ne seront plus effacées.
Sinon pour éviter que cela rame limite à 10000 au lieu de 65536
(à remplacer en conséquence)
;-)

"LeSteph" a écrit dans le message de
news:%
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é !

















Avatar
LeSteph
Re,

C'est sûr encore bien vu Philippe donc:
'******
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rg As Range
application.screenupdating úlse
Range("c3:J10000").Cells.Interior.ColorIndex = xlNone
Set Rg = Intersect(Range("c3:J10000"), Target)
If Not Rg Is Nothing Then
Rg.Interior.ColorIndex = 35
End If
application.screenupdating =true

End Sub
'*****

"Philippe.R" a écrit dans le message de
news:OEv2I%
Bonsoir,
Un petit application.screenupdating = false en début et
application.screenupdating =true à la fin ne

peut pas faire de mal non plus en terme de vitesse d'exécution.
--
Amicales Salutations
XL 97 / 2000 / 2002
Retirer A_S_ pour répondre en privé.

"LeSteph" a écrit dans le message de
news:
Re,
J'oubliais tu remplace le 8 de colorindex par 35
Tu peux remettre des coukeurs ailleurs ex ligne1 et 2
elle ne seront plus effacées.
Sinon pour éviter que cela rame limite à 10000 au lieu de 65536
(à remplacer en conséquence)
;-)

"LeSteph" a écrit dans le message de
news:%
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