Bonjour à tous,
Alors, voila j'ai une boucle qui ne fonctionne pas de la bonne façon pour le moment;
Par exemple, lorsque la valeur de la cellule A5 change
la macro ouvre une MsgBox et envoie un email,
Par contre, je suis incapable de fermer la msgbox ainsi que la fenêtre outlook
c'est comme si la boucle continuait alors qu'elle ne devrait pas
merci
Alors, voila j'ai une boucle qui ne fonctionne pas de la bonne façon pour le moment;
Par exemple, lorsque la valeur de la cellule A5 change
la macro ouvre une MsgBox et envoie un email,
Par contre, je suis incapable de fermer la msgbox ainsi que la fenêtre outlook
c'est comme si la boucle continuait alors qu'elle ne devrait pas
HTML:
Private Sub Worksheet_Calculate()
Dim i, j As Integer
Dim ol As Object
Dim olmail As Object
Dim CurrFile As Object
Dim Msg, Style, Title, Response
Set ol = CreateObject("Outlook.Application")
Set olmail = ol.CreateItem(0)
j = 1
For i = 1 To 254 Step 11
If Cells(5, i) <> M(j) Then '1
M(j) = Cells(5, i)
With olmail
.To = "timeislimite@hotmail.com"
.Subject = Cells(5, i)
.Body = ": " & Cells(7, i) & " : " & Cells(7, i + 1)
' .Attachments.Add "c:\data\essai.doc"
'.Send
.display
'Debug.Print PlaySoundFileA("C:\Windows\Media\tada.wav")
Call Sounds
Msg = ": " & Cells(7, i) & " : " & Cells(7, i + 1)
Style = vbYesNoCancel + vbQuestion + vbDefaultButton1
Title = Cells(5, i)
Response = MsgBox(Msg, Style, Title)
End With
End If
j = j + 1
Next
End Submerci