Discussion :

[mclex]

Bonjour, je suis nouveau et pas très doué en VBA, j'implore donc votre aide.

Voici mon problème :


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.

mail1 et mail2 sont les macros d'envoie de mail (elles marchent bien, déjà testées)

le code utilisé :

Code :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
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

[illight]

Tu as essayé de faire du pas à pas ?
Pour moi, il y a un souci, car tes 2 vérif s'envoient à chaque fois, à cause de des If "mal configurés". Ecris plutôt comme ça (avec des end if) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then 
   Exit Sub
else
   Vérif1
end if
 
 If Intersect(Target, Range("B1")) Is Nothing Then 
     Exit Sub
else
   Vérif2
end if 
End Sub

A part si j'ai mal compris ton problème

[mclex]

Tu as bien saisi le problème, mais il n'est pas résolu malheureusement et c'est en train de me rendre fou ahah

[illight]

Et avec le code que je t'ai mis, ça fait quoi ? qu'entend tu par "ça marche pas" ?

par ailleurs, évites les accents dans les nom de procédure/fonctions

[mclex]

Avec ton code ça fait exactement pareil sauf qu'une fois sur deux, unbug avec pour rapport d'erreur de me renvoyer à la ligne ".Send 0, vaRecipient"

Mais je pense que tu es plus sur la bonne voix que moi, je me doute que ça a un rapport avec le fait de séparer le déclenchement des macros mais je ne sais pas comment faire

[illight]

Avec ton code ça fait exactement pareil sauf qu'une fois sur deux, unbug avec pour rapport d'erreur de me renvoyer à la ligne ".Send 0, vaRecipient"

Cette ligne est dans ta macro d'envoi de mail non ? Tu dois avoir un souci sur cette ligne s'il te signale une erreur...