Envoi alerte mail sur valeur cellule excel
Fermé
vanessa-f61
Messages postés
1
Date d'inscription
lundi 31 décembre 2007
Statut
Membre
Dernière intervention
4 juillet 2016
-
4 juil. 2016 à 14:36
yoyo789 Messages postés 2 Date d'inscription lundi 7 décembre 2015 Statut Membre Dernière intervention 6 juillet 2016 - 6 juil. 2016 à 19:58
yoyo789 Messages postés 2 Date d'inscription lundi 7 décembre 2015 Statut Membre Dernière intervention 6 juillet 2016 - 6 juil. 2016 à 19:58
Bonjour,
Sur un fichier de gestion de stock, je souhaite envoyer un mail lorsque le stock d'alerte est atteint, d'après la valeur "commande" définie par une mise en forme conditionnelle. La MFC est établie, mes valeurs "commande" apparaissent bien dans
mes cellules. Quel code VBA utiliser et comment l'intégrer pour être averti par mail ?
Merci de vos réponses
Sur un fichier de gestion de stock, je souhaite envoyer un mail lorsque le stock d'alerte est atteint, d'après la valeur "commande" définie par une mise en forme conditionnelle. La MFC est établie, mes valeurs "commande" apparaissent bien dans
mes cellules. Quel code VBA utiliser et comment l'intégrer pour être averti par mail ?
Merci de vos réponses
A voir également:
- Envoi alerte mail sur valeur cellule excel
- Yahoo mail - Accueil - Mail
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
1 réponse
yoyo789
Messages postés
2
Date d'inscription
lundi 7 décembre 2015
Statut
Membre
Dernière intervention
6 juillet 2016
1
6 juil. 2016 à 19:58
6 juil. 2016 à 19:58
Avec quelque chose du genre:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MessageIntroduction, Adresse As String
Adresse = "Mario@profenex.com"
MessageIntroduction = "La cellule " & Target.Address & " as atteint la valeur " & Target & ". Veuillez commander S.V.P."
'Atteint le minimum
If Target.Value < 100 Then
With ActiveSheet.MailEnvelope
.Introduction = MessageIntroduction
.Item.To = Adresse
.Item.Subject = "Item à commander: " & Target
.Item.send
End With
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MessageIntroduction, Adresse As String
Adresse = "Mario@profenex.com"
MessageIntroduction = "La cellule " & Target.Address & " as atteint la valeur " & Target & ". Veuillez commander S.V.P."
'Atteint le minimum
If Target.Value < 100 Then
With ActiveSheet.MailEnvelope
.Introduction = MessageIntroduction
.Item.To = Adresse
.Item.Subject = "Item à commander: " & Target
.Item.send
End With
End If
End Sub
