Déclencher ue code de Private Sub Worksheet_Change(ByVal Target As Range)

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:

---

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

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.

Bonjour,

Citation:

---

Envoyé par retraite83

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:

---

1 2 3

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

---

Dans un module standard (ici nommé monModule) :

Code:

---

1 2 3 4

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

---

Dans le module de ta macro :

Code:

---

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.

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

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

#3

Citation:

---

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:

---

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

Citation:

---

Envoyé par retraite83

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.

Bonjour,

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

   ---

   Public Sub Worksheet_Change(ByVal Target As Range)

   ---

2. tu l'appel comme suis
   Code:

   ---

   F2.Worksheet_Change F2.Range("A1")

   ---