Trouver valeur proche

Bonjour à tous,

J'ai 2 tables dans ma base de données :

Table1
CompteClients | Libellé | Montant
101100 | blabla | 65000
101180 | blabla | -65000
101200 | blabla | 65000
104000 | blabla | -54000
104120 | blabla | 26000
106200 | blabla | -30000
106180 | blabla | 25000
106800 | blabla | -41258
...

Table2
CompteClients | Libellé1
101000 | A
104000 | B
106000 | C
106100 | D
106200 | E
106300 | F
106800 | G
...

J'aimerai savoir comment regrouper dans une 3e table :

CompteClients | Libellé | Montant | Libellé1
101100 | blabla | 65000 | A
101180 | blabla | -65000 | A
101200 | blabla | 65000 | A
104000 | blabla | -54000 | B
104120 | blabla | 26000 | B
106200 | blabla | -30000 | E
106180 | blabla | 25000 | D
106800 | blabla | -41258 | G
...

Dans ma table2, je n'ai pas forcément les ComptesClients de la table1. Dans ce cas, comment avoir une valeur approchée comme dans l'exemple ? simplement ?

J'espère que j'ai été clair. Si non, alors demandez moi des précisions, j'essaierai d'être plus clair...

D'avance merci,

Souri84

Bonjour,

Une suggestion : créer une fonction publique get_libelle(compte) qui va chercher (en VBA) le libelle le plus adapté

Ensuite c'est tout simple :

Code:

---

select *, get_libelle(compte) from table1

---

salut,
autre approche sous SQL :
- passer par le delta Table1.CompteClient - Table2.CompteClient
- effectuer un filter MIN() sur le rendu
- en déduire le libellé
- compléter le reste de la requête en conséquence

Merci déjà pour vos réponses rapides.

Vos 2 solutions m'intéressent mais dans ce cas, j'ai des questions :


Le VBA Access est-il différent du VBA Excel (d'habitude, je suis sur Excel mais pour l'occasion, mes tables étant trop importantes, je me suis dit qu'Access serait plus approprié...)
Comment créé t'on une fonction publique ? avez vous des tutoriaux (je n'ai pas encore regardé sur le site... :zoubi:)

Pour la seconde solution, Pourriez vous détailler un peu plus car je n'ai pas trop compris (désolé, je ne connais pas trop Access...)

Encore merci,

Souri84

un peu de lecture ici :
http://heureuxoli.developpez.com/office/word/vba-all/

avec cela tu devrais déjà bien avancer:)

Bonjour,

Une fonction publique se place dans un module. Dans ton cas elle serait qqch comme :

Code:

---

1 2 3 4 5 6 7 8 9

Public Function get_libelle(s) Dim rst As DAO.Recordset get_libelle = "" if not isnull(s) then Set rst = CurrentDb.OpenRecordset("SELECT libelle FROM Table2 WHERE CompteClient<='" & s & "' order by CompteClient desc;") If Not rst.EOF Then get_libelle = rst!libelle rst.Close end if End Function

---

Attention c'est une méthode qui n'est pas optimum en temps de réponse donc pas adaptée sur de grosses tables ou des requêtes qui remontent bcp de lignes :(

Edit : fonction corrigée :oops:

La fonction ci-dessus est fausse.

Si le test IF n'est pas validé, le rst.close génrera une erreur sur Objet non défini :roll:

sans code avec 3 requetes imbriquées

la première R1 : rassemble toutes les données

Code:

---

1 2 3 4

SELECT Table1.COmpteClients, Table1.libelle, Table1.montant, Table2.CompteClients, Abs(First(Abs([table1]![COmpteClients])-Abs([table2]![CompteClients]))) AS Expr1, Table2.libelle1 FROM Table1, Table2 GROUP BY Table1.COmpteClients, Table1.libelle, Table1.montant, Table2.CompteClients, Table2.libelle1;

---

la deuxieme R2 : calcule le plus petit ecart

Code:

---

1 2 3 4 5

SELECT R1.Table1.CompteClients, Min(Abs([Expr1])) AS Expr2 FROM R1 GROUP BY R1.Table1.CompteClients ORDER BY R1.Table1.CompteClients, Min(Abs([Expr1]));

---

la troisieme R3 : lie le + petit écart (R2) à l'enregistrement qui le mérite (R1)

Code:

---

1 2 3

SELECT R1.Table1.CompteClients, R1.libelle, R1.montant, R1.libelle1 FROM R1 INNER JOIN R2 ON (R1.Table1.CompteClients = R2.CompteClients) AND (R1.Expr1 = R2.Expr2);

---

ce qui donne

CompteClients libelle montant libelle1
101100 blabla 65000 A
101180 blabla -65000 A
101200 blabla 65000 A
104000 blabla -54000 B
104120 blabla 26000 B
106180 blabla 25000 E
106200 blabla -30000 E
106800 blabla -41258 G

la 7ème ligne sort E car le plus petit ecart entre 106180 et 106200 est 20

Excusez moi pour la réponse tardive... je vais étudier tout ça !!

Merci pour vos réponses et la réactivité de ces forums !!

La réponse de Nico84 me conviendrait bien je pense, d'après ce que je comprends du VBA. Par contre, j'ai une erreur et comme je ne comprends pas encore très bien le VBA Access... j'ai une erreur d'execution 3265. Sur microsoft, ils disent que c'est dû aux ActiveX Object Data... Mais là, c'est un peu trop compliqué pour moi...

Pour la méthode de helas, elle pourrait fonctionner sauf que :
Ce n'est pas le plus petit écart qu'il me faut, c'est le compte juste en dessous.
Un exemple bidon :
Si mon compte = 168000 et que celui-ci n'existe pas, il ne doit pas aller dans le regroupement supérieur comme dans ton exemple mais bien dans le code de regroupement inférieur.

Pour plus de clarté, voici mon petit fichier anonymisé et où j'ai laissé un exemple bidon de mes 3 tables. J'ai oté les formulaires, les requêtes déjà existantes et tout et tout, afin que vous puissiez m'aider plus facilement...

Fichier ici

Je sais que j'en demande beaucoup mais cela me faciliterai la vie car là Excel atteint ces limites pour cette petite application...

Bonsoir,

Pour que ça marche il doit falloir cocher une ou 2 références dans les outils VBA, soit microsoft DAO xx object library soit microsoft activx data objects ...

Salut,

Merci pour ta réponse, même si je commence à retraiter mes bases sur Excel (laisse tomber comment ça rame...) j'aimerai avoir la solution de ce petit problème. Mes références cochées ont l'air bonne, j'ai l'air d'avoir celles qu'il faut :

http://www.excel-newbies.fr/ReferencesAccess.PNG

Dis moi ce que tu en penses...

A+

Bof :roll:

J'en ai un peu plus et pas dans le même ordre mais je ne pense pas que ça vienne de là...

Vérifie bien le nom des champs ou voici une autre syntaxe :

Code:

---

1 2 3

Public Function get_libelle(s) get_libelle = DMax("CompteClients", "Table2", "CompteClients<='" & s & "'") End Function

---

Dans les 2 cas j'ai supposé que CompteClients est une string ;)

dans le cas où c'est le nombre inferieur qui est pris R1 devient

Code:

---

1 2

SELECT Table1.COmpteClients, Table1.libelle, Table1.montant, Table2.CompteClients, First([table1]![COmpteClients]-[table2]![CompteClients]) AS Expr1, Table2.libelle1 FROM Table1, Table2 GROUP BY Table1.COmpteClients, Table1.libelle, Table1.montant, Table2.CompteClients, Table2.libelle1 HAVING (((First([table1]![COmpteClients]-[table2]![CompteClients]))>=0));

---

et ainsi le résultat correspond

Merci tous les 2 pour vos réponses,

Je regarde cela à 14h et je vous dis quoi !

Encore merci !!

Merci !!!
C'est bon... j'ai enfin réussi à remplir ma table... grâce à Hélas... désolé Nico84, je me suis plus penché sur les requêtes cette fois... et ça fonctionne du tonnerre...

Encore merci !!!!

Souri84