voile le code c#est le debut .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Dim r, c As Integer r = Target.Row c = Target.Column Dim j As Integer For j = 1 To 3000 If r = j And c = 4 Then Dim name As String name = Workbooks("Copy of Contacts Collateral").Worksheets("Contacts").Cells(j, 4) SendMail_Outlook (name) Else: End If Next j
Partager