Le portail francophone de la géomatique

attendez attendez, je crois qu'il va y avoir d'autres petits soucis...

Dernière modification par luern (Fri 20 February 2009 12:21)

Bonjour!!!

Alors la suite...

Je vous explique ce qu'il reste à faire. Tout d'abord, remplir le champ N°_Voie.
ex: 15, rue du Général De Gaulle -->   15
En réalité, je viens de le faire avec Left ( [Adresse_installation1],2  ) et avec N°_Voie en Entier court (comme ça, on extrait que les valeurs numériques).

Ensuite, remplir le champ Adresse
ex: 15, rue du Général De Gaulle --> du Général De Gaulle
Je pense qu'il serait plus simple de supprimer dans le champ d'origine les N° et les Type_voies et les , .


Et enfin effacer le champ adresse d'origine.

Il reste aussi le problème des lieux-dits. Dois-je mettre dans le champ [Type_Voie] pour tous les autres valeurs non-comprise dans le script, la valeur lieux-dits?

Voilà
Bon début de semaine à tous!!

Magie des SIG, plusieurs solutions possibles.
J'attends vos conseils pour le reste
merci

En fait, il faudrait mettre une valeur par défaut pour tous les champs qui sont restés vides après le traitement sur les Type_voie. Cette valeur serait Lieux-dits.

Et reste à nettoyer le champ adresse pour ne laisser que l'adresse brut(sans N°voie et Type_voie)?

Et l'extraction du N°_voie de convient pas...on a des bis, des ter donc il faudrait pouvoir extraire ces informations en plus.

Dernière modification par luern (Mon 23 February 2009 11:06)

Ca marche sauf que ça m'efface les N° qui étaient présents.

En fait, la démarche à suivre est la suivante:

1/
-création d'un champ N°_voie -->format texte
-création d'un champ Numero_voie --> format numérique

2/
Remplissage du champ Numero_voie avec la fonction Left()

3/
Exécution du script:

Code:

Dim First as string
Dim a as string

First=[Adresse_installation1]

If First like "* TER *" then
a = [Numero_voie]&"TER"
Elseif First like "* BIS *" then
a = [Numero_voie]&"BIS"
End if

placer dans Type_voie=  ----> a

4/
??? Il faudrait reporter les informations Numero_voie dans N°_voie mais sans enlever les informations des BIS et TER. Rajouter une ligne dans le script suivant comme:

Elseif First like "" then
a = [Numero_voie]

mais cette condition fait buguer le script...

Désolé ça ne marche pas...
Peut être que ma méthode est mauvaise, on peut peut être extraire les informations sans créer 2 champs

Bonjour,

Verifie bien que type de voie est bien en type "carctère"
Le code suivant ressemble à celui de Spacejo, essaie-le

As-tu un message d'erreur?

Et ceci ?

arf, non ca marche pas mais le premier script marché:

Dim First as string
Dim a as string

First=[Adresse_installation1]

If First like "* TER *" then
a = [Numero_voie] &"TER"
Elseif First like "* BIS *" then
a = [Numero_voie] &"BIS"
End if


Sauf qu'il faudrait récupérer les valeurs du champ [Numero_voie] dans [N°_voie] sans écraser les valeurs trouvées par le script ci-dessus.

Il me semble qu'il faut placer le "NOT" avant first :

Par contre, il peut y avoir un problème avec le "and". Essaie une fois sans le "and not First like "* BIS *" pour voir si cela marche.

Dernière modification par ppluvinet (Mon 23 February 2009 16:56)

Re,

le "AND" est impératif ------> C'est l'erreur que j'ai fait avant. ---> Si il n'y a pas "Ter" OU si il n'y a pas" Bis" alors mettre le N° de rue
Ce qui n'est pas bon
Ce qu'il faut c'est ----->Si il n'y a pas "Ter" ET si il n'y a pas "Bis" alors mettre N° de rue
La fonction "not like"  est à utiliser
Ou je me gourre complètement

Dernière modification par Spacejo (Mon 23 February 2009 17:15)

En dernière condition, le plus simple est de mettre simplement "Else".

Sinon, on peut toujours faire en deux étapes. Puisqu'apparemment les deux étapes fonctionnent bien séparemment et que le seul problème est que la dernière étape n'annule pas l'avant-dernière, il faut juste sélectionner les éléments qui n'ont pas été mis à jour, alors la formule ne s'applique que sur la sélection.

cala revient au même que mon post de 15:09, non?

Je suis désolé mais aucun ne marche. J'ai tout essayé.

J'ai essayé en enlevant la première moitié et en la rajoutant après sur (comme ppluvinet):

ElseIf not First  like "* TER *" and not First like "* BIS *" then
a= [Numero_voie]

mais ça ne marche pas.

Jy suis arrivé quand même en deux étapes. La première avec la partie du script qui fonctionne:

Dim First as string
Dim a as string

First=[Adresse_installation1]

If First like "* TER *" then
a = [Numero_voie] &"TER"
Elseif First like "* BIS *" then
a = [Numero_voie] &"BIS"
End if


Ensuite j'ai réalisé une sélection sur les éléments non remplis et j'ai calculer les valeurs en faisant:

[Numero_voie]=[N°voie]

Reste un dernier problème...extraire le reste de l'adresse:

15 rue des champs Elysée extraire "des champs Elysée"

Autre mise au point, je souhaiterai faire une modification pour les types de voie. En effet, mon remplissage doit suivre la nomenclature suivante:

15 rue des champs Elysée --> [Type_voie]= rue des
route de la Roche --> [Type_voie]= route de

Seulement, quand je rajoute des Elseif selon

If First like "*RUE*" then
a="RUE"
If First like "*RUE DES*" then
a="RUE DES"

J'ai un message d'erreur VBA, j'ai l'impression qu'il n'accepte pas les petites différences car si j'enlève le "RUE" simple, "RUE DES" fonctionne très bien...

Dernière modification par luern (Tue 24 February 2009 09:44)

pffff...merci SpaceJo
erreur de copier/coller

Ca c'est réglé...
tu vois comment on pourrait extraire le reste de l'adresse?