Bonjour à tous,

J'ai créé un fichier avec formulaire dans un fichier partagé sur un serveur. Une fois le formulaire envoyé, quelqu'un est censé valider en colonne 12 la demande par formulaire.

Je souhaiterai ainsi que lorsqu'une cellule en colonne 12 est modifiée, un mail s'envoie automatiquement au demandeur formulaire en lui annonçant que sa demande a été validée.


A l'heure actuelle, mon code fonctionne a moitié, puisqu'il envoie bien des mails… Mais pour chaque cellule de ma colonne 12 non vide…. Donc par exemple 10 mails pour une seule validation !


Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim appOutlook As Outlook.Application
    Set appOutlook = Outlook.Application
    Dim MESSAGE As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
 
 
dligne = Range("A15000").End(xlUp).Row
 
For I = 6 To dligne
 
 
 Set MESSAGE = appOutlook.CreateItem(olMailItem)
    With MESSAGE
 
        .Subject = "Changement de nomenclature " & Cells(dligne + 1, 5) & " modifi?"
        .BodyFormat = olFormatPlain
        .Body = "La modification de la nomenclature" & Cells(I, 5) & " que vous avez demand? a ?t? faite  " & "."
        'Ajout d'un destinataire principal
        Set objRecipient = .Recipients.Add(Left(Cells(I, 3), 1) & "." & Mid(Cells(I, 3), InStr(Application.UserName, " ") + 1) & "@as-XXX.com")
        objRecipient.Type = olTo
        objRecipient.Resolve
        .Send
    End With
    End If
Next I
End Sub


Dans l'idée, le code devrait marcher comme ça: Si ma cellule(X,12) est modifiée, alors j'envoie un mail au demandeur dont les infos sont en cellule(X,3).
Mon problème viens du fait que je n'arrive pas à cibler précisément cet évènement de par mon manque de connaissance technique…
Si quelqu'un arrive à me donner un coup de main ça serait super !

Mickamax