Discussion :

[ju3979]

Bonjour à tous,

J'ai créé sous Excel un tableau de gestion de stock
Je souhaiterais que dés qu'il y a un stock inférieur à 1 il envoit automatiquement un mail.
J'ai donc créé une marco mais qui ne fonctionne pas comme je veux
Actuellement si un stock est < à 1 ça m'envoit un mail mais la prochaine fois quand il y aura 2 choses < à 1 il m'enverra 2 mails etc .......

Moi je veux qu'il m'envoit une fois un mail dés qu'une chose est < à 1 et une fois qu'il me l'a envoyé pour cet élément là il ne me le renvoit plus

Voici ma macro que j'ai mis dans module:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub EnvoiClasseurAd()
Dim myadress(1 To 2)
 
Set mylst = ActiveSheet.Range("a200:a201")
Count = 1
 
For Each Envoi In mylst
If Len(Envoi) Then myadress(Count) = Envoi: Count = Count + 1
Next
 
ActiveWorkbook.SendMail Recipients:=Array(myadress(1), myadress(2)), Subject:=" Alerte Stock Cartouches"
 
End Sub

Ensuite dans feuil1 j'ai mis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub Worksheet_Calculate()
 
    If Cells(8, 3).Value < 2 Or Cells(9, 3).Value < 2 Or Cells(10, 3) Then EnvoiClasseurAd
 
 
End Sub

Je suis vraiment débutant en vb
Merci pour votre aide

[zoumzoum59]

bonjour ju3979

Tu peux en même temps que tu envoie un mail si ta valeur et inferieur a 2 mettre en rouge le fond de ta cellule et rajouter dans ton test le test de la valeur + le test de la couleur de fond de cellule.

Ce qui fait que si ta cellule a une valeur inferieur a 2 et de fond rouge ton mail n'est pas envoyé, alors que si la valeur et inferieur a 2 et fond blanc tu envoie le mail.

[ju3979]

oui c'est une bonne idée, mais comment on fait ça ????
Je débute , c'est ma première macro vb
D'avance merci pour l'aide

[drthodt]

Salut,
un petit exemple pour tester la couleur d'une cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cells(a,b).Font.ColorIndex = 5 Then '5 est le code couleur du bleu

et dans le Then tu mets ton traitement (tu peux changer le code des couleurs si tu veux).