Bonjour
je débute dans les macros excel et je désire créer une macro qui envoie un message via outlook( en joignant le fichier excel) si le résultat d’un calcul se trouvant dans la cellule a1 est inférieur à 3
merci de votre aide
Pour envoyer un mail
Sympa d’avoir pris le temps de me répondre.
La macro qui permet d envoyer un mail je l avais déjà mais je voudrais que la condition suivante déclenche l envoi du mail :
si le résultat d’un calcul (situé en A1) est inférieur à 3 alors le mail est envoyé
Merci d’avance
un truc du genre
Sheets("Feuil1").Select
Cells(1, 1).Select
IF ActiveCell.Value < 3 Then
blabla
Endif
Je dois vraiment etre tres nul car cela ne fonctionne pas.
Voici ci dessous ma macro pouvez vous avoir la gentillesse de me dire ce qui ne va pas.
Sub Macro5()
’
’ Macro5 Macro
’ Macro enregistrée le 03/04/2006 par ZZZ
’
Sheets(“Feuil1”).Select
Cells(1, 1).Select
If ActiveCell.Value < 3 Then
ActiveWorkbook.SendMail ("toto@free.fr")
End If
’
End Sub
Merci d avance
signé le nul
salut a tous, au fait, jaimerais utilisé outlook express mais en etant abonné a wanadoo, outlook s’est configuré automatiquement…
j’ai effacé tous ce ce que je puvais pour essayer de configurer avec untre adresse…mais en vain…
jaimerais savoir si il y a possiblité de desintaller outlook express et de le reconfigurer…
merci
tu as mis quoi dans SendMail
c’est quoi le message d’erreur ?, il bloque ou
J ai besoin de cette macro dans le cadre professionnel, plusieurs utilisateurs modifient un meme fichier.
Je me suis mal exprimé; la macro fonctionne si je la lance manuellement.
Je voudrais qu elle se lance seule lorsque le résultat de la cellule A1 devient inférieur à 3 sans intervention de l utilisateur
Merci de ta patience
Bonjour à toutes et à tous
Je suis toujours dans l’attente d’une réponse ou d’un peu d’aide pour résoudre mon problème de macro EXCEL
Alors bonnes âmes, pensez à moi
Merci d’avance
Hello,
le code suivant est à mettre dans "ThisWorkbook"
le message Hello apparait tant que la case A1 est vide ou inférieur à 3, tu le remplace par le nom de ta macro
[code]Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Set Target = Worksheets("Feuil1").Cells(1, 1)
If Target.Value < 3 Then
MsgBox "Hello"
End If
End Sub[/code]
merci de ta réponse
je fais le test au taf demain et je te tiens au courant
bonne fin de soirée
Bonjour Cloch_hard
La macro ne s’exécute toujours pas seule, je suis obligé de la lancer manuellement même si le résultat de ma cellule A1 est inférieur à 3.
Je n’y comprends plus rien!!!
Au secours
Merci de ton aide
Pour reprendre l’exemple avec la MessageBox, essaye ça dans ta feuille où la cellule A1 doit être inférieur à 3 pour envoyer automatiquement le mail :
[code]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(1, 1).Value < 3 Then MsgBox "Hello"
End Sub
[/code]
Le problème est que le mail sera envoyé à chaque fois que tu vas sélectionner une cellule quelconque de cette page et que la valeur de la cellule A1 sera inférieur à 3.
Tu peux aussi ne lancer la macro qu’aprés le calcul automatique :
[code]Private Sub Worksheet_Calculate()
If Cells(1, 1).Value < 3 Then MsgBox "Hello"
End Sub[/code]
Merci jacky67
Je teste et te reviens
Sympa d avoir répondu
Bonjour jacky67
Je suis désolé de te répondre si tardivement mais j’étais en congés
La macro ne fonctionne toujours pas seule
il faut que je la lance manuellment
Merci pour ton aide
Es-tu certain de l’insérer au bon endroit et de procéder comme il faut ?
en fait, c’est un bete problème d’évenements déclencheur…
Le calculate me semble le plus approprié pour ça… il fonctionne chez moi si je met la macro sur la feuille concernée (worksheet).
On peut aussi utiliser l’event SheetCalculate(n) (ou n est le numéro de la feuille) sur le workbook.