PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="#006400"] With Rows(Target.Row)[/COLOR]
[COLOR="#FF0000"] If Round(.Cells(23) + .Cells(27) + .Cells(31) + .Cells(35) - .Cells(20), 6) Then Exit Sub[/COLOR]
[COLOR="#006400"] End With[/COLOR]
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)
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.............
bonjour
j'ai rajouté les lignes vert et rouge mais a chaque fois que j'écris quelque entre les colonnes 1 à 18 sa me met un message d'erreur 13?
Après la colonne 19 ma macro fonctionne bien puis qu'elle concerne cette parti la mais pas intérressant si je ne peu pas me servir des 19 première colonnes
Une idée dessus?