Discussion :

[Nonno 94]

Bonjour le forum,

je viens solliciter votre aide pour résoudre le problème suivant : supprimer une boucle dans la Macro "Calculate" utilisée dans la feuille Noire du fichier joint.

Dans les 2 feuilles, il est possible de saisir une Valeur dans la Cellule "T40" après avoir cliqué sur le bouton situé en "R1".
Il est possible, ensuite, de calculer la valeur "K début" correspondante qui s'inscrira en "AY" et "AX40"
- dans la feuille Rouge en cliquant sur le bouton situé en "AX8"
- dans la feuille Noire avec la Macro "Calculate" pour ne pas avoir à cliquer sur le bouton 1 situé en "AX8".
Malheureusement, dans ce cas, la Macro "Calculate" effectue une boucle.
Ma question est donc : est-il possible de supprimer cette boucle et si oui, de quelle façon ?

Je vous remercie pour vos réponses et vous souhaite un bon après-midi.
Cordialement.

Nonno 94.

[Kaëléphine]

Bonjour Nonno 94,

Si je comprends bien ton problème, c'est que l'événement calculate s’auto-déclenche et crée donc une boucle infinie.
Si c'est bien ça, mets juste cette ligne au tout début du sub de calculate :

Code :

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

Application.EnableEvents = False

et ensuite juste à la fin du Sub tu mets :

Code :

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

Application.EnableEvents = True

Normalement l'événement ne devrais plus s'appeler lui même car tu désactive les événement le temps de l’exécution du code

En espérant t'avoir aidé

[Nonno 94]

Bonjour Kaëléphine et merci pour la réponse,

si j'ai bien compris, le code doit commencer ainsi :

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Calculate()                   'Saisie d'un acompte versé dans les Colonnes M à Q'
 
Application.EnableEvents = False
 
 
If Range("BB74").Value <> 0 Then

et se terminer ainsi :

Code :

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

1
2
3
4
5
End If
 
Application.EnableEvents = True
 
End Sub

Si tel est le cas, la Macro ne "démarre" pas !!!
Dommage !

A +.

[Kaëléphine]

Bonjour,

C'est exactement ce que je voulais que tu fasse mais du coup j'ai regardé ton code

Bon déjà j'ai aucune idée de ce que tu veux faire, aucun commentaire et tes posts sur le forum sont peu explicite.

J'ai trouvé une quantité d'erreur assez incroyable que j'ai corrigé (Entre nous j'ai pas regardé tout ton code donc à mon avis il te reste pas mal de chose à changé )

Sinon moi l'événement calculate ce lance et fait quelque chose, quoi j'en sais rien mais il bug pas, ni ne plante ^^ .

Je t'ai mis le fichier en pièce jointe.

A aussi j'ai du changé une partie de ton fichier parce que ta macro ce lance que si une cellule est différente de rien. Hors avec les formules que tu avais mis elle était toujours = à rien. Donc j'ai changé des formules qui me paraissaient logique.

Vois si ça fait toujours ce que tu souhaite.

[keygen08]

Bonjour

A part le if, ta macro calculate est identique a la macro declenché par le bouton en Ax8 qui elle, semble fonctionnelle.
donc laissé le IF et appelé la macro qui est activé par ce bouton.