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 MEFC 8 couleurs suivant heures renseignées dans une cellule

MEFC 8 couleurs suivant heures renseignées dans une cellule

11 réponses
Avatar
Seynod74
Bonjour,

J'ai une feuille nommée 'Couleurs' avec dans la colonne A des heures
renseignées et une couleur différente de cellule pour chaque heure.
Dans une autre feuille du classeur, j'ai un tableau et aux entêtes de
colonnes i à n les jours suivants :
lundi,mardi,mercredi,jeudi,vendredi,samedi. Je souhaiterai que chaque cellule
des colonnes i à n suivant l'heure renseignée dans celles-ci prennent la
couleur définie dans la feuille 'Couleurs'
Merci
Signaler un problème avec ce contenu

1 réponse

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
Avatar
Seynod74
Merci JACKY, ça marche mieux que prévu : je peux donc faire des opération sur
ces heures et lorsque j'efface les données d'une cellule, même la couleur
disparaît maintenant.
Le service de l'hôpital te remercie par avance
Merci aussi à françois
Bon Week-end à tous


Re...
Exemple ici:
http://cjoint.com/?iAqdbSJkZf
JJ

"Seynod74" a écrit dans le message de
news:
Si je rentre les heures (exemple 6h50) sous ce formatage hHmm alors mon
code

VBA pour colorier la cellule, avec cette heure (6h50) sous ce formatage,
ne

fonctionne plus.
Mon code : Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case 410
ou celui-ci : Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "6h50"


Re..........
Ceci peut-être, si les heures sont rentrées sous la forme 6:50 formatées
hHmm
'---------
Private Sub Worksheet_Change(ByVal Target As Range)
x = Format(Target, "hhHmm")
Select Case x
Case "06H50"
Target.Interior.ColorIndex = 19
Case "07H00"
Target.Interior.ColorIndex = 27
Case "07H20"
Target.Interior.ColorIndex = 40
Case "07H30"
Target.Interior.ColorIndex = 44
Case "13H50"
Target.Interior.ColorIndex = 20
Case "14H00"
Target.Interior.ColorIndex = 28
Case "14H20"
Target.Interior.ColorIndex = 37
Case "14H30"
Target.Interior.ColorIndex = 42
End Select
End Sub
'----------
Salutations
JJ

"Seynod74" a écrit dans le message
de


news:
En fait, j'ai renoncé de me servir d'une feuille 'Couleurs'
Je travaille qu'avec la feuille principale dont voici le VBA qui
marche.



Mais, le format de la ligne Case ("6h50") m'empèche ensuite de
l'exploiter



afin d'ajouter une validation avec formule dans les cellules.
Peut-on saisir ce format heure d'une autre façon ?
Merçi

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "6H50"
Target.Interior.ColorIndex = 19
Case "7H00"
Target.Interior.ColorIndex = 27
Case "7H20"
Target.Interior.ColorIndex = 40
Case "7H30"
Target.Interior.ColorIndex = 44
Case "13H50"
Target.Interior.ColorIndex = 20
Case "14H00"
Target.Interior.ColorIndex = 28
Case "14H20"
Target.Interior.ColorIndex = 37
Case "14H30"
Target.Interior.ColorIndex = 42


Bonjour,

Peut-être ceci:
'-----
Sub jj()
Application.ScreenUpdating = False
dercol = Cells.Find("*", , 1, , 2, 2).Column
derlg = Cells.Find("*", , 1, , 1, 2).Row
For Each c In Range(Cells(2, 1), Cells(derlg, dercol))
On Error Resume Next
If Application.Match(c, [Couleurs!A:A], 0) Then
c.Interior.ColorIndex > > > > > Sheets("Couleurs").Cells(Application.Match(c, [Couleurs!A:A], 0),




1).Interior.ColorIndex
Next
End Sub
'---------
Salutations
JJ

"Seynod74" a écrit dans le
message




de
news:
Bonjour,

J'ai une feuille nommée 'Couleurs' avec dans la colonne A des
heures





renseignées et une couleur différente de cellule pour chaque
heure.





Dans une autre feuille du classeur, j'ai un tableau et aux entêtes
de





colonnes i à n les jours suivants :
lundi,mardi,mercredi,jeudi,vendredi,samedi. Je souhaiterai que
chaque





cellule
des colonnes i à n suivant l'heure renseignée dans celles-ci
prennent





la
couleur définie dans la feuille 'Couleurs'
Merci





















1 2