Discussion :

[willyol3]

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.

[aalex_38]

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 :

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

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

[willyol3]

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

[aalex_38]

Tant mieux si ça te sert.


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

[aalex_38]

Re,

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

Code :

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

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