Discussion :

[Tilkiwilki]

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 :

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

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.

[Menhir]

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.

[joe.levrai]

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

[Tilkiwilki]

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

[joe.levrai]

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")

[Tilkiwilki]

quelque chose du genre

Code :

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

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

[Menhir]

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

[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