Discussion :

[Rahzal]

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

[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 :

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

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 .....

[Bob78280]

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 :

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

1
2
 
Global bModification As Boolean

Ajoute son utilisation dans creationCessions

Code :

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

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 :

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

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_Activate()
 
    If bModification Then Exit Sub
 
    Call creationCessions
 
End Sub

[Rahzal]

Bonjour

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

Code :

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

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 :

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

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 :

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

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

Je me retrouve avec une 1004

[sogedic]

Pour eviter la boucle infinie tu peux aussi essayer

Code :

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

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 :

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

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 :

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

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

[Rahzal]

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