Désactiver un Sub worksheet_activate pour un copier coller

J'imagine que mon titre n'est pas très clair, mais voici mon problème.
J'ai une fonction private sub worksheet_activate qui réalise un filtre et un tri automatique à chaque fois qu'on visualise ma feuille pour que les résultats soient toujours à jour.
D'un autre côté, sur mon classeur, j'ai une macro qui, entre autres, doit faire un copier coller avec liaison d'une feuille A sur cette feuille en question.

Sauf que du coup, dans mon code, lorsque je copie les cellules de ma feuille A et que je dis de les coller sur l'autre feuille avec ma private sub, très logiquement excel m'actualise mon tri avant de continuer ma macro. Mais en faisant cela, il «*oublie*» la donnée copiée et me fait une erreur lorsque je fais le paste.

J'ai donc deux questions :

1. peut-on « bloquer » cette private sub pour ne pas la lancer, ou à défaut, peut-on « mémoriser » la donnée du « copy » pour qu'elle puisse être collée ?
2. sinon, peut-on faire un copier coller avec liaison sans passer par la sélection des deux feuilles (à l'image d'un range.copy destination:=range normal) ? Là je suis contraint de faire un range.paste link:=True

Pour info, la partie de mon code :

Code:

---

1 2 3 4

Sheets(FeuilleEtatAvancement).Range(Cells(ligne + 1, 3), Cells(ligne + 1, 5)).Copy Sheets(FeuilleTB).Select 'à partir de là, il m'active mon autre code automatique à l'activation de ma sheet FeuilleTB Range(Cells(ligne + 1, 3), Cells(ligne + 1, 5)).Select ActiveSheet.Paste link:=True

---

Merci !

Bonjour GroFlo, bonjour le forum,

Pour désactiver les macros événementielles cette ligne de code :

Code:

---

Application.EnableEvents = False

---

à placer dans le code de ta macro avant de sélectionner l'onglet. Ne surtout pas oublier de remettre à True à la fin avec :

Code:

---

Application.EnableEvents = True

---

Bonjour
ton problème est très simple
tu utilise un activate donc forcement si du code est écrit dans cet évènement le code va s'exécuter forcement

en fait tu n'a pas besoins d'activer pour copier les cellules il faut simplement faire ceci:

Code:

---

Sheets(FeuilleTB).Range(Cells(ligne + 1, 3), Cells(ligne + 1, 5))=Sheets(FeuilleEtatAvancement).Range(Cells(ligne + 1, 3), Cells(ligne + 1, 5))

---

Citation:

---

Envoyé par patricktoulon

en fait tu n'a pas besoins d'activer pour copier les cellules il faut simplement faire ceci:

Code:

---

Sheets(FeuilleTB).Range(Cells(ligne + 1, 3), Cells(ligne + 1, 5))=Sheets(FeuilleEtatAvancement).Range(Cells(ligne + 1, 3), Cells(ligne + 1, 5))

---

---

Sauf erreur, ça va juste me copier les valeurs, alors que je souhaite copier avec liaison, non ?

Citation:

---

Envoyé par Thautheme

Bonjour GroFlo, bonjour le forum,

Pour désactiver les macros événementielles cette ligne de code :

Code:

---

Application.EnableEvents = False

---

à placer dans le code de ta macro avant de sélectionner l'onglet. Ne surtout pas oublier de remettre à True à la fin avec :

Code:

---

Application.EnableEvents = True

---

---

Génial, ça fonctionne parfaitement !
Merci infiniment !

Re

je n'ai pas mis ".value " après le range ca n'est pas pour rien

pierre = paul

donc pierre est égal en tout point a Paul

moi je dis ca je dis rien ;)

Il me semblait que le .value ne se mettait pas car il était la valeur « de base » dans ce genre de cas et donc que VBA comprenait qu'on parlait de value.
Je viens de faire le test, ça me colle la valeur, pas de liaison : si je modifie manuellement mes cases d'origine, celles collées ne sont pas modifiées pour autant. Ai-je raté quelque chose ?