Problème macro

[mclex]

Bonjour, j'ai trouvé ce code sur un autre topic et comme je suis débutant en vba je demande de l'aide pour l'adapter ou même en avoir un plus adapter. Le problème est assez urgent.

j'explique la situation schématisée : de A1 à F1 j'ai des cellules remplies par des formules somme. Et j'aimerais que des qu'une des cellules change de valeur un mail soit envoyé automatiquement. (mail différent pour chaque cellule donc on nommera les macro mailA1, mailB1 etc. j'ai déjà les codes pour les mails... )

je n'arrive juste pas à adapter le code pour des cellules multiples. Du coup j'avais fait par intermédiaire : en G1 je faisais la somme de A1 à F1 et des que G1 change un mail s'envoie mais du coup c'est trop général.

Le code que j'ai utilisé :

Code :

Public ValPrec

Private Sub Worksheet_Calculate()
  Vérif
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("G1")) Is Nothing Then Exit Sub
  Vérif
End Sub

Private Sub Vérif()
  If VarType(Range("G1")) = VarType(ValPrec) Then _
    If ValPrec = Range("G1") Then Exit Sub
.... macro du mail ...
  ValPrec = Range("G1")

Merci d'avance

 

[Pierrot93]

Re : Problème macro

Bonjour,

problème déjà posé ici, non ??
https://www.excel-downloads.com/threads/lancer-une-macro-si-valeur-cellule-changer.138492/
bonne journée
@+

 

[mclex]

Re : Problème macro

Certes mais comme ce n'est pas exactement le problème initial et que le topic est vieux je préfère le relancer

 

[camarchepas]

Re : Problème macro

Bonjour Mclex , Pierrot , le Forum ,

De plus en plus , l'on à l'impression de lire les lettres de la boite aux lettres du Père Noël ......

Un autre Topic , ok , tu aurais pu laisser le lien au moins pour que l'on puisse le retrouver dès fois .....

Problème assez urgent : Bien oui , mais Noël c'est le 25 décembre .....

Pas de fichier attaché pour appuyer des explications pas très claires .

Et les solutions clés en main pour l'envois de Mail n'existent pas, il y a toujours des paramètres à prendre en compte.

entre autre par quel fournisseur l'on envoi le mail .

Quelle forme doit avoir le Mail ?

Ou prends tu les adresse mail ?

Enfin tu vois , nous pas pour ce genre de sujet , il faut un minimum de documentation

et surtout un fichier sur lequel s'appuyer .....

Dommage pour l'urgence car tout cela fait perdre du temps

Bien cordialement

 

[mclex]

Re : Problème macro

Les mails ne rentrent pas en compte dans l'histoire parce que ma macro pour ceux ci marche.

En gros on a : A1 A2 A3 A4 etc. chacune de ses cellules contiennent =somme(A2:A10) =somme(B2:B10) etc...

Le but de la macro : lorsque A1 change : mail 1 s'envoie, lorsque B1 Change B2 s'envoie etc.
Mon problème : j'ai un début de code mais si B1 change c'est mail 1 et 2 qui s'envoie... je n'arrive pas à envoyer qu'un seul mail correspondant.


le code utilisé :

Public ValPrec1
Public ValPrec2

Private Sub Worksheet_Calculate()
  Vérif1
  Vérif2
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
  Vérif1
 
  If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
  Vérif2

End Sub

Private Sub Vérif1()
  If VarType(Range("A1")) = VarType(ValPrec1) Then _
    If ValPrec1 = Range("A1") Then Exit Sub
    mail1
  ValPrec1 = Range("A1")
    End Sub
    
   Private Sub Vérif2()
    
    If VarType(Range("B1")) = VarType(ValPrec2) Then _
    If ValPrec2 = Range("B1") Then Exit Sub
   mail2
  ValPrec2 = Range("B1")
End Sub