Discussion :

[dalbator]

Bonjour,

J'ai un bout de macro qui me semble long à s'exécuter, plus de 10 secondes...

Avez-vous une idée de comment faire pour réduire ce temps ?

Pour information, je refait plusieurs fois les copier coller, car j'ai des cellules fusionnées... Et donc le copier coller ne fonctionne pas si on prends d'autres cellules.

Merci d'avance. Car 10 secondes, c'est vraiment long d'autant que j'ai déjà supprimé des parties de code...

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub modifier()
Application.ScreenUpdating = False
If Feuil11.Cells(1, 9).Value <> "" Then
sortie = True
Feuil12.Select
'copie du bloc 1 & 2
Feuil11.Range("b2:h29").Copy
Feuil12.Range("b2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
'copie du bloc 3
Feuil11.Range("i1:l6").Copy
Feuil12.Range("i1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
'copie de la case fusionnée du bloc 3
Range("j7").Copy
Feuil12.Range("j7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
'copie du bloc 3 suite
Feuil11.Range("j11:l18").Copy
Feuil12.Range("j10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
'copie de la case fusionnée du bloc 3
Feuil11.Range("j19").Copy
Feuil12.Range("j19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
'copie du bloc 3 fin
Feuil11.Range("j21:l26").Copy
Feuil12.Range("ji21").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
'copie de la dernière case fusionnée du bloc 3
Feuil11.Range("j27").Copy
Feuil12.Range("j27").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
'n°id
Feuil12.Cells(50, 1).Value = Feuil12.Cells(9, 1).Value
sortie = False
 
Else
Z = MsgBox("Il manque le n° ID de cette fiche. Merci de la reselectionner", vbCritical, "Erreur")
Feuil1.Select
End If
 
Application.ScreenUpdating = True
 
End Sub

[rvtoulon]

Slt,
plutot que copier coller tu peux essayer ceci :

Code :

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

Feuil12.Range("b2").Value = Feuil11.Range("b2:h29").Value

[dalbator]

Merci pour ta réponse.

Par contre, cette méthode ne copie/colle que b2 et pas les autres cases...

[Gorfael]

Salut cardinault et le forum
élague déjà ce qui ne sert à rien (comme sortie)
Essaie aussi de réduire ton code :

Code :

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

.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, skipBlanks:=False, Transpose:=False

devient

Code :

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

.PasteSpecial Paste:=xlPasteValues

Mais je ne suis pas sûr que ça face autre chose que rendre plus lisible.
Essaie de fermer Excel puis de relancer ton micro, ça aide, des fois.
A+

[rvtoulon]

Re,

Par contre, cette méthode ne copie/colle que b2 et pas les autres cases...

ben oui c'était pour te montrer maintenant il faut faire la même chose avec les autres cases .

[sabzzz]

bonjour à tous,

Code :

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

Feuil12.Range("b2:h29").Value = Feuil11.Range("b2:h29").Value

[dalbator]

Je t'adore sabzzz !

Plus besoin de me faire ... avec les cellules fusionnées. Tout est directement copié !

Merci encore.