Discussion :

[retraite83]

Bonjour,

y-a-t-il un moyen de déclencher le code Worksheet_Change depuis une autre macro

J'ai une macro Worksheet_Change d'une feuille "f1" dans laquelle je veux déclencher le code Worksheet_Change de la feuille "f2" qui se déclenche lui même quand la cellule A1 de "f2" est modifiée

Pour cela je simule dans le code de "f1" une modification de "f2" par :

Code :

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

1
2
3
f2.Range("A100") =  f2.Range("A1")   '  Je copie A1 dans une cellule temporaire A100
 f2.Range("A1") = ""   ' j'efface A1 pour provoquer un changement
 f2.Range("A1") = f2.Range("A100")  ' je restitue A1 à partir de la copie de A100

Cela marche bien, mais cette séquence est dans une boucle (A1 à A50) et prend beaucoup de temps

Je pense qu'il doit y a voir un moyen de déclencher le code Worksheet_Change de la feuille "f2" directement sans avoir à faire ces "move" successifs

[Philippe Tulliez]

Bonjour,
Le but d'une procédure événementielle est de se déclencher lorsqu'un événement se produit et pas de le provoquer par appel.
Si vous expliquiez le but recherché, il y a certainement une autre solution.

[Patrice740]

Bonjour,

y-a-t-il un moyen de déclencher le code Worksheet_Change depuis une autre macro.

Pour déclencher l'évènement, c'est tout simple : il suffit donc d'écrire dans la feuille concernée (c'est ce qui déclenche l'évènement).

Mais ce n'est peut-être pas ce que tu voudrais faire ...
Peut-être voudrais-tu exécuter le code depuis une macro sans déclencher l'évènement : dans ce cas c'est l'architecture de ton code qu'il faut revoir :

Dans le module de la feuille :

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
  Call monModule.maMacro
End Sub

Dans un module standard (ici nommé monModule) :

Code :

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

1
2
3
4
Public Sub maMacro()
  ' ici le code qui était dans _change :
  ' ...
End Sub

Dans le module de ta macro :

Code :

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

1
2
3
4
5
Sub taMacro()
  ' ...
  Call monModule.maMacro
  ' ...
End Sub

Pour moi, le code d'une macro Worksheet_Change ne doit jamais provoquer d'évènement dans une autre feuille.

[retraite83]

Merci je vais regarder
pour expliquer mon besoin :

j'ai dans la feuille f2 un code Worksheet_Change(ByVal Target As Range) qui déclenche une mise en page dans une feuille f3 en anglais par défaut (EN)

dans la feuille f1 l'utilisateur peut choisir la langue (FR ou EN)

Quand l'utilisateur change la langue, il sélectionne FR pour le français et je veux que dans f3 la mise en page soit en français, donc je voudrai déclencher Worksheet_Change(ByVal Target As Range) de f2

Idem s'il revient en EN

[Philippe Tulliez]

Bonjour,
L'exemple dans cette contribution, titrée Etiquettes de colonnes mutltilingues pour tableaux structurés vous inspirera sans doute.

[retraite83]

#3

Pour déclencher l'évènement, c'est tout simple : il suffit donc d'écrire dans la feuille concernée (c'est ce qui déclenche l'évènement).

c'est ce que je fais mais c'est long

Code :

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

1
2
3
f2.Range("A100") =  f2.Range("A1")   '  Je copie A1 dans une cellule temporaire A100
 f2.Range("A1") = ""   ' j'efface A1 pour provoquer un changement
 f2.Range("A1") = f2.Range("A100")  ' je restitue A1 à partir de la copie de A100

#5
Merci Philippe, il va me falloir un petit moment pour digérer et comprendre votre solution...

[Patrice740]

c'est ce que je fais mais c'est long

N'y aurait-t'il pas un problème de récursivité ?
(i;e. : la procédure de l'évènement change ne déclenche-t'elle l'événement ?)
Penser à Application.EnableEvents = False avec un gestionnaire d'erreur indispensable dans ce cas.

[Thumb down]

Bonjour,

1. tu déclare la méthode en public

   Code :

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

   Public Sub Worksheet_Change(ByVal Target As Range)

2. tu l'appel comme suis

   Code :

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

   F2.Worksheet_Change F2.Range("A1")