Discussion :

[SEBJAK]

Bonjour

j'ai une macro qui met beaucoup trop de temps.
auriez vous une solution pour l'accélerer le modificant ce code ?

d'avance merci
Sébastien

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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
 
 
 
 
Sub Btn_convertSQL()
 
Application.ScreenUpdating = False
 
 
Dim nomTable As String
Dim tempDate As String
Dim zones As String
 
zones = " "
i = 1
j = maxCol()
k = maxLigne()
 
a = k
 
MsgBox a, vbInformation
 
 
For col = 1 To j - 1
'If col < maxCol() Then
 
zones = zones & Feuil1.Cells(4, i).Value & ", "
i = i + 1
 
'End If
 
Next
 
zones = zones & Feuil1.Cells(4, j).Value
 
 
 
 
If Feuil1.Range("D2") <> "" Then
 
    Feuil2.Cells.ClearContents 'on efface les requêtes précédentes
 
    nomTable = Feuil1.Range("D2") 'D2 & E2 ont été fusionnés,
                                  'mais c'est la 1ère qui contient le nom de la table
 
 
 
    For lig = 5 To k
 
        Feuil2.Cells(lig, 1) = "INSERT INTO " & nomTable & " (" & zones & ")" & " VALUES ("
 
        For col = 1 To j
 
        If col < j Then  'séparation des données entre virgules avant la dernière colonne
 
            If IsNumeric(Feuil1.Cells(lig, col)) = False _
            Or Feuil1.Cells(lig, col).NumberFormat = "@" Then
                Feuil2.Cells(lig, col + 1) = "''" & Feuil1.Cells(lig, col) & "'" & "," 'affichage des chaînes, dates & heures entre ' '
            Else
                Feuil2.Cells(lig, col + 1) = "" & Feuil1.Cells(lig, col) & "" & ","    'sinon, affichage des nombres sans ' '
            End If
 
            If Feuil1.Cells(lig, col) = "" Then
                Feuil2.Cells(lig, col + 1) = "'''" & ","  'si valeur vide, on affiche entre ' '
            End If
 
            Call InsertDateAvFin 'fonction qui s'exécute au cas où les dates sont au format YYYY-MM-DD,
                                 'et lorsque les données sont séparées par des virgules
 
        Else 'fermeture de la requête
 
            If IsNumeric(Feuil1.Cells(lig, col)) = False _
            Or Feuil1.Cells(lig, col).NumberFormat = "@" Then                            'affichage des chaînes, dates & heures entre ' '
                Feuil2.Cells(lig, col + 1) = "''" & Feuil1.Cells(lig, col) & "'" & ");"
            Else
                Feuil2.Cells(lig, col + 1) = "" & Feuil1.Cells(lig, col) & "" & ");"     'sinon, affichage des nombres sans ' ' (sauf 1ère col)
            End If
 
            If Feuil1.Cells(lig, col) = "" Then
                Feuil2.Cells(lig, col + 1) = "'''" & ");"  'si valeur vide, on affiche entre ' '
            End If
 
            Call InsertDateFinTbl 'fonction qui s'exécute au cas où les dates sont au format YYYY-MM-DD,
 
 
                                 'et lorsqu'on arrive à la dernière colonne
        End If
 
  a = a - 1
 
        Next
 
    Next
 
    Feuil2.Select
 
    MsgBox "Conversion terminée.", vbInformation
 
Else
    MsgBox "Veuillez renseigner le nom de votre table !", vbCritical
End If
 
Application.ScreenUpdating = True
 
End Sub

[a_diard]

Bonjour

Peut être éviter d'écrire dans la feuille à chaque lig

et passer par une variable tableau pour tout transférer dans la feuille en une seule fois.

Ceci permet de réduire les temps de traitement de façon drastique.

[SEBJAK]

Bonjour

Peut être éviter d'écrire dans la feuille à chaque lig

et passer par une variable tableau pour tout transférer dans la feuille en une seule fois.

Ceci permet de réduire les temps de traitement de façon drastique.

Bonjour

Merci pour ton retour
pourrais tu me donner un exemple de code ?

car je ne vois pas comment enregistrer toutes les lignes dans la même variable, puis lui dire d’écrire le résultat sur les différentes lignes ?
J'ai utilisé différents bout de code que j'ai trouvé sur Internet pour réaliser cette macro

D'avance merci

[Philippe Tulliez]

Bonjour,
Pour comprendre

passer par une variable tableau pour tout transférer dans la feuille en une seule fois

je te conseille la lecture de ces deux tutoriels

• Utiliser les variables tableaux en VBA Excel
• Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel

[patricktoulon]

bonsoir
perso je trouve des petites chose bizarre dans ton code la premiere et neanmoins fatale
c'est variable j qui est sensée etre un tableau

et tu t'en sert comme long dans ta boucle bizarre non tu trouve pas ?

Code :

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

1
2
3
4
5
6
j = maxCol()
k = maxLigne()
 a = k
 MsgBox a, vbInformation
 
For col = 1 To j - 1

y a des facons bien plus propre et rapides

tu vois je remplacerait tout !!! ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For col = 1 To j - 1
'If col < maxCol() Then
 
zones = zones & Feuil1.Cells(4, i).Value & ", "
i = i + 1
 
'End If
 
Next
 
zones = zones & Feuil1.Cells(4, j).Value

par cela

Code :

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

zones = Join(WorksheetFunction.Index(Feuil1.Cells(4, 1).Resize(1, j ).Value, 1, 0), ",")

et tant d'autres encore

[SEBJAK]

bonsoir
perso je trouve des petites chose bizarre dans ton code la premiere et neanmoins fatale
c'est variable j qui est sensée etre un tableau

et tu t'en sert comme long dans ta boucle bizarre non tu trouve pas ?

Code :

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

1
2
3
4
5
6
j = maxCol()
k = maxLigne()
 a = k
 MsgBox a, vbInformation
 
For col = 1 To j - 1

y a des facons bien plus propre et rapides

tu vois je remplacerait tout !!! ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
For col = 1 To j - 1
'If col < maxCol() Then
 
zones = zones & Feuil1.Cells(4, i).Value & ", "
i = i + 1
 
'End If
 
Next
 
zones = zones & Feuil1.Cells(4, j).Value

par cela

Code :

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

zones = Join(WorksheetFunction.Index(Feuil1.Cells(4, 1).Resize(1, j ).Value, 1, 0), ",")

et tant d'autres encore

Bonjour

Merci pour vos différents retours

je vais essayer de comprendre comment fonctionne les variables tableaux !

cordialement
Sébastien