Discussion :

[Raph31]

Bonjour à tous,

Quelqu'un a t-il une idée pour séparée en 3 lignes d'adresses bien distinctes une adresse postale type :

Ce que j'ai actuellement :
champ 1 : DUPONT
champ 2 : JEAN
champ 3 : 5 rue de l'hers
BAT 10
Apt 123
champ 4 : 31000
champ 5 : TOULOUSE

ce que je veux obtenir :
champ 1 : DUPONT
champ 2 : JEAN
champ 3 : 5 rue de l'hers
champ 4 : BAT 10
champ 5 : Apt 123
champ 6 : 31000
champ 7 : TOULOUSE

J'arrive bien à extraire la première ligne avec la requête suivante :

Code :

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

IIf(InStr(1,[TiersAdresse1Ligne],Chr(13))<>0,Left([TiersAdresse1Ligne],InStr(1,[TiersAdresse1Ligne],Chr(13))),[TiersAdresse1Ligne]) AS Adr1

Mais je galère comme un dingue pour la ligne d'adresse 2 et 3, si quelqu'un a une idée, elle est la bien venu.

PS : J'ai le reste de mon adresse (c'est à dire ligne 2 et ligne 3 sans la ligne 1) avec cette requête :

Code :

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

IIf(InStr(1,[TiersAdresse1Ligne],Chr(13))<>0,Mid([TiersAdresse1Ligne],InStr(1,[TiersAdresse1Ligne],Chr(13))),"")

Merci.
Raph

[Invité]

Bonjour

Cela ne m'étonne pas que tu galères comme un dingue.

Ayant travaillé sur des fichiers d'adresses de tout type dans le passé, je peux te dire que ce que tu demandes est une horreur.

Le libellé des adresses en France a une telle diversité que le fait d'établir une règle est quasiment impossible.

Les logiciels qui peuvent faire cela (qui sont trés chers) comportent une base de donnée mise à jour régulièrement qui travaillent par comparaison pour structurer une adresse.

Starec

[philben]

bonjour,

si tes lignes sont séparées par chr(13) c'est plus simple...

Il faut tout d'abord créer une fonction dans un module standard de la base :

Code :

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

1
2
3
4
5
 
Public Function CoupeAdresse(vAdr As Variant, byPart As Byte, sSep As String) As String
   On Error Resume Next
   CoupeAdresse = Split(vAdr, sSep)(byPart - 1)
End Function

ensuite, dans ta requete tu appelles la fonction.
Pour scinder l'adresse en 3 champs (en mode SQL) :

Code :

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

1
2
3
4
5
6
...
CoupeAdresse([TiersAdresse1Ligne],1,Chr(13)),
CoupeAdresse([TiersAdresse1Ligne],2,Chr(13)),
CoupeAdresse([TiersAdresse1Ligne],3,Chr(13))
...

Je me demande si le séprateur n'est pas plutôt CHR(13)&CHR(10) ?

Philippe