Enlever "effets d'une macro"

Bonjour à tous. Voilà pas mal de temps que je réalise des macros sur Excel pour mettre en forme des fichiers, récupérer des données...

J'ai toujours eu le même problème final : comme mon code sert à organiser des données sur différentes feuilles, lorsque je la lance, je vois toutes les sélections de feuilles, enfin bref, je vois tout le travail de la macro. Du coup c'est pas très pro, je vois les feuilles se balader, ca fait moche !

Je sais que ça vient du .select que j'utilise à foison (honte à moi, mais comme je suis newbie en VB) ca aide.

Je poste mon code en PJ comme il est assez long et j'aimerais bien comprendre comment éviter de voir tout le travail de ma macro. Merci à vous tous qui me répondrez.

Bonjour,


Je n'ai pas regardé la pièce joint, peux-tu mettre un extrait de ton code.

Les select sont rarement utiles, si tu met un bout de code on pourra te le montrer.

Sinon un exemple à placer en début de macro (ne pas oublier de remettre le raffraichissement en fin de macro) :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub montest() on error goto fin Application.DisplayAlerts = False 'Arret des alertes Application.ScreenUpdating = False 'Arret rafraichissement ecran ' .... ton code ' .... '.... fin: Application.DisplayAlerts = True Application.ScreenUpdating = True

---

C'est énorme ce truc, je viens d'essayer, c'est tout simplement magique. Cela fait des années que je cherche quelque chose de simple de ce genre. Merci bcp !!!!!!!!!!!!

Tant mieux si ça te sert.


Au fait, il te reste les select qui ralentissent le code ou alors tu as adaoté ton code ?

Re,

J'ai modifié pour le fun sans testé, un bout de ton code sans les select ('Mise en forme avec statuts prospects ) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'Mise en forme avec statuts prospects   with Sheets("Deal Flow Lyon - Dossiers a...") .Columns("J:J").Delete Shift:=xlToLeft .Columns("I:I").Cut .Columns("C:C").Insert Shift:=xlToRight .Columns("D:D").Cut .Columns("B:B").Insert Shift:=xlToRight .Columns("A:A").Delete Shift:=xlToLeft .Columns("J:J").Delete Shift:=xlToLeft end with

---