Mise en forme conditionnelle

[ngexcel]

Bonsoir à tous
j ai un fichier avec 4 couleurs pour des mises en formes conditionnelles

jusqu a la c'est bon ça fonctionne ça change de couleur a l approche d une date

je cherche que l’orque une cellule passe dans une des 4 couleurs je sois prévenu par mail

je continu a chercher de mon coté et cherche des solutions

merci si quelqu un a une idée je prend

merci

 

[st007]

Re : Mise en forme conditionnelle

Bonsoir,

un peu de lecture :
https://www.excel-downloads.com/threads/envoi-automatique-de-mail-sous-condition.126666/
https://www.excel-downloads.com/threads/envoi-mail-dates-echeances.222355/
critères de recherche :

envoi-mail-echeance

 

[ngexcel]

Re : Mise en forme conditionnelle

bonsoir st007

je regarde et je vais tester

Bonne soirée

 

[JCGL]

Re : Mise en forme conditionnelle

Bonjour à tous,

Peux-tu essayer avec ceci (action si changement d'une date dans les cellule MeFC) :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B16,D16,F16,H16")) Is Nothing Then MsgBox "Envoi"
    Application.EnableEvents = 0: Target.Select: Application.EnableEvents = 1
End Sub

A+ à tous

 

[ngexcel]

Re : Mise en forme conditionnelle

Bonjour JCGL
Je test le code
Et je reviens
Bonne journée

 

[ngexcel]

Re : Mise en forme conditionnelle

Bonjour
Je reviens afin de comprendre le code j ai teste il met bien le message envoi si cellule modifiée mais
Je voudrais juste tester les cellules b16 d16etc.. Sur les 4 couleurs
Si couleur vert jaune orange rouge envoi de mail

 

[ngexcel]

Re : Mise en forme conditionnelle

Bonjour st007

J'ai commencé à regarder tes liens mais je n'arrive pas à adapter une macro qui s'ouvre automatiquement et test les cellules qui sont en couleurs et envoi un mail avec un message attention dates arrivent à termes par exemple
Help me

 

[JCGL]

Re : Mise en forme conditionnelle

Bonjour à tous,

Je voudrais juste tester les cellules b16 d16etc.. Sur les 4 couleurs
Si couleur vert jaune orange rouge envoi de mail

Tous les cas de figures conditionnent tes MeFC donc envoi d'un message dès changement de dates.
Mais je n'ai surement pas compris la demande...

A+ à tous

 

[ngexcel]

Re : Mise en forme conditionnelle

bonsoir

oui je cherche en faite a tester la feuille des son ouverture et si elle contient des cellules vert jaune orange rouge et envoyer un mail

je continu a chercher merci a vous

 

[ngexcel]

Re : Mise en forme conditionnelle

bonsoir

j ai trouvé un code

Il doit tester colonnes J9 a J97 et test si il trouve la couleur 1 c est le noir
j ai mis en r4 mail
mais çà plante ?
je joint le fichier

bon une petite pose
bonne soirée



Sub EnvoiMail()
'Workbook ("sécudef.xlsx")

Sheets("AMDEC").Range("J9:J97").Activate
If ActiveCell.Interior.ColorIndex = 1 Then
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("R1;R2")
Subj = Range("R3")
Msg = Msg & Range("R4")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End If
End Sub