Discussion :

[goldfinger13]

Bonsoir
le bout de code ci-dessous me permet de mettre à jour une base à partir d'un formulaire avec listview.
le temps de traitement pour la mise à jour de 35 lignes et 16 colonnes est de 28 secondes ce qui me parait un peu long

les modifications à apporter à cette base ne concernent qu'une seule ligne en général

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
46
 
Private Sub CommandButton5_Click()   'commande modifier
Dim debut As Date, temps As Date, fin As Date
Dim I As Integer, K As Integer
Dim J As Byte
Dim ctrl As Control
debut = Time
 
    ListView1.SelectedItem.Text = Me.textbox1.Text
    ListView1.SelectedItem.ListSubItems(1).Text = Me.ComboBox1.Text
    ListView1.SelectedItem.ListSubItems(2).Text = Me.ComboBox2.Text
    ListView1.SelectedItem.ListSubItems(3).Text = CDate(Me.TextBox4.Value)
    ListView1.SelectedItem.ListSubItems(4).Text = CDate(Me.TextBox5.Value)
    ListView1.SelectedItem.ListSubItems(5).Text = Me.ComboBox5.Text
    ListView1.SelectedItem.ListSubItems(6).Text = CStr(Me.TextBox6.Value)
    ListView1.SelectedItem.ListSubItems(7).Text = Me.ComboBox3.Text
    ListView1.SelectedItem.ListSubItems(8).Text = Me.ComboBox4.Text
    ListView1.SelectedItem.ListSubItems(9).Text = CDate(Me.TextBox7.Value)
    ListView1.SelectedItem.ListSubItems(10).Text = Me.TextBox8.Text
    ListView1.SelectedItem.ListSubItems(11).Text = CDate(Me.TextBox9.Value)
 
    K = 2
    For I = 1 To ListView1.ListItems.Count
    BASEVEHICULES.Cells(K, 1) = ListView1.ListItems(I).Text
    For J = 1 To ListView1.ColumnHeaders.Count - 1
    If J = 3 Or J = 4 Or J = 9 Or J = 11 Then
        BASEVEHICULES.Cells(K, J + 1) = CDate(ListView1.ListItems(I).ListSubItems(J).Text)
    ElseIf J = 6 Then
        BASEVEHICULES.Cells(K, J + 1) = CStr(ListView1.ListItems(I).ListSubItems(J).Text)
    Else
        BASEVEHICULES.Cells(K, J + 1) = ListView1.ListItems(I).ListSubItems(J).Text
    End If
    Next J
    K = K + 1
    Next I
 
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" Then ctrl.Text = ""
        If TypeName(ctrl) = "ComboBox" Then ctrl.Text = ""
   Next
fin = Time
temps = fin - debut
 
MsgBox ("C'est fini !" & Chr(10) & "temps de traitement " & temps)
 
End Sub

ma question est simple est-il possible de reduire ce temps de traitement et si oui comment?

merci pour votre aide

[jfontaine]

Bonjour,

dans un premier temps, désactive l'affichage et les calculs

Code :

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

1
2
3
4
5
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
... Code
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

[goldfinger13]

merci jfontaine
bingo traitement presque instantané

maintenant je reste preneur d'un code simplifié