Lancer Macro si valeur cellule =

[babelone]

Bonjour a tous,

Voici mon PB,j'ai récuperer une macro qui lance outlook express,je l'ai adapté a mes besoins,mais j'aimerai que cette macro ce lance automatiquement .

Je remplis ma base (Feuil1) via un USF dans cette Usf,j'ai une liste box qui met OUI ou NON dans la colonne AB de Feuil1

Dans une Feuil2, je un SOMMEPROD qui que si Cel AB=10 alors cellule devient rouge et je souhaiterai que ma macro ce lance a ce moment là.
voici la macro qui est dans un module .

Sub MailOutlookExpress()
Dim Adresse As String, Sujet As String, Texte As String
If (Range("C3").Value) = 10 Then
Adresse = "Destinataire01@mail.fr;Destinataire02@mail.fr "
Sujet = "Le sujet"
Texte = "Bonjour," & vbCrLf & vbCrLf _
& "La quantité a envoyer est atteinte pour le fournisseur" & vbCrLf & vbCrLf & _
"Cordialement" & vbCrLf & Environ("UserName")

Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & _
Adresse & "?subject=" & Sujet & "&Body=" & Texte

End If
End Sub

Merci de votre Aide,ci joint un fichier exemple épuré pour qu'il entre dans le tuyau
Free - Envoyez vos documents

 

[noviceAG]

Re : Lancer Macro si valeur cellule =

Bonjour babelone, le Forum,

Vois si ceci te convient :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Range("C3").Value = 10 Then
Call Nom de ta macro
End Sub

Cordialement

 

[babelone]

Re : Lancer Macro si valeur cellule =

Bonjour noviceAG et merci de ta réponse

Ou dois je mettre ton code,dans la feuil concernée,,dans un module ?

 

[noviceAG]

Re : Lancer Macro si valeur cellule =

Bonjour noviceAG et merci de ta réponse

Ou dois je mettre ton code,dans la feuil concernée,,dans un module ?

Un evenement change se place dans la feuille cher ami
bonne fin de journee