Discussion :

[gregdragon]

Bonjour,
je viens à vous car je suis un peu démuni devant la difficulté,
je n'ai jamais pratiqué VBA et macro sous excel(nul part ailleur aussi!)
et j'essaie avec internet de faire un macro.
Mon objectif est :
lorsque une cellule change de couleur cela envoi un mail à plusieurs personnes
avec un message d'alerte(créer par moi même) et ce sur une plage de cellule définit. Le message sera envoyer si la cellule passe au rouge!
En l'attente d'une réponse de votre part à tous, je vous remercie d'avance pour votre soutient.


Gregdragon

PS: c'est relativement urgent!!!!!!!

[casefayere]

Bonjour,

je n'ai jamais pratiqué VBA et macro sous excel(nul part ailleur aussi!)
.....
PS: c'est relativement urgent!!!!!!!

Donc tu veux un code tout fait, sans comprendre, de la magie ?

lorsque une cellule change de couleur cela envoi un mail à plusieurs personnes

Comment la couleur est-elle changée ?
il y a du travail, le temps que tu t'expliques précisément, alors l'urgence me laisse réveur !

[gregdragon]

Cela fait 2 jour que je cherche à comprendre et voici ce que j'ai commencé à faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub EnvoiMail()
Workbook ("sécudef.xlsx")
Sheets("AMDEC").Range("J9:J97").Activate
If ActiveCell.Interior.ColorIndex = 3 Then
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("R1;R2")
Subj = Range("R3")
Msg = Msg & Range("R4")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End If
End Sub

Donc non je ne suis pas rêveur!!
vois-tu des erreur?
merci d'avance!!

[casefayere]

c'est moi qui reste réveur

Perso, je ne pourrai regarder ton code que ce soir car je pratiquerais certainement différemment, j'espère que, si tu es pressé, quelqu'un te donnera une réponse avant.

Bon courage en attendant,

PS : penses aux balises "code", tu selectionnes ton code et cliques sur "#" au dessus de celui-ci

[patricktoulon]

bonjour a tous

avant tout tu donne la moitié des éléments

1ere chose
tu dis si la cellule change de couleur ----->> envoie de mail

heu... a quelle moment doit elle changer

il y a plusieurs façon d'envisager les choses

méthode barbare mais néanmoins quelques fois la seule possibilité
une boucle infini gérée par une variable booléenne pour l'arrêter

soit dans le module "thisworkbook" la fonction

Code :

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

1
2
3
4
5
 
' en déterminant ici le range dans le quel l'action est déclenchée
soit par le intersect ou même l'adresse de la cellule tout simplement 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
End Sub

voila en gros ça peut paraitre ridicule comme réponse mais le code en est dépendant

donc un peu plus de précision sur le contexte serait appréciable a fin de pouvoir t'aider a trouver une solution

au plaisir

[gregdragon]

Donc je vais décrire ce que je cherche :
j'ai un fichier dans lequel il y une formule avec une mise en forme conditionnel,
j'ai plusieurs de mes agents qui y rentre des valeurs.
Dans ma mise en forme conditionnel, je suis parti d'une couleur verte vers une couleur rouge, rouge signifiant déclenchement d'un alerte de sécurité chez nous,
afin d'en être informer je souhaite que lorsqu'une de mes cellules sélectionné dans une plage passe au rouge cela envoi un mail à un collègue et moi même!
dans ce mail je désir glissé un message ("anomalie récurrente détecté, concertation immédiate") avec pour objet "anomalie récurrente".
Avez vous tous les détail nécessaire si non dite moi ce qu'il vous manque?
Merci pour votre compréhension, je ne suis qu'un Resp. Qualité Sécurité Environnement qui ne connait que les bases d'excel.
MERCI !!!!!

[kiki29]

Salut, de la lecture http://www.cpearson.com/excel/cfcolors.htm

[casefayere]

Dans ma mise en forme conditionnel, je suis parti d'une couleur verte vers une couleur rouge, rouge signifiant déclenchement d'un alerte de sécurité chez nous,

dans ce cas, je pense que la formule dans ta MFC devrait pouvoir déclencher ton code, exemple :
si la formule pour que B1:B10 passe au rouge, est

Code :

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

=A1 = 5

dans l'évènement "Change" de ta feuille, ce code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
 If Range("A1") = 5 Then
 'declenchement du code
 End If
End If
 
End Sub

PS : je n'ai pas vu la réponse de Philippe