[VBA] fonction qui donne la valeur présente dans une table

Bonjour,je voudrais faire une fonction qui irait chercher des informations dans une table. je m'explique :
j'ai une table avec 3 champs : départ - arrivée - durée de transport
je voudrait une fonction durée (départ,arrivée) qui me donne la durée du transport en fonction des 2 pays.
comment faire ?
merci d'avance de l'aide

Bonjour et bienvenue,

Citation:

---

Envoyé par zanou666

je voudrais faire une fonction qui irait chercher des informations dans une table.

---

Intéresse toi aux RecordSet (cf. FAQ) ou aux DLookUp si tu as seulement besoin d'un enregistrement.

Citation:

---

Envoyé par zanou666

je voudrait une fonction durée (départ,arrivée) qui me donne la durée du transport en fonction des 2 pays.

---

Intéresse-toi à la fonction DateDiff().

En espérant t'aider.

En fait, les 2 phrases sont un seul problème.

j'ai essayé avec recordset, mais je n'arrive pas à paramétrer : j'arrive à avoir la valeur quand je rentre le départ et l'arrivée directement dans le code VB, mais je n'arrive pas à le transformer en fonction.

j'ai ça dans mon VB :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Function recherche()   Dim rst As DAO.Recordset Dim SQL As String Dim v As Variant   SQL = "Select * From [Délai transport] where ([pays départ]= 'France' and [pays arrivée]='France') "   'open Set rst = CurrentDb.OpenRecordset(SQL, dbOpenDynaset, dbReadOnly)     'traitement v = rst![minimum]   End Function

---

C'est sans doute un des fondamentaux ta question, une fois que tu auras saisi la logique globale tu aurais elucider pres de 70% des problemes que tu rencontrera.

Pour t'aider je fais grossierement la fonction en pseudo code (donc ne fait pas attention à la syntaxe)
Je ferais quelque chose de la forme suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Public function DuréeVol (dim P_Depart as string, dim P_Arrive as string)   dim rs as new ADODB.recordset dim sStrSql as string Dim sResultat as string   sStrSql = "SELECT DureeVol" sStrSql = sStrSql & " FROM MaTable" sStrSql = sStrSql & " WHERE PaysDepart = " & """" & P_Depart & """" & " AND PaysArrive = " & """" & P_Arrive & """"   rs.open sStrSql, CurrentDB   sResultat = rs("DureeVol") ' dans le cas ou tu ai une seule reponse pour le couple donné, sinon tu devras faire une boucle tant que avec comme condition de sorti EOF -End Of File-   ' tu liberes la memoire rs.close set rs = nothing   end function

---

Voila voila, alors c'est dans les grandes lignes, faut qeu tu affines (enormement) le code.

Remarque :
zanou666 a utilisé DAO, le code que tu (userB) lui présentes utilise ADO.
Il travaille sur une base Access donc mieux vaut utiliser DAO.

Pour savoir comment parcourir avec un RecordSet avec DAO, la réponse est également dans la FAQ. (Tu as d'ailleurs un tutoriel dans la page des tuto, sur DAO et ADO)

Sinon tu peux tout à fait utiliser ADO comme te le suggère userB.

Voilà le code que j'utilise, mais lorsque je calcule la valeur pour 2 pays, la réponse est #nom? :cry:. j'ai vérifié, le nom des tables, champs mais tout est correct. d'où est-ce que ça peut venir ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public Function DuréeTransport(P_Depart As String, P_Arrive As String)   Dim rs As New ADODB.Recordset Dim sStrSQL As String Dim sResultat As String   sStrSQL = "SELECT [minimum]" sStrSQL = sStrSQL & " FROM [Délai transport]" sStrSQL = sStrSQL & " WHERE [pays départ] = " & """" & P_Depart & """" & " AND [pays arrivée] = " & """"" & P_Arrive & """""   rs.Open sStrSQL, CurrentDb   sResultat = rs(minimum)   rs.Close Set rs = Nothing   End Function

---

Essaie peut-être le tutoriel de debuggage de requêtes SQL écrites en VBA que tu trouveras dans ma signature.

En espérant t'aider.

le problème vient de la ligne de SQL. quand je mets un Debug.print sur le SQL, j'obtiens cela :

SELECT [minimum] FROM [Délai transport] WHERE [pays départ] = "" AND [pays arrivée] = "" & P_Arrive & ""

Il ne prend pas en compte les valeurs que je lui donne quand j'appelle la fonction : Result = DuréeTransport(France, France)