Bonjour HarryKleins
Je suis désolé pour ceux qui doivent prendre des médicaments : je leur souhaite le plus grand bénéfice pour leur santé.
changer les couleurs des mots c'est faisable j'utilise
rg.Characters(Position, Len(date)).Font.Color = RGB(255, 0, 0)
si rg désigne la cellule où l'on trouve la date
date est l'extraction de la date dans la cellule
ou Position est la position de la date dans le range
pour la fonction RGB R=255 est la valeur de rouge la plus forte
Les deux autres zero : c'est pour le vert et le bleu
Sinon je réflechis avec un smartphone disposant d'un port USB OTG (attention outre Excel je suis un geek bienveillant) : je cherche s'il existe un appareil qui écrit des puces RFID : j'y ai pensé il y a quelques jours car cela s'utilise déjà pour les mal-voyants avec un appareil spécifique (et c'est déjà pas cher).
Ils gèrent la péremption ainsi des oeufs ou du lait, tout ce qu'ils mettent dans le réfrigérateur.
Avec un fichier cela nous permettrait de répondre plus précisément au besoin