Macro dans event

Bonjour à tous,

Me renseignant sur le CRM de mon entreprise, j'ai voulu écrire quelques macro pour faciliter le travail de certains collègues (et pour aussi apprendre à écrire des macros VBA).
J'ai donc créé une macro qui permet de remplir quatre tableaux sur une feuille (Cessions) en fonction des paramètres situés sur une autre feuille (Suivi de cessions). La macro fonctionne (elle est peut-être pas optimale mais au moins le résultat attendu est celui affiché).

Mon problème vient du fait que je voudrai l'exécuter de façon automatique. Or, dès que je fais appel à cette dernière dans un event (en l'occurrence Worksheet_Activate ), l'exécution ne se fait plus et j'ai un message d'erreur à chaque ligne ou presque.

Je vous joins mon fichier, la macro en question se nomme creationCessions.

Merci d'avance,

Rahzal

Bonjour

dans un premier temps tu devrais supprimer tous les select qui ne sont pas nécessaires et ralentissent l'exécution.

Code:

---

1 2 3 4 5 6 7 8 9

lastRowCess = Sheets("Cessions").Range("A65536").End(xlUp).Row If lastRowCess > 20 Then Rows("20:" & lastRowCess).Delete End If   ' Offres acceptées '   lastRowCess = Sheets("Cessions").Range("A65536").End(xlUp).Row Range("A11:J11").Copy Range("A" & lastRowCess + 2)

---

pour le début de la macro .....

C'est un premier point qui peut suffire.

Dans ta macro, tu changes d'onglets et tu reviens sur ton onglet Cessions et donc tu relances le code, cela forme une boucle infinie.

Pour l'éviter, crées une variable globale dans ton Module1

Code:

---

1 2	Global bModification As Boolean

---

Ajoute son utilisation dans creationCessions

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub creationCessions() bModification = True   ' Effacer anciens tableaux ' ...     bModification = False   End Sub

---

Et tu pourras créer ton Worksheet_Activate()

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Activate()   If bModification Then Exit Sub   Call creationCessions   End Sub

---

Citation:

---

Envoyé par a_diard

Bonjour

dans un premier temps tu devrais supprimer tous les select qui ne sont pas nécessaires et ralentissent l'exécution.

Code:

---

1 2 3 4 5 6 7 8 9

lastRowCess = Sheets("Cessions").Range("A65536").End(xlUp).Row If lastRowCess > 20 Then Rows("20:" & lastRowCess).Delete End If   ' Offres acceptées '   lastRowCess = Sheets("Cessions").Range("A65536").End(xlUp).Row Range("A11:J11").Copy Range("A" & lastRowCess + 2)

---

pour le début de la macro .....

---

Bonjour,

Merci pour ton aide. J'ai effectivement corrigé cela. Malheureusement, lors de l'exécution de la boucle

Code:

---

1 2 3 4

lastRowCess = Sheets("Cessions").Range("A65536").End(xlUp).Row If lastRowCess > 20 Then Rows("20:" & lastRowCess).Delete End If

---

ainsi que pour la ligne

Code:

---

Range("A11:J11").Copy Range("A" & lastRowCess + 2)

---

Je me retrouve avec une 1004 :(

Pour eviter la boucle infinie tu peux aussi essayer

Code:

---

1 2 3 4 5 6 7

Sub creationCessions() Application.EnableEvents = False 'desactiver les évenements   ….     Application.EnableEvents = true 'réactiver les évenements

---

Moi ca ne plante plus, tu peux essayer ?

Un ex pour simplifier ton code

Code:

---

1 2 3 4 5

Range("H" & lastRowCess + 1).Select Application.CutCopyMode = False ' inutile si il n'y a pas de copy Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"

---

Code:

---

1 2	Range("H" & lastRowCess + 1).FormulaR1C1 = "=RC[-2]-RC[-1]"

---

Bonjour,

Mais oui bien sur! La boucle infini !

Je me sens tellement c... Effectivement, le soucis venait du switch entre les deux feuilles.

Merci pour vos réponses, tout fonctionne parfaitement :)