Mise en forme conditionnelle

S

st007

XLDnaute Barbatruc

• 1 Juillet 2015

• #2

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

 

Vote positif 0 Vote négatif

N

ngexcel

XLDnaute Occasionnel

• 1 Juillet 2015

• #3

Re : Mise en forme conditionnelle

bonsoir st007

je regarde et je vais tester

Bonne soirée

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 1 Juillet 2015

• #4

Re : Mise en forme conditionnelle

Bonjour à tous,

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

VB:

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

 

Vote positif 0 Vote négatif

N

ngexcel

XLDnaute Occasionnel

• 2 Juillet 2015

• #5

Re : Mise en forme conditionnelle

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

 

Vote positif 0 Vote négatif

N

ngexcel

XLDnaute Occasionnel

• 2 Juillet 2015

• #6

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

 

Vote positif 0 Vote négatif

N

ngexcel

XLDnaute Occasionnel

• 2 Juillet 2015

• #7

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 2 Juillet 2015

• #8

Re : Mise en forme conditionnelle

Bonjour à tous,

ngexcel à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

N

ngexcel

XLDnaute Occasionnel

• 2 Juillet 2015

• #9

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

 

Vote positif 0 Vote négatif

N

ngexcel

XLDnaute Occasionnel

• 2 Juillet 2015

• #10

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

 

Vote positif 0 Vote négatif