Discussion :

[cati_78]

Bonjour,

Je rencontre des difficultés sur le point suivant :

Ma requête sql en vba (EXCEL) interroge une table sur ACCESS.

Je souhaite intégrer dans cette requête une liste de valeurs contenues dans un tableau.


En fait, l'utilisateur saisie les valeurs du code postal qu'il souhaite via inputbox.

L'ensemble des données sont stockées dans un tableau.

Je ne sais pas comment modifier la requête de telle façon à obtenir :

... where codepostal = tab(0) OR codepostal = tab(1) ... codepostal = tab(nombre_valeur_saisie-1)

Merci d'avance pour votre aide.

[JackOuYA]

Bonjour,

une petite boucle

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
 
Dim yaRequete As String
Dim i As Integer
 
'------------------- Intialisation tableau
Dim yaTb(2) As String
yaTb(0) = "76015"
yaTb(1) = "85012"
yaTb(2) = "9600"
'-------------------------------
 
 
yaRequete = "where codepostal = '" & yaTb(0) & "'"
For i = 1 To UBound(yaTb)
  yaRequete = yaRequete & " OR codepostal = '" & yaTb(i) & "'"
Next
MsgBox yaRequete

[cafeine]

Hello,
plus simple que les OR enchaînés, utilise plutôt une instruction IN (... , ... , ...)
un exemple

Code :

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

1
2
3
4
5
6
7
sIn = "IN ("
for each c in range("Plage de Codes postaux").Cells
   sIn = sIn & """" & c.value & """, "
next c
sIn = Left(sIn, Len(sIn) - 3) & ")"
 
sSql = sSql & " WHERE CodePostal " & sIn

La réponse précédente étant valide, je t'ai mis un exemple pour un tableau dans une feuille de calcul.

[Maxence HUBICHE]

ou même sans boucle, en utilisant la fonction qui va bien : Join, et les bons outils SQL, comme le IN

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CeciEstUnTest()
'-----------------------------    
'Création de la variable tableau et remplissage
Dim sTab(5) As String
    sTab(0) = "toto"
    sTab(1) = "titi"
    sTab(2) = "tutu"
    sTab(3) = "tyty"
    sTab(4) = "tete"
    sTab(5) = "tata"
'-----------------------------        
    Debug.Print "WHERE CodePostal IN('" & Join(sTab, "','") & "')"
End Sub

[EDIT]Désolé cafeine ! J'avais pas vu ton intervention sur le IN avant de poster[/EDIT]

[cati_78]

Merci pour les conseils. Je vous tiendrai au courant de l'évolution.

[cati_78]

Bonjour,

Dans le cas d'un département (ex : 78 ou 95) impliquant de rechercher l'ensemble des codes postal commençant par les 2 chiffres du département, comment le programme évolue-t-il ?

Merci pour votre aide.

[JackOuYA]

Tu reviens sur ma version avec des OR et tu remplace des OR par des Like.