Simplifier une macro

Version imprimable

Bonjour

J'aimerais savoir s'il est possible de simplifier cette macro afin qu'elle s’exécute plus rapidement.

merci.

Code:

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Private Sub CB_Valider_Click()
 
    ActiveCell.Offset(0, 1).Value = CDate(Plannings.CBH1)
Plannings.CBH1 = Format(Plannings.CBH1, "hh:mm")
    ActiveCell.Offset(0, 2).Value = CDate(Plannings.CBH2)
Plannings.CBH1 = Format(Plannings.CBH2, "hh:mm")
    ActiveCell.Offset(0, 3).Value = CDate(Plannings.CBH3)
Plannings.CBH1 = Format(Plannings.CBH3, "hh:mm")
    ActiveCell.Offset(0, 4).Value = CDate(Plannings.CBH4)
Plannings.CBH1 = Format(Plannings.CBH4, "hh:mm")
 
    ActiveCell.Offset(1, 1).Value = CDate(Plannings.CBH5)
Plannings.CBH1 = Format(Plannings.CBH5, "hh:mm")
    ActiveCell.Offset(1, 2).Value = CDate(Plannings.CBH6)
Plannings.CBH1 = Format(Plannings.CBH6, "hh:mm")
    ActiveCell.Offset(1, 3).Value = CDate(Plannings.CBH7)
Plannings.CBH1 = Format(Plannings.CBH7, "hh:mm")
    ActiveCell.Offset(1, 4).Value = CDate(Plannings.CBH8)
Plannings.CBH1 = Format(Plannings.CBH8, "hh:mm")
 
    ActiveCell.Offset(2, 1).Value = CDate(Plannings.CBH9)
Plannings.CBH1 = Format(Plannings.CBH9, "hh:mm")
    ActiveCell.Offset(2, 2).Value = CDate(Plannings.CBH10)
Plannings.CBH1 = Format(Plannings.CBH10, "hh:mm")
    ActiveCell.Offset(2, 3).Value = CDate(Plannings.CBH11)
Plannings.CBH1 = Format(Plannings.CBH11, "hh:mm")
    ActiveCell.Offset(2, 4).Value = CDate(Plannings.CBH12)
Plannings.CBH1 = Format(Plannings.CBH12, "hh:mm")
 
    ActiveCell.Offset(3, 1).Value = CDate(Plannings.CBH13)
Plannings.CBH1 = Format(Plannings.CBH13, "hh:mm")
    ActiveCell.Offset(3, 2).Value = CDate(Plannings.CBH14)
Plannings.CBH1 = Format(Plannings.CBH14, "hh:mm")
    ActiveCell.Offset(3, 3).Value = CDate(Plannings.CBH15)
Plannings.CBH1 = Format(Plannings.CBH15, "hh:mm")
    ActiveCell.Offset(3, 4).Value = CDate(Plannings.CBH16)
Plannings.CBH1 = Format(Plannings.CBH16, "hh:mm")
 
    ActiveCell.Offset(4, 1).Value = CDate(Plannings.CBH17)
Plannings.CBH1 = Format(Plannings.CBH17, "hh:mm")
    ActiveCell.Offset(4, 2).Value = CDate(Plannings.CBH18)
Plannings.CBH1 = Format(Plannings.CBH18, "hh:mm")
    ActiveCell.Offset(4, 3).Value = CDate(Plannings.CBH19)
Plannings.CBH1 = Format(Plannings.CBH19, "hh:mm")
    ActiveCell.Offset(4, 4).Value = CDate(Plannings.CBH20)
Plannings.CBH1 = Format(Plannings.CBH20, "hh:mm")
 
    ActiveCell.Offset(5, 1).Value = CDate(Plannings.CBH21)
Plannings.CBH1 = Format(Plannings.CBH21, "hh:mm")
    ActiveCell.Offset(5, 2).Value = CDate(Plannings.CBH22)
Plannings.CBH1 = Format(Plannings.CBH22, "hh:mm")
    ActiveCell.Offset(5, 3).Value = CDate(Plannings.CBH23)
Plannings.CBH1 = Format(Plannings.CBH23, "hh:mm")
    ActiveCell.Offset(5, 4).Value = CDate(Plannings.CBH24)
Plannings.CBH1 = Format(Plannings.CBH24, "hh:mm")
 
    ActiveCell.Offset(6, 1).Value = CDate(Plannings.CBH25)
Plannings.CBH1 = Format(Plannings.CBH25, "hh:mm")
    ActiveCell.Offset(6, 2).Value = CDate(Plannings.CBH26)
Plannings.CBH1 = Format(Plannings.CBH26, "hh:mm")
    ActiveCell.Offset(6, 3).Value = CDate(Plannings.CBH27)
Plannings.CBH1 = Format(Plannings.CBH27, "hh:mm")
    ActiveCell.Offset(6, 4).Value = CDate(Plannings.CBH28)
Plannings.CBH1 = Format(Plannings.CBH28, "hh:mm")
 
End Sub

15/05/2018, 16h07
Wadaris

Bonjour,

Tu peux essayer d'ajouter en début de code :

Code:

Application.ScreenUpdating = False

Et en fin de code :

Code:

Application.ScreenUpdating = True

Cela permet de désactiver les animations pendant l'exécution de la macro.

A+
Wadaris

Salut,
Tu peux également passer par une boucle

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim x As Integer, y As Integer
x=0
y=0
For i = 1 To 28
y=y+1
if y=5 Then
x=x+1
y=1
End If
 ActiveCell.Offset(x,y).Value = CDate(Plannings.Controls("CBH"&i))
Plannings.Controls("CBH"&i) = Format(Plannings.Controls("CBH"&i), "hh:mm")
Next i

15/05/2018, 16h48
Didpa

merci d'avoir répondu.

j'ai essayé les deux manières, cela ne change pas grand chose, 1 seconde de différence (20 secondes au total pour exécuter la macro) encore un peu long.
15/05/2018, 18h06
Transitoire
Bonjour
Je ne sais pas pour la boucle, mais le non rafraichissement de l'écran par:
Code:

1 2 3 Application.ScreenUpdating = False ................................ Application.ScreenUpdating = True
N'est efficace en gain de temps, qu'avec l'utilisation intempestive des .Select et .Activate. Sur un programme de mes débuts, j'avais divisé par 4 le temps d'éxécution d'une macro. :?
Dans votre cas, ça ne pouvait rien faire gagner! :)
Cordialement 8-)

Bonjour,

Citation:

le non rafraichissement de l'écran par Application.ScreenUpdating = False N'est efficace en gain de temps, qu'avec l'utilisation intempestive des .Select et .Activate.

Je ne suis pas d'accord. Sur une écriture sur feuille (sans Select ni Activate) ça fait gagner de 20 % à 25% de temps. S'il y a en a beaucoup ça n'est plus négligeable.

Un essai, non testé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CB_Valider_Click() Dim tabl(0 To 6, 1 To 4) As Date Dim i As Long, j As Long Application.ScreenUpdating = False For i = 0 To 6 For j = 1 To 4 tabl(i, j) = CDate(Plannings.Controls("CBH" & i * 4 + j)) ' merci Jean-Philippe :-) Plannings.Controls("CBH" & i * 4 + j) = Format(Plannings.Controls("CBH" & i * 4 + j), "hh:mm") Next j Next i ActiveCell.Resize(7, 4) = tabl End Sub
Ecriture des cellules en une fois. Mais comme il y a les mise à jours des contrôles, dans le doute je préfère laisser ScreenUpdating = False
Cette mise à jours des contrôles est-elle indispensable ?
eric

15/05/2018, 20h33
Transitoire

Re,
Sans doute ai-je dut mal m'exprimer, puis que j'ai été mal compris. :?
L'utilisation importante des Select, Activate, indique me semble-t-il une manière de travailler très "incarnée" dans les feuilles(Ce fut longtemps mon cas). La l'utilisation de "Application.ScreenUpdating" est un gain de temps phénoménal. Maintenant, je ne cherchais pas être limitatif à ses deux exemples. En tout cas, une chose est sure: ce cher Didpa semble abonder dans mon sens

Citation:

j'ai essayé les deux manières, cela ne change pas grand chose, 1 seconde de différence (20 secondes au total pour exécuter la macro) encore un peu long.

Mais, il est vrai que certaines fois, ça empêche certains légers mouvements d'écrans, peu agréables.
Cordialement 8-)
15/05/2018, 20h35
Jean-Philippe André

Dans la même idée, tu gagnerais avec un CalculationMode à Manual.
16/05/2018, 13h37
Igloobel

Bonjour,

moi à la place de mettre en forme à chaque ligne je sélectionnerais la colonne et je le ferai en une fois

cela fera gagner du temps car un accès en lecture-ecriture au lien de plein ...

autre idée passer par un tableau en mémoire et balancer le tableau en une fois
16/05/2018, 15h18
eriiic

Bonjour,

Citation:

autre idée passer par un tableau en mémoire et balancer le tableau en une fois

voir post #6 ;-)

Quant à la mise en forme, ce n'est pas pour des cellules mais des objets.
eric