Realiser index rues

[natacha]

Bonjour à tous,
voila je souhaiterais réaliser un index des rues.
Actuellement j'ai un fichier excel avec l'ensemble de mes rues ex: Route de Genas, Rue du Dauphiné, Avenue Felix Faure...
et j'aimerais crée un colonne du type: genas (route de), Dauphiné (rue du), Faure( avenue Felix)...
je sais pas si je suis tres claire?
Merci d'avance pour vos suggestions.

 

[Tibo]

Re : Realiser index rues

Bonjour Natacha,

Problème pas facile à résoudre en automatique par Excel.

En effet, Excel va avoir du mal à faire tout seul la distinction sur le nom propre.

Une solution :

En colonne A : tes rues
En colonne B : indiquer le rang du mot clé (pour Route de Genas : indiquer 3 : rang du mot Genas)
En colonne C : cette formule :

=STXT(A1;TROUVE("µ";SUBSTITUE(A1;" ";"µ";B1))+1;99)&" ("&
GAUCHE(A1;TROUVE("µ";SUBSTITUE(A1;" ";"µ";B1))-1)&")"

Formule à recopier vers le bas

En espérant que tu n'aies pas trop de rues

@+

 

[natacha]

Re : Realiser index rues

Merci tibo je ne comprends pas le "u", ça correspond à quoi?
Pour info j'ai 2 000 rues à faire!!!.
C'est pas gagné.
Mais bon j'aimerais quand même bien comprendre ta formule.
Merci d'avance

 

[michel_m]

Re : Realiser index rues

Bonsoir Natacha, Tibo

2000 lignes ca fait beaucoup aussi je propose cette solution par VBA à adapter à la colonne réelle et à la ligne de la 1° occurence

Function indexer(rue As Range) As String
Dim tablo() As String
dim cptr as Byte

tablo() = Split(rue, " ")

For cptr = 0 To UBound(tablo) - 1
indexer = indexer & tablo(cptr) & " "
Next

indexer = tablo(UBound(tablo)) & " (" & indexer & ")"

End Function




Sub remplacer()
Dim derlig As Long, cptr as Long

'les rues à traiter sont en colonne A
derlig = Range("A65536").End(xlUp).Row
Application.ScreenUpdating = False

'on commence à la ligne 2
For cptr = 2 To derlig
Cells(cptr, 2) = indexer(Cells(cptr, 1))
Next

End Sub

Bon WE

 

[Denis132]

Re : Realiser index rues

Bonjour Natacha, Tibo, Michel_m,

Encore une autre façon avec des formules.

À tester

Denis

 

[natacha]

Re : Realiser index rues

Merci à tous ça fonctionne.
Encore merci.
Bon week end à vous.