Microsoft 365 Générer un mail Outlook via Excel si modification colonne Excel

Volunteer10

XLDnaute Nouveau
Bonjour,

Je débute sur Excel et aurais besoin d'une macro permettant de générer un e-mail Outlook si une case d'une colonne est non vide, et je souhaite pouvoir utiliser cette même formule pour plusieurs colonnes mais avec des destinataires différents :
Exemple si la cellule K5 est pleine alors mail à K@kkkk.com, si ma cellule L8 est pleine alors mail à L@lll.com.
Il faudrait que la boîte de dialogue Outlook s'affiche et non que le mail s'envoie automatiquement, mais que dans la macro le destinataire, les destinataires en copie, l'objet et le corps du texte puissent être renseignés.

J'ai trouvé cette macro qui fonctionne pour une cellule spécifique mais pas pour une colonne entière, et je n'arrive pas à la "dupliquer" pour avoir la même formule mais destinataire différent pour les autres colonnes :
Dim xRg As Range
'Update by Extendoffice 2018/3/7
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Set xRg = Intersect(Range("K5"), Target)
If xRg Is Nothing Then Exit Sub
If Target.Value <> "" Then
Call Mail_small_Text_Outlook
End If
End Sub
Sub Mail_small_Text_Outlook()
Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hi there" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2"
On Error Resume Next
With xOutMail
.To = "exemple@mail.fr"
.CC = ""
.BCC = ""
.Subject = "send by cell value test"
.Body = xMailBody
.Display 'or use .Send
End With
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub

Des idées ?

Merci
 

gig83500

XLDnaute Nouveau
si on veut une action quand on Click n'importe où dans la colonne "A" uniquement et que l'on veut afficher un message
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
MsgBox "Click on " & Target.Address
End If
End Sub

regarde ce lien il y a plein d'exemple

 

Discussions similaires

Réponses
2
Affichages
361

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
312 816
Messages
2 092 361
Membres
105 378
dernier inscrit
y07