Discussion :

[bosk1000]

Bonjour à tous,

Je voudrais savoir, s'il est possible d'utiliser du SQL dans une macros

Précisément je cherche à alléger un fichier excel qui fait 12 mo
et des requêtes sql si cela fonctionne allégerais son temps de traitement.

Donc, est-il possible de récupérer les élément d'un onglet "operation de tresorerie", les colonnes A à H, U et V, en fonction d'un nom que je saisie dans un combo box "nom"

pour les mettes dans un onglet "extraction" sur les colonnes A à J

Avec comme critères de sélection :
1) la valeur dans la combobox "nom" qui se situe dans la colonne B
2) la lettre a qui se situe dans la colonne V de l'onglet "operation de tresorerie"

Merci.

J'espère avoir été assez explicite

[Invité]

Bonjour,
j'ai trouvé ce lien:http://www.developpez.net/forums/d93...el/#post618327

[Philippe Tulliez]

Bonjour,
Il est également possible d'extraire des lignes d'une liste de données excel en fonction de critères en utilisant les filtres avancés d'excel (En VBA c'est la méthode AdvancedFilter de l'objet Range).
Un tutoriel sur le sujet Les filtres avancés ou élaborés dans Excel

[bosk1000]

Merci

Donc on peu effectivement utiliser le sql via ADO

Mais j'avoue mon ignorance en la matière, c'est la première fois que je vais tenter cela

1) si je comprend bien je dois d'abord activer dans la bibliothèque
X Data Objects 2.X Library ?

2) mon code actuellement se présente comme ceci :

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
 
Private Sub nom_Change()
Application.ScreenUpdating = False
Sheets("critère").Activate
Range("b2").Value = nom.Value
 
 
 
 
Sheets("extraction").Select
    Cells.Select
    Range("H1").Activate
    Selection.ClearContents
 Sheets("operation de tresorerie").Columns("A:v").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("critère").Rows("1:2"), CopyToRange:=Range("A1"), _
        Unique:=False
 Columns("J:j").Select
   Selection.Delete Shift:=xlToLeft
 Columns("k:t").Select
  Selection.Delete Shift:=xlToLeft
 
Range("K1").Select
    ActiveCell.FormulaR1C1 = "=SUM(C[-2])"
    Range("K2").Select
 
 
 
 
 
totalbox = Range("k1").Value
totalbox = Replace(totalbox, ",", ".")
np.Value = Range("k1").Value
list_operation.ColumnHeads = True 'en tete de colone
list_operation.ColumnCount = 10 ' nombre de colone a afficher
list_operation.ColumnWidths = "60,40;80;40;40;40;40;40;50;50"
list_operation.RowSource = "extraction!a2:j" & Range("extraction!b65536").End(xlUp).Row ' etendue de la liste a fficher
list_operation.MultiSelect = fmMultiSelectMulti
Application.ScreenUpdating = True
End Sub

Comment faire intervenir une requête sql ?
N'ayant jamais fait cela, je suis dans le brouillard

3) toute requête doit être précédé de " rSQL =" ?

4) Si je veux, à partir du nom inscrit dans la combobox "nom", executer ma sélection est-ce que la requête semble correct :

Code :

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

select * from [operation de tresorerie] where [B]=nom.values and [v]='a'

Sachant que la colonne B contiens les nom et la colonne V, soit la lettre a ou l

Merci pour votre aide

[Invité]

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
 
Private Sub nom_Change()
Application.ScreenUpdating = False
Sheets("critère").Range("b2").Value = nom.Value
Sheets("extraction").Range("H1").ClearContents
 
FiltreActif Range("A1"), Sheets("critère").UsedRange, Sheets("operation de tresorerie").Columns("A:v"), False
 
 
 Columns("J:j").Delete Shift:=xlToLeft
 Columns("k:t").Delete Shift:=xlToLeft
 
Range("K1").FormulaR1C1 = "=SUM(C[-2])"
 
 
 
 
 
 
totalbox = Range("k1").Value
totalbox = Replace(totalbox, ",", ".")
np.Value = Range("k1").Value
list_operation.ColumnHeads = True 'en tete de colone
list_operation.ColumnCount = 10 ' nombre de colone a afficher
list_operation.ColumnWidths = "60,40;80;40;40;40;40;40;50;50"
list_operation.RowSource = "extraction!a2:j" & Range("extraction!b65536").End(xlUp).Row ' etendue de la liste a fficher
list_operation.MultiSelect = fmMultiSelectMulti
Application.ScreenUpdating = True
End Sub
 
Function FiltreActif(RangeSource As Range, CriterRange As Range, CopyRange As Range, Optional Unique As Boolean = True) As Boolean
FiltreActif = False
On Error Resume Next
 RangeSource.AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=CriterRange _
        , CopyToRange:=CopyRange, Unique:=Unique
        DoEvents
        If Err = 0 Then FiltreActif = True
        On Error GoTo 0
End Function

[bosk1000]

Merci pour l'amélioration du code,

donc aucune utilisation de sql...

je teste cela lundi

Bonjour,

ça ne fonctionne pas du tout

aucune action sur la feuille extration

[Invité]

bonjour,
peux tu me donner un fichier XLS?