Discussion :

[sombret]

Bonjour,

Après de longue recherche sur le net je ne parviens pas à trouver une réponse claire à mon problème.
Je vous présente donc ma question.

J'ai un classeur avec une feuille dans laquelle j'ai des éléments mis à jour depuis le net par deux connexions.

J'ai créer un évènement Worksheet_change pour réaliser le traitement de ces données téléchargées, mais rien ne se lance, (normal car aucune cellule n'est modifiée par une entrée clavier).

J'ai donc créer un évènement Worksheet_calculate et là mon code est exécuté 4 fois, deux fois par connexion....

Ma question, comment faire pour contourner la répétition de l'exécution du code....... peut être limiter l'évènement au recalcul d'une seule cellule..... mais je ne sait pas faire et tout ce que j'ai vu sur le net n'a pas fonctionné.

Si quelqu'un a la solution, par avance merci !

Cordialement

[ARTURO83]

Bonjour,

Dans votre macro, en première ligne ajoutez :

Code :

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

Application.EnableEvents = False

en dernière ligne, ajoutez:

Code :

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

Application.EnableEvents = True

Cdlt

[sombret]

Merci Arthur083 pour la réponse !

En revanche c'est une solution que j'avais envisagée et que j'ai réessayée, mais ça ne change rien.

Je crois comprendre que ça désactive le calcul automatique durant l'exécution de la macro, mais dès qu'on sort de la macro les recalculs de la feuille relancent de façon multiple le code et donc la macro.

Toujours dans la même situation et je ne vois pas comment faire ............

Encore merci

Cdlt

[ARTURO83]

Est-il possible de voir le code de votre macro?

[sombret]

Bien sûr, aucun problème.... je le reporte en italique ci-dessous.

En revanche il s'agit de code placé dans un évènement et non pas de code dans une macro .

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
Private Sub Worksheet_Calculate()
 
'*****************************************************************
 
Range("i19").Value = Range("i19").Value + 1
 
'*****************************************************************
 
If [b15].Value = 0 And [h15].Value = 0 Then
 
    Range("b15").Value = [c23].Value
    Range("d15").Value = [b15].Value * [f6].Value
    Range("f15").Value = [d15].Value / [b15].Value
 
    Range("h15").Value = [c23].Value
    Range("j15").Value = [h15].Value * [l6].Value
    Range("l15").Value = [j15].Value / [h15].Value
    GoTo zzz
 
    Else
 
    GoTo zzz
 
End If
 
'*****************************************************************
 
 
If [f7].Value < [f4] Then GoTo zzz 'si cours n'estpas au + haut
 
 
'*****************************************************************
 
pourlev = Abs(f5)
pourbx4 = Abs(l5)
 
If pourlev > pourbx4 Then GoTo etape2 ' si valeur absolue leverage > bear
 
'*****************************************************************
 
If [d15].Value < [j15].Value Then GoTo etape1
 
 
'*****************************************************************
 
Range("b15").Value = Range("b15").Value + [c19].Value
Range("d15").Value = Range("d15").Value + ([f4].Value * [c19].Value)
Range("f15").Value = [d15].Value / [b15].Value
 
GoTo zzz
 
 
etape1:
 
'*****************************************************************
 
Range("h15").Value = Range("h15").Value + [c20].Value
Range("h15").Value = Range("h15").Value + ([f4].Value * [c20].Value)
Range("l15").Value = [j15].Value / [h15].Value
 
GoTo zzz
 
etape2:
 
'*****************************************************************
 
If [d15].Value > [j15].Value Then GoTo etape3
 
 
 
'*****************************************************************
 
Range("b15").Value = Range("b15").Value - [c20].Value
Range("d15").Value = Range("d15").Value - ([f4].Value * [c20].Value)
Range("f15").Value = [d15].Value / [b15].Value
 
GoTo zzz
 
 
etape3:
 
'*****************************************************************
 
Range("h15").Value = Range("h15").Value + [c19].Value
Range("h15").Value = Range("h15").Value + ([f4].Value * [c19].Value)
Range("l15").Value = [j15].Value / [h15].Value
 
GoTo zzz
 
 
 
zzz:
 
 
End Sub

[Patrice740]

Bonjour,

Le Goto n'a été conservé que pour assurer la compatibilité avec les macros préhistoriques (il y a 40 ans).
Aujourd'hui il n'y a pas de raison de l'utiliser si le code est structuré correctement.

La notation entre crochets, par exemple [b15] correspond à l'instruction Evaluate, c'est une erreur de l'employer comme tu le fait.
Voir : [plage] une fausse bonne idée

Application.EnableEvents = False n'a rien à voir avec les calculs, en général, il est utilisé pour éviter la récursivité des macros évènementielles.

Essaies comme ça (à vérifier) :

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
33
34
35
36
37
38
39
40
41
42
43
44
 Private Sub Worksheet_Calculate()
  Application.EnableEvents = False
  Application.Calculation = xlCalculationManual
  Range("i19").Value = Range("i19").Value + 1
  If Range("b15").Value = 0 And Range("h15").Value = 0 Then
    Range("b15").Value = Range("c23").Value
    Range("d15").Value = Range("b15").Value * Range("f6").Value
    Range("f15").Value = Range("d15").Value / Range("b15").Value
    Range("h15").Value = Range("c23").Value
    Range("j15").Value = Range("h15").Value * Range("l6").Value
    Range("l15").Value = Range("j15").Value / Range("h15").Value
    ElseIf Range("f7").Value >= Range("f4") Then
      'si cours est au + haut
      pourlev = Abs(Range("f5").Value)
      pourbx4 = Abs(Range("l5").Value)
      If pourlev <= pourbx4 Then
        If Range("d15").Value >= Range("j15").Value Then
          Range("b15").Value = Range("b15").Value + Range("c19").Value
          Range("d15").Value = Range("d15").Value + Range("f4").Value * Range("c19").Value
          Range("f15").Value = Range("d15").Value / Range("b15").Value
        Else
          'etape1
          Range("h15").Value = Range("h15").Value + Range("c20").Value
          Range("h15").Value = Range("h15").Value + Range("f4").Value * Range("c20").Value
          Range("l15").Value = Range("j15").Value / Range("h15").Value
        End If
      Else
        If Range("d15").Value <= Range("j15").Value Then
          'étape2
          Range("b15").Value = Range("b15").Value - Range("c20").Value
          Range("d15").Value = Range("d15").Value - Range("f4").Value * Range("c20").Value
          Range("f15").Value = Range("d15").Value / Range("b15").Value
        Else
          'etape3
          Range("h15").Value = Range("h15").Value + Range("c19").Value
          Range("h15").Value = Range("h15").Value + Range("f4").Value * Range("c19").Value
          Range("l15").Value = Range("j15").Value / Range("h15").Value
        End If
      End If
    End If
  End If
  Application.Calculation = xlCalculationAutomatic
  Application.EnableEvents = True
End Sub

[sombret]

Merci Patrice pour toutes ces infos très intéressantes.

J'ai repris ton code qui semble fonctionner (juste il y avait un "endif" en trop), mais en revanche ça ne change rien à mon problème initial à savoir que lorsque ma connexion se fait pour récupérer des données sur le net le code s'exécute 4 fois (j'ai deux connexions).

Ce que je souhaite c'est qu'à chaque mise à jour de mes données (c'est à dire lorsque mes deux connexions ont téléchargées les données), l'évènement se produise et mon code s'exécute qu'une fois.

Encore merci de votre aide.

[Patrice740]

Non seulement il s'exécute plusieurs fois lors de tes connexions mais aussi lors de chaque modification du classeur, parfois lors des changements de sélection, ..., i.e. chaque fois que le calcul automatique est déclenché ou chaque fois qu'un cellule est modifiée.

Comment effectues-tu tes connexions ? le plus simple serait d'utiliser une macro déclenchée manuellement (au lieu d'une évènementielle).

[sombret]

Je fais la connexion par l'onglet données/à partir du web......

Faire la connexion manuellement c'est pas l'esprit de l'outil que je développe qui est un petit "robot" qui analyse des données toutes les minutes.....

[Patrice740]

... est un petit "robot" qui analyse des données toutes les minutes.....

il y a donc une macro qui déclenche l'analyse des données ? il suffit de les mettre à jour avant l'analyse.

[sombret]

Non il y a pas de macro

Il y a juste du code déclenché par un évènement Worksheet_calculate.

Toutes les minutes la connexion se fait est met à jour les données.... ce qui déclenche l'évènement comme je le souhaite, mais l'ennui c'est que ça le déclenche 4 fois à chaque connexion..... et comme dans mon code il y a des cumuls mon résultat est faux.

[Patrice740]

Non il y a pas de macro

Il y a juste du code déclenché par un évènement Worksheet_calculate.

Toutes les minutes la connexion se fait est met à jour les données.... ce qui déclenche l'évènement comme je le souhaite, mais l'ennui c'est que ça le déclenche 4 fois à chaque connexion..... et comme dans mon code il y a des cumuls mon résultat est faux.

Il y a quelque chose qui m’échappe: l'évènement calculate ne se déclenche pas tout seul toutes les 60 secondes (1 minute).
Si tu veux effectuer une mise à jour toutes les 60 secondes, l'évènement calculate n'est pas adapté !

[Patrice740]

Ce "robot" ne sert qu'à extraire et afficher des données ?
Aucune autre action susceptible de déclencher l'évènement Calculate ?
N'y a-t'il pas une donnée exploitable pour savoir si la mise a jour a été effectuée (par exemple l'heure de téléchargement) ?

[sombret]

Ce "robot" ne sert qu'à extraire et afficher des données ?

C'est des données numériques que j'exploite par la suite pour des analyses spécifiques.

Aucune autre action susceptible de déclencher l'évènement Calculate ?

J'ai tenté plusieurs choses mais je me confronte toujours avec l'évènement calculate à une répétition de l'évènement et donc à une répétition intempestive de mes calculs et des cumuls que je mémorise.

N'y a-t'il pas une donnée exploitable pour savoir si la mise a jour a été effectuée (par exemple l'heure de téléchargement) ?

Non il n'y a pas l'heure

**********************************************************

Ce qu'il faudrait c'est pouvoir faire un évènement calculate qui se déclenche sur le calcul d'une seule cellule, j'ai pu voir sur le net que c'était faisable, mais j'ai rien trouvé de suffisamment clair pour arriver à le mettre en œuvre..... (je suis pas doué en vba....)

[Patrice740]

Aucune autre action susceptible de déclencher l'évènement Calculate ?
J'ai tenté plusieurs choses mais je me confronte toujours avec l'évènement calculate à une répétition de l'évènement et donc à une répétition intempestive de mes calculs et des cumuls que je mémorise

Ça ne répond pas à la question !!!
Le problème n'est pas de savoir si l'évènement est déclenché par la connexion : il l'est (même plusieurs fois)
Le problème est de savoir si d'autres actions (saisie, modification, ... ) effectuées sur cette feuille déclenchent l'évènnemt Calculate.

[sombret]

Non aucune action par saisie ou autre....... c'est pour cela que je l'ai qualifié de robot...... il tourne seul en étant cadencé par une mise à jour de données par une connexion toutes les minutes.

[Patrice740]

Dans ce cas on peut faire comme ça (dans le module de la feuille) :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 Private Sub Worksheet_Calculate()
 Static d As Date
  If Now > d Then
    Call ActualiserDonnées
    d = Now + TimeValue("00:00:20")
  End If
 End Sub
 Private Sub ActualiserDonnées()
  Application.EnableEvents = False
  Application.Calculation = xlCalculationManual
  Range("i19").Value = Range("i19").Value + 1
  If Range("b15").Value = 0 And Range("h15").Value = 0 Then
    Range("b15").Value = Range("c23").Value
    Range("d15").Value = Range("b15").Value * Range("f6").Value
    Range("f15").Value = Range("d15").Value / Range("b15").Value
    Range("h15").Value = Range("c23").Value
    Range("j15").Value = Range("h15").Value * Range("l6").Value
    Range("l15").Value = Range("j15").Value / Range("h15").Value
  ElseIf Range("f7").Value >= Range("f4") Then
    'si cours est au + haut
    pourlev = Abs(Range("f5").Value)
    pourbx4 = Abs(Range("l5").Value)
    If pourlev <= pourbx4 Then
      If Range("d15").Value >= Range("j15").Value Then
        Range("b15").Value = Range("b15").Value + Range("c19").Value
        Range("d15").Value = Range("d15").Value + Range("f4").Value * Range("c19").Value
        Range("f15").Value = Range("d15").Value / Range("b15").Value
      Else
        'etape1
        Range("h15").Value = Range("h15").Value + Range("c20").Value
        Range("h15").Value = Range("h15").Value + Range("f4").Value * Range("c20").Value
        Range("l15").Value = Range("j15").Value / Range("h15").Value
      End If
    Else
      If Range("d15").Value <= Range("j15").Value Then
        'étape2
        Range("b15").Value = Range("b15").Value - Range("c20").Value
        Range("d15").Value = Range("d15").Value - Range("f4").Value * Range("c20").Value
        Range("f15").Value = Range("d15").Value / Range("b15").Value
      Else
        'etape3
        Range("h15").Value = Range("h15").Value + Range("c19").Value
        Range("h15").Value = Range("h15").Value + Range("f4").Value * Range("c19").Value
        Range("l15").Value = Range("j15").Value / Range("h15").Value
      End If
    End If
  End If
  Application.Calculation = xlCalculationAutomatic
  Application.EnableEvents = True
End Sub

[sombret]

EXCELLENT !!!!!!

Ca marche !

Merci beaucoup Patrice et toutes mes félicitations pour ta maitrise et ton niveau expertise.

Je vais m'attacher à présent à comprendre la logique mise en place pour évoluer à titre personnel.

Encore un grand merci !