Macro faisant <=> de SQL select X,Y,Z FROM Feuille1

Version imprimable

15/12/2007, 00h18
domikou

Macro faisant <=> de SQL select X,Y,Z FROM Feuille1

Bjr,

Je ne connais pas Excel et souhaite remplir la feuille2 de mon fichier Excel en faisant l'équivalent d'une commande SQL:

Code:

SELECT B,F,G FROM Feuille1 WHERE B=VALEUR_INTEGER

Le but de cette commande est de remplir automatiquement ma feuille2.

Je pense qu'il faut utiliser une macro mais laquelle ?
Est-il possible de travailler directement avec une commande SQL qui lit ma feuille1 et renvoie le résultat sur la feuille 2.

Par avance Merci.
domikou
15/12/2007, 03h18
Invité

Bonjour et bienvenue sur DVP.

Dans cet article de Silkyroad (ici), tu trouveras quelques astuces pour faire du SQL dans Excel.

De plus dans la partie contribution du forum Excel, tu trouveras des exemples de requêtes SQL faits par Cafeine.

Starec
15/12/2007, 08h58
Michel_M

Bonjour,

Tu ne peux pas employer du SQL pour des feuilles source et cible dans le m^me classeur. Il faut des classeurs différents et que le classeur source reste fermé: tu peux alors utiliser l'assistant MS QUERY ou la technologie ADO (lien donné par starec).

On peut résoudre ton problème par formules Excel pas forcément évidentes(j'ai répondu à un pb similaire dans la partie excel du forum mais je ne sais plus quand)
edit:
http://www.developpez.net/forums/sho...d.php?t=450036

On peut le résoudre aussi par VBA...

Mais tu nous dit que tu ne connais pas excel: tu auras donc un truc qu'il te faudra adapter à ton pb...

Dans l'attente
15/12/2007, 09h04
Invité

Citation:

Envoyé par Michel_M

Bonjour,

Tu ne peux pas employer du SQL pour des feuilles source et cible dans le m^me classeur. Il faut des classeurs différents et que le classeur source reste fermé: tu peux alors utiliser l'assistant MS QUERY ou la technologie ADO (lien donné par starec).

Faux, je l'ai fait il y a 6 mois pour une appli, j'utilisais les méthodes de Silkyroad et le tout dans la même feuille, et cela fonctionnait parfaitement.
Il faut seulement que le fichier soit bien structuré comme des tables Access.

Starec

Copie sélective des lignes entre 2 feuilles Excel via Macro

Bjr et Merci pour vos réponses.
J'ai écrit une macro (Ma première macro). Elle fait le travail attendu.
Je la livre pour information et autres débutants.
Cordialement.
domikou

Attribute VB_Name = "Module1"

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
Sub Macro1()
 
' Variables nom des feuilles à changer
NomFeuilleSource = "Feuil1"
NomFeuilleCible = "Feuil2"
' Variables
NuméroColonneAEvaluer = 2
ValeurATester = 10
 
'''''''''''''''''''''''''''''''''''''''''''''''''
'Macro 
MsgBox "Macro: début de programme."
 
'Sheets("NomDeLaFeuille").Select
Sheets(NomFeuilleSource).Select
MsgBox "La feuille source est : " & NomFeuilleSource & Chr$(13) & "La feuille cible est : " _
& NomFeuilleCible & Chr$(13)
 
'Initialisation des Variables
iNombreLigneCopiees = 0
NumCol = 1
'Selection d 'une cellule
Range("A1").Select
'Parcour de toutes les lignes de la feuille source
iLigne = 1
Sheets(NomFeuilleSource).Select
While Not Range("A" & iLigne & "").Value = ""
 
    ' Si la colonne a evaluer sur cette ligne remplie les conditions
    ' Alors on copie la ligne
    If (Sheets(NomFeuilleSource).Cells(iLigne, NuméroColonneAEvaluer) > ValeurATester) Then
        MsgBox "Une ligne est sélectionnée pour la copie"
        'Parcour de toutes les colonnes de cette ligne
        iColonne = 1
        While Sheets(NomFeuilleSource).Cells(iLigne, iColonne) <> ""
        Sheets(NomFeuilleCible).Cells(iNombreLigneCopiees + 1, iColonne) = Sheets(NomFeuilleSource).Cells(iLigne, iColonne)
        iColonne = iColonne + 1
        Wend
        ' Mise a jour de la quantite des lignes copiees
        iNombreLigneCopiees = iNombreLigneCopiees + 1
    End If
 
 
iLigne = iLigne + 1
Wend
 
'Macro for dummies
MsgBox "Macro: fin de programme."
 
End Sub