SQL sous MS EXCEL

Version imprimable

SQL sous MS EXCEL

Bonjour tout le monde !! :D
j'ai une question à propos de la possibilité de l'utilisation des requêtes SQL sous MS EXCEL ?
J'ai des tableaux disperser sur plusieurs feuilles (selon leurs secteur d’activités)
et je voudrais créer un menu de recherche à base de VBA afin de simplifier le processus de recherche
le UserForm est illustré comme suite :

|--------------------------------|
| VILLE     |_____________|      |
|                                |
| QUARTIER  |_____________|      |
|                                |
| ACTIVITE  |_____________|      |
|                                |
|                 Rechercher     |
|--------------------------------|

les champs du classeur sont organisé comme ci-dessous :

        A               B
_ |_____________|____________________
1 |REF		| i1
2 |Ville	| XXXX
3 |QUARTIER	| YYYYY
4 |ACTIVITE	| INFORMATIQUE 
5 |	
6 |Entreprise	| ZZZZZ
7 |Decideur	|
8 |Poste	|  	
9 |Adresse	| XY EEEEEEEEEE
10|TEL		| 00 00 00 00 00
11|FAX		|
12|Mobile	|	
13|Email 	|	
14|Web		| www.site.com
15|AUTRE	| 	
16|
17|REF		| i2
18|Ville	|......

...
......etc

J'ai essayé le code suivant mais ça n'a pas marché, vu que mes données sont inséré horizontalement

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
67
68
69
70
Option Explicit
 
Dim Ws As Worksheet
Dim NbLignes As Integer
 
 
'Les données sont dans les colonnes A à D, d'un onglet nommé "Base".
'La procédure effectue un remplissage conditionnel des Combobox en fonction de
'ce qui est sélectionnée dans le contrôle précédent:
'La sélection du ComboBox1 (données colonne A) définit le contenu du ComboBox2 (données colonne B) ,
'La sélection du ComboBox2 définit le contenu du ComboBox3 (données colonne C) …etc...
'
 
Private Sub UserForm_Initialize()
    'Définit la feuille contenant les données
    Set Ws = Worksheets("Base")
    'Définit le nombre de lignes dans la colonne A
    NbLignes = CStr(Ws.Range("A65536").End(xlUp).Row)
 
    'Remplissage du ComboBox1
    Alim_Combo 1
 
End Sub
 
Private Sub ComboBox1_Change()
    'Remplissage Combo2
    Alim_Combo 2, ComboBox1.Value
End Sub
 
 
Private Sub ComboBox2_Change()
    'Remplissage Combo3
    Alim_Combo 3, ComboBox2.Value
End Sub
 
 
'Procédure pour alimenter les ComboBox
Private Sub Alim_Combo(CbxIndex As Integer, Optional Cible As Variant)
    Dim j As Integer
    Dim Obj As Control
 
    'Définit le ComboBox à remplir
    Set Obj = Me.Controls("ComboBox" & CbxIndex)
    'Supprime les anciennes données
    Obj.Clear
 
    'alimente le Combobox initial (Combobox1)
    If CbxIndex = 1 Then
        'Boucle sur les lignes de la colonne A (à partir de la 2eme ligne)
        For j = 2 To NbLignes
            Obj = CStr(Ws.Range("A" & j))
            'Remplit le ComboBox sans doublons
            If Obj.ListIndex = -1 Then Obj.AddItem CStr(Ws.Range("A" & j))
        Next j
    Else
        'Alimentation conditionnelle des autres Combobox en fonction de
        'ce qui est sélectionnée dans le contrôle précédent:
        '(La sélection du ComboBox1 définit le contenu du ComboBox2,
        'La sélection du ComboBox2 définit le contenu du ComboBox3 …etc...)
        For j = 2 To NbLignes
            If Ws.Range("A" & j).Offset(0, CbxIndex - 2) = CStr(Cible) Then
                Obj = CStr(Ws.Range("A" & j).Offset(0, CbxIndex - 1))
                If Obj.ListIndex = -1 Then Obj.AddItem CStr(Ws.Range("A" & j).Offset(0, CbxIndex - 1))
            End If
        Next j
   End If
 
   'Enlève la sélection dans le ComboBox
   Obj.ListIndex = -1
End Sub

Ma Question : est ce que je pourrais me servir de langage SQL pour sélectionner les données que je voulus récupérer

Bonne Journée à vous tous !

27/09/2013, 14h31
parmi

Bonjour,

Je pense qu'il faudra que tu mettes tes entêtes de champs en ligne 1 pour que ça fonctionne avec SQL et non pas en colonne A...
27/09/2013, 17h08
Queen12

Merci pour Votre réponse
mais c'est exactement mon souci ! toutes les données du classeur (30 feuilles ) sont insérer horizontalement , les entêtes des champs sont en colonne A au lieu ligne 1 :(
une feuille contient environ 40 tableau pareil à celui illustré en haut
ça serais difficile voir pénible à réécrire tous ces données
27/09/2013, 17h10
EngueEngue

Transpose, tu connais?
27/09/2013, 17h23
Queen12

Merci EngueEngue pour votre réponse et votre intérêt
non , Je viens de le découvrir , mais selon l'explication trouvée "TRANSPOSE function is used to transfer data located in a row into a column or data located in a column into a row"

mais.. moi .. je devrais garder l'organisation du classeur tel quel est (édité par mon boss)

la création de cette outil de recherche me parait difficile voire impossible (en gardant l'organisation du classeur ) :calim2:
27/09/2013, 17h53
parmi

Peut-être une petite macro qui te "transposerait" tes tableaux ?

Par contre, pour pouvoir utiliser SQL, les données d'une feuille doivent être positionnées correctement, c'est-à-dire avec les entêtes en haut et les données dessous, comme une table Access.

Si tu as 40 tableaux par feuille, ça me paraît impossible, mais je n'ai pas vu le classeur...

1 pièce(s) jointe(s)

Merci Bien Parmi pour votre éclaircissement
mes tableaux sont positionné comme suite :

x |A            |B
_ |_____________|____________________
1 |REF		| i1
2 |Ville	| XXXX
3 |QUARTIER	| YYYYY
4 |ACTIVITE	| INFORMATIQUE 
5 |	
6 |Entreprise	| ZZZZZ
7 |Decideur	|Monsieur X
8 |Poste	| Gérant
9 |Adresse	| XY EEEEEEEEEE
10|TEL		| 00 00 00 00 00
11|FAX		|
12|Mobile	|	
13|Email	|	
14|Web		| www.site.com
15|AUTRE	| 
16|___________________________
17|REF		| i2
18|Ville	|......

...
......etc

je vous joins un exemple sur fichier excel

Si je me fie au fichier joint, ceci pourrait faire le travail.
Il resterait à supprimer les colonnes originales

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
Sub Transposer()
    Dim I As Long
    Dim nbLignes As Long, Ligne As Long
    Dim Feuille As Worksheet
    Dim Debut As Long
 
    For Each Feuille In Worksheets
        Feuille.Activate
        Ligne = 2
        nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
 
        'Recherche du début
        If Range("A1") <> "REF" Then
            Debut = Columns("A").Find("REF", LookIn:=xlValues, LookAt:=xlWhole).Row
        Else
            Debut = 1
        End If
 
        'Copie des entêtes
        Range("A" & Debut & ":A" & Debut + 14).Copy
        Range("D1").PasteSpecial xlPasteValues, Transpose:=True
 
        'Copie des détails
        For I = Debut To nbLignes Step 16
            Range("B" & I & ":B" & I + 14).Copy
            Range("D" & Ligne).PasteSpecial xlPasteValues, Transpose:=True
            Ligne = Ligne + 1
        Next
    Next
End Sub

ReBonjour :D
Mercii tellement fort , ouiii les entêtes des champs deviennent en colonnes , ( a partir de la colonne E)
j'ai arrivé à exécuter ce code ( en modifiant le premier colonne A par E )

ce code est juste pour tester le bon remplissage de premier combobox par tout les donnees de toutes les feuilles du classeur (sans doublant bien evidemment )

lorsque j’exécute ce code , le combobox est rempli que par les données de la dernière feuille :?

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
Option Explicit
 
Dim Ws As Worksheet
Dim NbLignes As Integer
 
 
Private Sub ComboBox1_Change()

End Sub

'Les données sont dans les colonnes D à R, .
'La procédure effectue un remplissage conditionnel des Combobox en fonction de
'ce qui est sélectionnée dans le contrôle précédent:
'La sélection du ComboBox1 (données colonne E) définit le contenu du ComboBox2 (données colonne F) ,

 
Private Sub UserForm_Initialize()
    For Each Ws In Worksheets
    Ws.Activate
    'Définit le nombre de lignes dans la colonne E
    NbLignes = CStr(Ws.Range("E65536").End(xlUp).Row)

 
    'Remplissage du ComboBox1
    Alim_Combo 1
 
 Next Ws
End Sub
 
 'Procédure pour alimenter les ComboBox
Private Sub Alim_Combo(CbxIndex As Integer, Optional Cible As Variant)
    Dim j As Integer
    Dim Obj As Control
 
    'Définit le ComboBox à remplir
    Set Obj = Me.Controls("ComboBox" & CbxIndex)
    'Supprime les anciennes données
    Obj.Clear
 
    'alimente le Combobox initial (Combobox1)
    If CbxIndex = 1 Then
        'Boucle sur les lignes de la colonne E (à partir de la 2eme ligne)
        For j = 2 To NbLignes
            Obj = CStr(Ws.Range("E" & j))
            'Remplit le ComboBox sans doublons
            If Obj.ListIndex = -1 Then Obj.AddItem CStr(Ws.Range("E" & j))
        Next j
    Else
        'Alimentation conditionnelle des autres Combobox en fonction de
        'ce qui est sélectionnée dans le contrôle précédent:
        '(La sélection du ComboBox1 définit le contenu du ComboBox2,
        'La sélection du ComboBox2 définit le contenu du ComboBox3 …etc...)
        For j = 2 To NbLignes
            If Ws.Range("E" & j).Offset(0, CbxIndex - 2) = CStr(Cible) Then
                Obj = CStr(Ws.Range("E" & j).Offset(0, CbxIndex - 1))
                If Obj.ListIndex = -1 Then Obj.AddItem CStr(Ws.Range("E" & j).Offset(0, CbxIndex - 1))
            End If
        Next j
   End If
 
   'Enlève la sélection dans le ComboBox
   Obj.ListIndex = -1
End Sub

:? :? ! la boucle que j'ai ajouté porte le couleur Rouge

bonne journée

30/09/2013, 18h01
parmi

Je pense que tu devrais charger les autres combos sur l'événement Change ou Click du précédent.
C'est-à-dire, tu sélectionnes un élément du Combobox1, ce qui entraîne l'action de Change (ou Click) et là, tu charges le #2. Même chose pour les autres.

Avec le code que tu fournis, tu appelles ta Sub

Citation:

Alim_Combo 1

Et le paramètre Cible est vide.
Donc, quand tu cherches à alimenter les suivants, la condition est toujurs fausse

Code:

If Ws.Range("E" & j).Offset(0, CbxIndex - 2) = CStr(Cible) Then
30/09/2013, 18h30
Queen12

Merci bien Parmi pour votre intérêt
j'ai bien saisi ce que vous venez à dire ,
mais mon Souci : c'est que je voudrais remplir le premier combobox (qui porte le nom VILLE) par toutes les données qui appartiennent au champs Ville de mon classeur (de toutes les feuilles ) (sans doublant bien évidemment)
( mon classeur comporte environ 30 feuilles , et le champs ville existe sur toutes ces feuilles là ! )
mon problème : le combobox retient juste les villes de la dernière feuille , les données des feuilles précédente du champs ville sont écrasé , le combobox ne les a pas pris en considération , il me parait que je devrais concaténer le résultat de chaque feuille
30/09/2013, 21h03
parmi

Est-ce que tes villes sont bien toutes dans la colonne E de chaque feuille ?

Pour ton problème, dans ta Sub Alim_Combo, enlève

Citation:

Obj.Clear

et met cette partie dans Initialize plutôt
ou change ta façon de procéder...

1 pièce(s) jointe(s)

De Retour :D

Merci Parmi pour la réponse :)

Citation:

Est-ce que tes villes sont bien toutes dans la colonne E de chaque feuille ?

Oui tout à fait

Citation:

Pour ton problème, dans ta Sub Alim_Combo, enlève Obj.Clear

je l'ai essayé , et c'est bien marché :) , mais avec l'ajout des autres combobox le programme s'est complexifié (ne cesse pas à me renvoyer des messages d'erreurs)

Citation:

ou change ta façon de procéder..

j'ai essayé d'appliquer quelques modification sur mon code

(comme c'est déjà signaler auparavant, je voudrais simplifier le processus de recherche sur mon fichier excel , c'est pour cette raison j'ai procédé à la création de cette application)

les feuilles du classeur porte les noms des activités :
mon premier combobox1 'Activité' (remplie par les noms des feuilles) , elle se pointe vers la feuille sélectionné par l'utilisateur dans la liste déroulante,

Deuxième combobox2 'VILLE' : retient la liste des villes en fonction de la feuille sélectionnée (sans doublant ni champs vide)

troisième combobox3 : 'Quartier' sélectionne les quartiers correspondante au choix 2 de l'utilisateur

mon code devint :
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 67 68 69 70 71 72 73 74 75 76 77 78 Option Explicit Dim NbLignes As Integer Dim i As Integer 'Les données sont dans les colonnes D à R, . 'La procédure effectue un remplissage conditionnel des Combobox en fonction de ce qui est sélectionnée dans le contrôle précédent: Private Sub UserForm_Initialize() 'remplissage de la combobox1 par les nom des feuilles For i = 1 To Sheets.Count ComboBox1.AddItem (Sheets(i).Name) Next End Sub Private Sub ComboBox1_Change() Sheets(ComboBox1.Value).Select Range("E2").Select 'Définit le nombre de lignes dans la colonne D NbLignes = CStr(Range("D65536").End(xlUp).Row) Alim_Combo 2 End Sub Private Sub ComboBox2_Change() Sheets(ComboBox1.Value).Select NbLignes = CStr(Range("D65536").End(xlUp).Row) Alim_Combo 3, ComboBox2.Value End Sub 'Procédure pour alimenter les ComboBox Private Sub Alim_Combo(CbxIndex As Integer, Optional Cible As Variant) Dim j As Integer Dim Obj As Control 'Définit le ComboBox à remplir Set Obj = Me.Controls("ComboBox" & CbxIndex) 'Supprime les anciennes données Obj.Clear 'alimente le Combobox (Combobox2) If CbxIndex = 2 Then 'Boucle sur les lignes de la colonne E (à partir de la 2eme ligne) For j = 2 To NbLignes Obj = CStr(Range("E" & j)) If IsEmpty(Range("E" & j)) = False Then 'Remplit le ComboBox sans doublons If Obj.ListIndex = -1 Then Obj.AddItem CStr(Range("E" & j)) Else Range("E" & j).Select End If Next j Else 'Alimentation conditionnelle des autres Combobox en fonction de 'ce qui est sélectionnée dans le contrôle précédent: For j = 2 To NbLignes If Range("E" & j).Offset(0, CbxIndex - 3) = CStr(Cible) Then Obj = CStr(Range("E" & j).Offset(0, CbxIndex - 2)) If IsEmpty(Range("E" & j).Offset(0, CbxIndex - 2)) = False Then If Obj.ListIndex = -1 Then Obj.AddItem CStr(Range("E" & j).Offset(0, CbxIndex - 2)) Else Range("E" & j).Select End If End If Next j End If 'Enlève la sélection dans le ComboBox Obj.ListIndex = -1 End Sub
le programme fonctionne à merveille .. mais dans certains feuilles les combobx 'ville' et 'quartier' est rempli par des champs vide et garde les doublant :cry:

Je vous joins un exemple des données du fichier excel (sans code)

02/10/2013, 19h26
parmi
Essaie de déclarer tes variables dans chaque procédure plutôt que globalement.
Tu risques moins de rencontrer des erreurs
Code:

1 2 3 4 Option Explicit Dim NbLignes As Integer Dim i As Integer
Quand tu utilises des variables pour des lignes, utilise des Long plutôt que Integer. Un jour ou l'autre, tu travailleras avec plus de lignes qu'un Integer peut prendre et ça plantera...

Comme tu recherches une ligne, pourquoi utiliser une String ?

Code:

NbLignes = CStr(Range("D65536").End(xlUp).Row)

Il me semble qu'un chiffre est plus représentatif et facile à travailler...
Code:

1 2 3 4 5 6 Dim nbLignes as Long nbLignes = Cells(Rows.count, "D").End(xlup).row ' et là, tu peux utiliser une boucle For I = 2 to nbLignes If Range("D" & i) = "ce que tu veux" Then ...
De toutes façons, je ne vois pas comment tu peux faire une boucle For Next avec une String (?!)