Microsoft 365 créer alerte sur MFC de couleur

[laurent9lb]

Bonjour à tous

je cherche un moyen d'améliorer notre fichier "en alerte"

Je souhaite avoir un message d'alerte quand j'ouvre excel.

Exemple:

quand la couleur de la cellule de E10 à E18 passe au vert je souhaite un message d'alerte "Attention visite permis chauffeur à faire" et quand on clique sur cette alerte les cellules repasse au blanc.

J'ai bien pensé à rajouter une MFC comme dans le Suivi Modifier.
mais en cas de non ouverture du fichier on peut avoir des soucis.

Avons nous une solution

merci

 

[laurent9lb]

bonjour

J'ai reçu un bon coup de main d'un membre du forum.

Voila ou on en est.

Il me reste reste à faire des alerte sur les jours 😳 et la je sèche

J'y retourne

😱 J’espère que je n'est pas d'erreur 😱

A bientôt

 

[eriiic]

Bonjour,

J'ai reçu un bon coup de main d'un membre du forum.

Ca serait sympa de partager la solution pour les futurs lecteurs qui commencent par une recherche.

Quant à :

reste à faire des alerte sur les jours

, vue la précision ne t'attend pas à une avalanche de propositions ;-)
eric

 

[laurent9lb]

La personne ma donnée cette superbe macro.

Je m'en suis servis de base et adapté à mon classeur.


Sub Aut😵pen()
For Each n In Range("C10:C20")
If n = DateSerial(Year(n), Month(Date), Day(Date)) Then
MsgBox "il y a un(s) anniversaire(s) aujourd'hui "
Exit For
End If
Next
For Each a In Range("E10😛18")
If a = Date Then
MsgBox "il y a un(s) évenement(s) aujourd'hui "
Exit For
End If
Next
End Sub


Désolé les smiley font le bazar dans la macro impossible de les enlevé.
(vous avez la macro dans le fichier joint


Après plusieurs heure de recherche j'ai réussi a adapté cette deuxième macro.

For Each c In Range("C10:C17")
If c.Value < DateSerial(Year(Date), Month(Date) + 1, Day(Date)) Then
MsgBox " Il y a un Anniversaire sous 1 mois ", vbExclamation, ""
Exit For
End If
Next

Maintenant il faut que j'arrive a faire la même chose sur Day(Date)) + 15 Then

mais là. cela ne marche pas. 😱 😡😛


Allé je me prend la tète mais je me régale aussi.

allé j'y retourne

a bientôt

 

[Staple1600]

Bonsoir le fil

laurent9lb
=>Pour infos
On peut nommer ou citer les personnes qui répondent aux questions.
C'est indolore (et c'est ce que se pratique d'habitude quand on commence à ne plus être un nouveau membre 😉)
On peut aussi citer avec un lien, la discussion "mère" de la discussion fille

Microsoft 365 - alerte date anniversaire( résolu )

Bonjour :D Je cherche un moyen de crée une alerte sur les dates anniversaire. J'ai essayé pas mal de MFC Cela ne fonctionne pas. Avons nous une solution ?? pour un débutant. Voici mon dossier Je vous remercie

www.excel-downloads.com

C'est toujours indolore 😉
Et pour tout plein d'autres choses indolores, il y a la charte du forum
(que les membres les plus méritant du forum ont imprimé sur du papier velin et encadré avec un cadre en bois flotté.)
Cadre fièrement posé sur leur table de chevet entre le réveil et la photo de Ian Anderson 😉)

 

[laurent9lb]

Ok pas de soucis Mr STAPLE1600 j'en prend note.😉

A bientôt sur le forum😀

 

[eriiic]

Pour coller un code utiliser l'icone </> en choisissant le langage VB
Il sera plus lisible et l'indentation (que tu ne manques pas de t'appliquer à faire 😉) conservée

 

[laurent9lb]

Bonsoir

mauvaise nouvelle 😱 😳

La macro alerte à 30 jours avant échéance "ne fonctionne pas"

En effet je viens de faire un contrôle et les alertes sont fausse erronées.

Je retenterais l'expérience plus tard.

a bientôt