Condition mail auto et formule dans une cellule
bonjour,
J'ai un petite problème avec l'excution de la macro ci-dessous
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
| Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lg, Plg
Lg = Target.Row
Set Plg = Application.Union(Range("W" & Lg), Range("AA" & Lg), Range("AE" & Lg), Range("AI" & Lg))
If Application.Sum(Plg.Value) <> Range("T" & Lg) Then Exit Sub
Application.EnableEvents = False
Dim TablCode
Dim Email_Subject, Email_Send_From, Email_Send_To, _
Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
TablCode = Array(31, 34, 36, 18, 99)
TablTargetColumns = Array(21, 25, 29, 33) 'Colonnes Code
TablNoemptyColumns = Array(24, 28, 32, 36)
notEmpty = False
For I = LBound(TablNoemptyColumns) To UBound(TablNoemptyColumns)
If Not IsEmpty(Target.Parent.Cells(Target.Row, TablNoemptyColumns(I)).Value) And _
Target.Parent.Cells(Target.Row, TablNoemptyColumns(I) - 2).Value <> "99A" Then
OneOfValues = False
For Each c In TablCode
If c = Target.Parent.Cells(Target.Row, TablTargetColumns(I)).Value Then
OneOfValues = True
Exit For
End If
Next c
If OneOfValues Then
notEmpty = True
Exit For
End If
End If
Next
If notEmpty Then
'Macro email
'-------------------------------------------------------- |
Mon code fonctionnais très bien mais j'ai voulu rajouter une condition pour avoir des complements dans le mail envoyé.
J'ai rajouté ce code si:
Code:
1
2
3
4
5
| Dim Lg, Plg
Lg = Target.Row
Set Plg = Application.Union(Range("W" & Lg), Range("AA" & Lg), Range("AE" & Lg), Range("AI" & Lg))
If Application.Sum(Plg.Value) <> Range("T" & Lg) Then Exit Sub |
La fonction bien, avant d'envoyer le mail la somme des cellules AA+AE+AI+W= cellule T
dans les cellules de la colonne T il y a cette formule =SI(S9>R9;(S9-R9);SI(S9<R9;"";SI(S9=R9;""))) qui me serre jsute a calcule le temps de retard entre un horaire prévu et un horaire rEélle
Mon problème: mon mail part si je mets moi-même le résultat dans la colonne T,
- quand toutes mes conditions sont remplis et que la cellule T utlise une formule auto =mail ne part pas
- quand toutes mes condition sont remplis et que Ecrit moi-même dans la cellule T= mail part OK
Comment faire pour que mon mail parte tout en gardant la cellule de la colonne T automatique?
Merci
