Discussion :

[tazamorte]

Bonjour

J'ai une macro qui marche tres bien sauf que l'utilisateur voit des fenetres bougés et c'est pas très rapide pouvez vous m'aider à l'optimiser visuellement

Le principe est de copié une mise en forme d'un tableau contenu dans fichier et de l'appliquer au tableau de ma feuille actuel

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
'pathexemple est le chemin du fichier que l'on veut ouvrir 
'rangetab est une plage du tableau de reception
 
Function LoadStyle(PathExemple As String, RangeTab As Range)
 
'Fonction d'init de la plage de selection
    MISEAZERO RangeTab
 
    Dim NameClasseurcur As String
    Dim NameClasseurtemp As String
    NameClasseurcur = ActiveWorkbook.Name
    Workbooks.Open Filename:=PathExemple ', Editable:=True
    Range("A1").CurrentRegion.Select
    NameClasseurtemp = ActiveWorkbook.Name
    Selection.Copy
    Windows(NameClasseurcur).Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Windows(NameClasseurtemp).Activate
    Workbooks(NameClasseurtemp).Close False
    Windows(NameClasseurcur).Activate
 
end sub

[ouskel'n'or]

Après sub .......() tu mets

Code :

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

Application.screenUpdating = false

et avant En sub, tu mets

Code :

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

la même chose = True

Mais le mieux est de ne pas utiliser Select ni activate... quand on peut et on peut la plupart du temps

Edit
Et dans ton cas on peut

[tazamorte]

Au grand maitre de l'anti select et activate

Eclaire moi de ton savoir et explique moi comment m'en passer que je devienne un disciple de....

[ouskel'n'or]

Code :

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

1
2
    Range("A1").CurrentRegion.Copy
    Worksheets("feuil2").Range("N1").PasteSpecial Paste:=xlPasteFormats

Ça t'inspire ?

[AlainTech]

Au grand maitre de l'anti select et activate

Eclaire moi de ton savoir et explique moi comment m'en passer que je devienne un disciple de....

Il faut essayer de "penser objet" le plus possible.

Un exemple dans ton code dont je n'ai gardé que la partie gestion des classeurs:

Code :

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

1
2
3
4
5
6
7
8
9
Dim NameClasseurcur As String
Dim NameClasseurtemp As String
NameClasseurcur = ActiveWorkbook.Name
Workbooks.Open Filename:=PathExemple ', Editable:=True
NameClasseurtemp = ActiveWorkbook.Name
Windows(NameClasseurcur).Activate
Windows(NameClasseurtemp).Activate
Workbooks(NameClasseurtemp).Close False
Windows(NameClasseurcur).Activate

Voici comment transformer ces lignes en "pensant objet":

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim wbkDest As Workbook
Dim wbkSource As Workbook
' Créer une instance (un objet) de l'ActiveWorkbook 
Set wbkDest = ActiveWorkbook
' Créer un objet en ouvrant un classeur
Set wbkSource = Workbooks.Open Filename:=PathExemple ', Editable:=True
' ...
' tout le code de copie entre wbkSource et wbkDest
' ...
 
' Fermer le classeur source en fermant son instance
wbkSource.Close False

Tu y vois un peu plus clair?