VBA macro evenementielle

Bonjour, j'aurai besoin d'un gros coup de main.

Je veux créer une macro qui m'enverra un mail lorsque une cellule est modifiée.

Par exemple la La cellule I à 999 de la colonne L

Bonjour,

Jettes un œil ici : https://forum.excel-pratique.com/cours-astuces/excel-outlook-envoi-mail-t29003.html

Quelques questions :

_ Outlook est-il installé sur les postes desquels devront partir les mails ?

_ As-tu déjà utilisé VBA ? Si oui as tu déjà utilisé les évènements dans VBA ?

Girodo

Salut Girodo

Je suis vraiment nul en VBA, je suis novice et pour mon stage.

on utilise Outlock au taf

Je n'arrive tjrs pas a trouver la solution.

Je veux recevoir une notification quand une cellule de la colonne est modifiée

bonjour,

essaie ceci, macro à mettre dans le code de la feuille dans laquelle se trouvent les cellules à surveiller.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 And Target.Row >= 1 And Target.Row <= 999 Then
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "email@address"
        .Subject = "Changement détecté"
        .Body = "la cellule " & Target.Address & " a été modifiée"
        .send 'envoi automatique
    End With
End If
End Sub

Cela ne marche toujours pas.

du coup j'avais trouvé ceci

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim ol As Object, monmail As Object

DisplayAlerts = False

Set ol = CreateObject("outlook.application")

Set monmail = ol.CreateItem(olMailItem)

monmail.To = "jnhjk@njrgs.com"

monmail.Subject = "Test Macro Nouveau RDV"

monmail.Body = "Bonjour un nouveau RDV a été trouvé. Merci de consulter le fichier PSR."

monmail.Send

Set ol = Nothing

End Sub

et il marche sauf que je recois un mails lorsque toutes les cellules sont modifiées.

Je cherche à lui specifier la colonne.

re-bonjour,

le code que je t'ai fourni fonctionne chez moi.

vérifie que tu as bien mis la macro dans le code de la feuille à surveiller et que tu as adapté l'adresse mail du destinataire.

sélectionner la feuille

faire clic-droit

choisir visualiser code

Mais un super merci a toi, il marche a merveille.

Premiere fois que je publie sur un forum et supers reponses (je suis assez nul donc je comprends avec bcp de retard) et tu as été patient.

Merci

Mon boss a été seduit du coup il en demande plus. Il voudrait que le contenu de la cellule soit affiché sur le mail.

Par exemple de A15 à P15.

re-bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 And Target.Row >= 1 And Target.Row <= 999 Then
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "email@address"
        .Subject = "Changement détecté"
        .Body = "la cellule " & Target.Address & " a été modifiée, nouvelle valeur : " & target.value 
        .send 'envoi automatique
    End With
End If
End Sub

GRand merci a toi, j'ai trouvé la solution. MERCIIIIIIIIIIIIIIIIIIIIIIIIII

ReRere

Je voudrais rajouter le contenu de la colonne 2 au mail. Comment faire stp

bonjour,

utilise le bout de code suivant pour avoir le contenu de la colonne 2 correspondant à la cellule modifiée

col2=cells(target.row,2).value

je la colle ou stp???????

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 15 And Target.Row >= 1 And Target.Row <= 2000 Then

With CreateObject("Outlook.Application").CreateItem(0)

.To = "@i.com"

.Subject = "Attention Nouveau RDV"

.Body = " Un nouveau RDV est disponible . Consulter fichier PSR. Nouvelle date : " & Target.Value

.send 'envoi automatique

End With

End If

End Sub

re-bonjour,

tu ne nous dis pas ce que tu veux en faire ... mais voici un exemple

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 15 And Target.Row >= 1 And Target.Row <= 2000 Then
With CreateObject("Outlook.Application").CreateItem(0)
.To = "@i.com"
.Subject = "Attention Nouveau RDV"
.Body = " Un nouveau RDV est disponible . Consulter fichier PSR. Nouvelle date : " & Target.Value & " " & cells(target.row,2)
.send 'envoi automatique
End With
End If
End Sub

okkkkkkk

Petite mise en garde tout de même... T'es en train de pondre une macro à laquelle tu n'a pas l'air de comprendre grand chose... Essaye quand même de comprendre le fonctionnement, ça t'évitera d'être pris à défaut à la première question de ton tuteur de stage

Cdt,

Girodo

Effectivement,

je m’entraîne a coté.

Il est au courant de mon niveau en VBA.

Lui même m'a demandé de me documenter sur le net, sa premiere source à lui

Merci pour ton aide precieuse