Exécution de Macro avant code de la feuille

Version imprimable

08/07/2015, 06h21
anoulay

Exécution de Macro avant code de la feuille

Bonjour,

J'ai un problème:

J'ai un code privé de feuille propre à celle ci (qui devrait s'exécuter en permanence mais que je n'arrive qu'a faire marcher lorsque je déclenche une macro d'un module, comment ça se fait?) et un module avec une macro.

Lorsque j'active la macro et que je regarde le pas à pas, je vois qu'elle exécute la macro du module et aussi la macro de la feuille en parallèle, ce qui fausse mon résultat.

Je voudrais que:

1/ La macro de feuille fonctionne en permanence (il s'agit d'une extraction de donnée puis d'un tri par ordre alphabétique)
2/ Lorsque je lance ma macro de module, la macro de feuille se stoppe pendant les opérations (il s'agit d'une création de client avec détails, si la macro de feuille s'exécute en même temps, cela fausse tout!)
3/ Une fois la macro de module terminée, la macro de feuille reprenne la main et me déplace ma ligne avec tout les détails au bon endroit et extrait ces données (bref, reprenne la main quoi)

Quelqu'un(e) à une idée à ce sujet?

Merci d'avance

Bonjour,

Citation:

1/ La macro de feuille fonctionne en permanence (il s'agit d'une extraction de donnée puis d'un tri par ordre alphabétique)

Qu'appelle-tu "fonctionne en permanence" ? La macro tourne sans cesse en boucle ou elle est lancée par une procédure évènementielle du genre "Worksheet_Change" ?

Citation:

2/ Lorsque je lance ma macro de module, la macro de feuille se stoppe pendant les opérations (il s'agit d'une création de client avec détails, si la macro de feuille s'exécute en même temps, cela fausse tout!)

Tu peux utiliser un drapeau modifié dans la procédure se trouvant dans le module et contrôlé dans la procédure de la feuille.
Dans la feuille :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub MaMacroFeuille() If Drapeau = True Then 'le code ... '... '... End If End Sub
dans le module :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Public Drapeau As Boolean Sub MaMacroModule() Drapeau = False 'le code ... '... '... 'autorise le fonctionnement Drapeau = True 'et relance la macro ! MaMacroFeuille End Sub
Hervé.

08/07/2015, 08h01
Invité

Bonjour,
Il faut interdire les événements en début de traitement et le rétablir en fin!
Application.EventsEnabled=false
08/07/2015, 08h47
anoulay

Rdurupt:

Citation:

Bonjour,
Il faut interdire les événements en début de traitement et le rétablir en fin!
Application.EventsEnabled=false

Erreur, application non reconnue par l'objet, la solution est surement meilleure car plus simple

Theze:

Citation:

Qu'appelle-tu "fonctionne en permanence" ? La macro tourne sans cesse en boucle ou elle est lancée par une procédure événementielle du genre "Worksheet_Change" ?

c'est en effet un Worksheet_Change, je n'arrive pas à relancer la macro de feuille à la fin de la macro module (qui empêche bien la macro feuille de fonctionner avec ta solution)

C'est :
Code:

1 2 Application.EnableEvents = False
dont veut parler Robert !

Pour relancer un code inclus dans une procédure évènementielle, il te faut le sortir de cette dernière pour le mettre dans un module standard (en faire une Sub) et tu peux l'appeler dans la procédure évènementielle de cette façon par exemple :
Code:

1 2 3 4 5 6 7 Private Sub Worksheet_Change(ByVal Target As Range) 'target est passé en argument MaMacroFeuille Target End Sub
et dans le module standard les Sub :
Code:

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 Public Drapeau As Boolean Sub MaMacroModule() Drapeau = False 'le code ... '... '... 'autorise le fonctionnement Drapeau = True 'et relance la macro ! MaMacroFeuille ActiveCell End Sub Sub MaMacroFeuille(Cel As Range) If Drapeau = True Then 'le code ... '... '... End If End Sub
Hervé.

Bonjour,

Je ne comprend pas très bien, si j'extrait le code de ma macro feuille pour le mettre dans ma macro module, je perd un peu l'intérêt de mettre ce code dans ma feuille et en plus je fais un doublons du même macro non?

La solution de Robert fonctionne (avec le Application.EnableEvents = False) mais ne me permet pas de relancer ma macro feuille qui, je pense, ne se lance que par événement et d'ailleurs ne se lance pas du tout (pareil pour une macro feuille qui est sensée se lancer au moment ou je sélectionne une cellule..).

Pour plus de compréhension, je mets les deux codes dans ce message:

Le premier, Macro Module, qui me permet d'insérer un nouveau client avec détails à partir d'un formulaire prérempli

Code:

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
Option Explicit
Sub Macro1()
'
' Macro1 Macro
 
Application.EnableEvents = False
 
 
Dim i As Integer
Dim j As Integer
 
    Sheets("Data").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows("2:2").Select
    Selection.ClearFormats
    Sheets("DashBoard").Select
 
    For i = 1 To 12
        Worksheets("Data").Cells(2, 1 + i) = Worksheets("DashBoard").Cells(5 + i, 13)
    Next
 
    Sheets("Data").Select
    Range("A2").Select
    With Selection.Font
        .Size = 14
    End With
 
    For j = 1 To 11
 
       Worksheets("DashBoard").Cells(5 + j, 13) = ""
    Next
 
    Sheets("Data").Range("O2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(TODAY()-RC[-3]=TODAY(),""Make contact"",IF(TODAY()-RC[-3]<DashBoard!R2C13,""take Care"",IF(TODAY()-RC[-3]<DashBoard!R3C13,""Relaunch"",IF(TODAY()-RC[-3]<>TODAY(),""Remake Contact"",""""))))"
 
 
    Range("A2:V2").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders()
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders()
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders()
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders()
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    ' Macro3 Macro
 
Application.EnableEvents = True
 
 
 
End Sub

Le deuxième, Macro feuille, qui me permet d'extraire de la base de donnée les infos de Pays et de client, de trier par ordre alphabétique cette extraction et de trier aussi la base de donnée (j'ai donc besoin de d'abord remplir une ligne avant de la triée, sinon je la fractionne et c'es tout pas beau

Code:

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Not Intersect([B2:C1000], Target) Is Nothing And Target.Count = 1 Then
   [B2:V1000].Sort Key1:=[B2], Key2:=[B2], Key3:=[B2]
   [B1:C1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[Z1], Unique:=True
   [B1:C1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[Z1:AA1], Unique:=True
 End If
End If
End Sub

En espérant que vous comprendrez mieux mon problème et pourrez m'aider!

Bonjour,

Citation:

Je ne comprend pas très bien, si j'extrait le code de ma macro feuille pour le mettre dans ma macro module, je perd un peu l'intérêt de mettre ce code dans ma feuille et en plus je fais un doublons du même macro non?

Non car te ne fait qu'appeler le code depuis la procédure évènementielle en passant comme argument la cellule cible donc, comme les lignes de code ont étés externalisées, pas de doublon :
Dans le module de la feuille :
Code:

1 2 3 4 5 6 Private Sub Worksheet_Change(ByVal Target As Range) Tri Target End Sub
Dans le module standard avec ta procédure "Macro1" :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Tri(Cel As Range) If Not Intersect([B2:C1000], Cel) Is Nothing And Cel.Count = 1 Then [B2:V1000].Sort Key1:=[B2], Key2:=[B2], Key3:=[B2] [B1:C1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[Z1], Unique:=True [B1:C1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[Z1:AA1], Unique:=True End If End Sub
Et dans ton code de la procédure "Macro1" en fin de code pour exécuter ton tri il te faut juste savoir quelle cellule cible (Target) doit être passée en argument.
Tu peux utiliser une variable publique de type Range pour mémoriser la dernière cellule qui a déclencher la procédure évènementielle "Worksheet_Change" et pouvoir la passer en argument par la suite :
Code:

1 2 3 4 5 'appel de la macro Tri... Tri ActiveCell 'ou Range("B3") ou la cellule que tu veux comme cible ! Application.EnableEvents = True
Citation:

La solution de Robert fonctionne (avec le Application.EnableEvents = False) mais ne me permet pas de relancer ma macro feuille qui, je pense, ne se lance que par événement et d'ailleurs ne se lance pas du tout (pareil pour une macro feuille qui est sensée se lancer au moment ou je sélectionne une cellule..).

C'est pour cette raison qu'il te faut externaliser le code de tri de la procédure évènementielle, pour pouvoir l'appeler d'où tu veux !
Attention, avec "Application.EnableEvents = False" si le code est intérompu avant l'instruction "Application.EnableEvents = True" plus aucun évènement ne sera déclanché donc, si c'est ce que tu constate, il te faut forcer la remise en place de la gestion des évènements avec cette petite procédure :
Code:

1 2 3 4 5 6 Sub ForcerRepriseEvenements() Application.EnableEvents = True End Sub
Hervé.

Oula, désolé mais là je suis plus.. :
Citation:
Dans le module standard avec ta procédure "Macro1" :
Code :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Tri(Cel As Range) If Not Intersect([B2:C1000], Cel) Is Nothing And Cel.Count = 1 Then [B2:V1000].Sort Key1:=[B2], Key2:=[B2], Key3:=[B2] [B1:C1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[Z1], Unique:=True [B1:C1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[Z1:AA1], Unique:=True End If End Sub
Là tu me dis bien de rééccrire la macro de la feuille dans la macro module? donc j'ai un dédoublement de code, est ce que c'est pour relancer manuellement le code? dans ce cas là, je n'utilise pas pleinement VBA..
D'autant plus que j'ai un message d'erreure: "l'élément portant ce nom est introuvable" à la ligne "If Not Intersect..."

Ensuite, tu me dis d'appeler la procédure tri en fin de macro module, ok je comprend que ce serait pour le lancer le tri manuellement. Mais dans ce cas là, pourquoi avoir copié le code tri en dessous du code macro module?
Citation:
C'est pour cette raison qu'il te faut externaliser le code de tri de la procédure évènementielle, pour pouvoir l'appeler d'où tu veux !
Attention, avec "Application.EnableEvents = False" si le code est intérompu avant l'instruction "Application.EnableEvents = True" plus aucun évènement ne sera déclanché donc, si c'est ce que tu constate, il te faut forcer la remise en place de la gestion des évènements avec cette petite procédure :
Code :
Code:

1 2 3 4 5 Sub ForcerRepriseEvenements() Application.EnableEvents = True End Sub
Est ce que la solution de Robert est une partie de la solution que tu me donnes ou une autre solution totalement différente? parce que je pense que je suis en train de mélanger les deux et du coup je comprend plus grand chose.
Si j'écris cette ligne de code, il faudra que je relance cette procédure par moi même non? et j'ai toujours le problème de ma Macro Feuille qui ne se déclenche pas..

Citation:

Là tu me dis bien de rééccrire la macro de la feuille dans la macro module? donc j'ai un dédoublement de code...

Non ! Tu supprimes les lignes de code de la procédure évènementielle et tu les colles dans une procédure que tu crée dans un module standard (procédure "Tri" dans mon exemple)
Et la seule ligne de code qui doit se trouver dans la procédure évènementielle est :
Code:

1 2 Tri Target
donc, la proc devient :
Code:

1 2 3 4 5 6 Private Sub Worksheet_Change(ByVal Target As Range) Tri Target End Sub
et la procédure créée dans un module standard (Tri dans mon exemple) comporte les lignes de code qui auparavant étaient dans la procédure "Worksheet_Change" :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Tri(Cel As Range) If Not Intersect([B2:C1000], Cel) Is Nothing And Cel.Count = 1 Then [B2:V1000].Sort Key1:=[B2], Key2:=[B2], Key3:=[B2] [B1:C1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[Z1], Unique:=True [B1:C1000].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[Z1:AA1], Unique:=True End If End Sub
tu mets un point d'arrêt face à la ligne "If Not Intersect([B2:C1000], Cel) Is Nothing And Cel.Count = 1 Then" et tu change une valeur dans la plage "B2:C1000" le compilateur va faire une pause sur le point d'arrêt ensuite, appuis successifs sur F8 pour voir le déroulement du code ! De cette façon, tu verras que la proc évènementielle appelle bien la procédure "Tri" qui se trouve dans le module standard.

Citation:

Est ce que la solution de Robert est une partie de la solution que tu me donnes ou une autre solution totalement différente? parce que je pense que je suis en train de mélanger les deux et du coup je comprend plus grand chose.
Si j'écris cette ligne de code, il faudra que je relance cette procédure par moi même non? et j'ai toujours le problème de ma Macro Feuille qui ne se déclenche pas..

"Application.EnableEvents = False" en début de procédure "Macro1" interdit les procédures évènementielles de se déclencher car si dans ton code tu modifie une valeurs dans une cellule de la feuille, la proc Change est déclanchée et si cette cellule se trouve dans la plage "B2:C1000", le compilateur va exécuter ces lignes de code avant de revenir dans ta macro1 et c'est ce qui met le foutoir. Donc, "Application.EnableEvents = False" en début du code de "Macro1" et "Application.EnableEvents = True" en fin de code pour rétablir les évènements et si tu veux qu'ensuite la proc Tri (qui est appelée depuis "Worksheet_Change") soit exécutée, il te suffit de l'appeler en fin de "Macro1" mais il faut lui passer un Range en argument.

Hervé.

10/07/2015, 04h05
anoulay

Ah Merci Theze!! C'est bien plus clair maintenant.

Ok donc au final, ma proc se lance bien quand je l'appelle en fin de Macro1,
Par contre,je n'ai pas vraiment un tri en continue et quand j'appelais ma proc Tri, il passait le if (condition non respectée) du coup je l'ai supprimé et ça marche niquel.

Merci beaucoup, vous m'avez bien aidé

(Je risque d'avoir d'autres blocages mais j'ouvrirai une autre conversation :) )