Lancement d'une macro à la selection d'un onglet

Bonjour à tous,

Je vous suis depuis quelques temps et vous m'avez bien aidé à créer quelques outils sous excel mais aujourd'hui j'ai un problème qui reste sans solution.

Je cherche à lancer une macro à la selection d'un onglet, celle-ci doit coller une valeure contenue dans ledit onglet dans un autre onglet.
La macro fonctionne si je l'execute manuellement mais ne fonctionne pas si je la lance en la saisissant dans active worksheet_activate.

Je vous saisi ci dessous la macro telle que je l'ai écrite.

Code:

---

1 2 3 4 5

Private Sub Worksheets_Activate()   ThisWorkbook.Worksheets("data").Range("A103") = ActiveSheet.Range("D3")   End Sub

---

Qu'est-ce qu'il ne va pas.
Merci de m'éclairer.

A lire : https://msdn.microsoft.com/fr-fr/lib.../ff198220.aspx

Une question : où as-tu placé ce code dans VBE ?

Parce que si tu as bien placé ta macro, le ActiveSheet devrait être inutile.

Bonjour,

il n'y a pas de "s" à la fin de Worksheet_Activate
étant donné qu'il n'y a pas d'argument (et que c'est "worksheet" et pas "sheet"), j'en déduis que tu as voulu placer ceci directement dans le module des feuilles concernées.
Si tu l'as placé dans un module standard, ça ne fonctionnera clairement pas

maintenant, si tu as plusieurs feuilles à intégrer dans le processus, je te conseille d'utiliser l'évènement Workbook_SheetActivate du module Thisworkbook
il faudra néanmoins un peu sécuriser la chose :

- ne cibler que les feuilles souhaitées si ce n'est pas la totalité des feuilles du classeur
- SURTOUT : exclure ta feuille data

Merci pour vos réponses,

alors, j'ai enlevé le "s" et il est effectivement placé dans le module Thisworkbook et le code concerne la totalité des feuilles du classeur à l'exception de la feuille "data".
Le nombre de feuilles concernés étant élevé (52, une par semaine) j'ai préféré le positionner directement dans thisworkbook.
Mon niveau en macro n'est pas super élevé comment puis-je exclure la feuille "data" afin d'éviter tout bugs).

Merci à vous

C'est Workbook_SheetActivate qu'il faut utiliser

Utilise son paramètre Sh qui représente la feuille qu'on a activé
Teste son nom (propriété .Name de l'objet Sh) et si c'est différent de "data", alors on fait l'action (un simple "If")

quelque chose du genre

Code:

---

If Sh <> "data" Then ThisWorkbook.Sheets("data").Range("A103") = Range("D3")

---

Mais ça ne fonctionne pas donc je suppose que j'ai oublié quelque chose...

Citation:

---

Envoyé par joe.levrai

Teste son nom (propriété .Name de l'objet Sh) et si c'est différent de "data", alors on fait l'action (un simple "If")

---

on y est presque :mrgreen:

Si dans Worksheet_Change la référence à la feuille active est inutile (puisque, par nature, la macro est affectée à cette feuille), ce n'est pas la même chose pour Workbook_SheetActivate.
Fort heureusement, cette macro évènementielle a un paramètre qui permet de faire référence à la feuille concernée (que tu as déjà utilisé dans la condition de ton test, sauf que tu as oublié sa propriété). Il est conseillé de l'utiliser pour désigner ses objets (comme le Range qui suit).
Lire : https://msdn.microsoft.com/fr-fr/vba...te-event-excel

Petite remarque en passant : "ça ne fonctionne pas", ce n'est pas très explicite comme descriptif de problème...

Merci de ne pas m'avoir donné la réponse directement, j'ai un peu cherché et voici la réponse :

Code:

---

1 2 3 4 5 6

Private Sub Workbook_SheetActivate(ByVal Sh As Object)   If Sh.Name <> "Data" Then ThisWorkbook.Sheets("data").Range("A103") = Range("D3")     End Sub

---

Tel quel ça fonctionne est-ce qu'il me manque quelque chose?

Avant de proposer une solution, même basique, je teste souvent ce que je vais dire.

et j'avais écris ça

Code:

---

1 2 3

Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name <> "data" Then ThisWorkbook.Worksheets("Feuil1").Range("A1") = ActiveSheet.Range("Feuil1") End Sub

---

je crois que ça répond à ta question (enfin pour ma part) :mrgreen:

Yes, merci à vous pour vos explications, je peux fermer le sujet.
A bientôt pour de nouvelles questions.

Citation:

---

Envoyé par Tilkiwilki

Code:

---

1 2 3 4 5

Private Sub Workbook_SheetActivate(ByVal Sh As Object)   If Sh.Name <> "Data" Then ThisWorkbook.Sheets("data").Range("A103") = Range("D3")   End Sub

---

Tel quel ça fonctionne est-ce qu'il me manque quelque chose?

---

Perso, j'aurais mis un Sh. devant le Range("D3").
Pas sûr que ce soit indispensable mais ça rassure.