Discussion :

[GroFlo]

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 :

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

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 !

[Thautheme]

Bonjour GroFlo, bonjour le forum,

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

Code :

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

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 :

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

Application.EnableEvents = True

[GroFlo]

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

Code :

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

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 ?

Bonjour GroFlo, bonjour le forum,

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

Code :

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

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 :

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

Application.EnableEvents = True

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

[patricktoulon]

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

[GroFlo]

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 ?

[patricktoulon]

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 :

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

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