Mettre en couleur ligne aujourd'hui en tapant nombre

[un internaute]

Bonjour le forum
Comme vous allez pouvoir le constater dans fichier joint je voudrais que la ligne 15 ne soit pas en couleur (interior color 17) mais garde ses couleurs (voir lignes 13) (lignes 14 et 15 pour samedi dimanche et jours fériés interior color 38)
Mais si je tape 3 dans cellules B16 pour aujourd'hui ma ligne passe en couleur interior color 17.
Je pense que ça je "joue" dans macro ThisWorkbook
J'ai oublié SANS MFC
Merci à vous

 

[sousou]

Bonjour
Je pense que tu parles de la ligne 16 et non pas 15?
dans ce cas sans avoir tout dépiauté, modifie le code comme ceci. de J'ai déplacé set cel
Set cel = Plage.Columns(1).Find(CLng(Date), , xlValues, xlWhole)
If IsNull(Plage.Columns(1).NumberFormat) Then F = "dddd dd mmmm yyyy" Else F = Plage.Columns(1).NumberFormat
Plage.Columns(1).NumberFormat = "General"
'effectue la recherche de la date en type Long sur la colonne A
'Set cel = Plage.Columns(1).Find(CLng(Date), , xlValues, xlWhole)

 

[un internaute]

Bonjour sousou
Merci à toi
Peux-tu stp me replacer ta modif dans la macro au bon endroit car je suis un peu perdu
Ma ligne 15 doit être en rose car dimanche sinon couleur interior color 8
Si je tape 3 la ligne 16 passe en interior color 17
La ligne 16 doit se "retrouver" comme dans le fichier joint aaa.xls pour aujourd'hui et ainsi de suite
Je suis sous EXCEL 2003
Fichier joint

 

[sousou]

Dans thisworkbook procédure Private Sub Workbook_SheetChange
Placer Set cel = Plage.Columns(1).Find(CLng(Date), , xlValues, xlWhole devant
If IsNull(Plage.Columns(1).NumberFormat) Then F = "dddd dd mmmm yyyy" Else F = Plage.Columns(1).NumberFormat

 

[un internaute]

Merci sousou
Je verrais ça demain à l'ouverture du fichier.
Bonne fin de journée à toi

 

[un internaute]

Bonjour sousou
Pas de changement
Je pense que c'est un problème après minuit ça devrait passer en couleurs normales
Et si je tape 3 aujourd'hui ça vient en couleur 17 (c'est normal)
Ce matin j'aurais du retrouver mon fichier comme toto (fichier joint)
Alors qu'il est comme tata
J'ai ajouté ta ligne dans tata

Set cel = Plage.Columns(1).Find(CLng(Date), , xlValues, xlWhole) 'Ajout Ligne le 11/03/2019

Cordialement

 

[un internaute]

Bonjour le forum
Personne veut s'y coller ou faire des essais?
Cordialement

 

[un internaute]

Bonjour le forum
Pas de "caïd" du vba veut s'y coller?
Peut-être une seule MFC suffirait?
Cordialement

 

[un internaute]

Bonjour le forum
Personne pour s'y coller?
Cordialement