Discussion :

[cocoboss]

Bonjour,

j'ai le problème suivant : je dispose d'un fichier excel avec une colonne qui contient des adresses (genre "3 rue des plantes" ou 12 bis rue St Martin")

je souhaite décomposer chaque cellule pour récupérer le n° de rue (ici "3" ou "12") afin de le copier dans une nouvelle cellule.

Puis je souhaite copier le reste de l'adresse ("rue des plantes" ou "bis rue St Martin") dans une autre cellule.

Comme ca je décompose l'adresse.
L'ideal serait également mais la ca me semble impossible qu'un test soit fait pour vérifier si il y a une mention "bis" ou "ter" ou "quater" afin de le copier aussi dans une cellule à part.

Merci de vos lumières.

[cafeine]

Hello,

on peut tout faire avec des chaînes avec pas mal d'effort, il y a cependant des outils spécialisés pour ça : les expressions regulières.

un ptit coup d'oeil sur mon tutoriel :
http://cafeine.developpez.com/access/tutoriel/regexp/

et deux exemples :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
allregexp "12 bis rue saint martin","(\d+)\s(bis|ter|quater)?(.*)", _
           "numéro : $1" & vbcrlf & "bis/ter : $2" & vbcrlf & "voie : $3"
==================================
      Travaux liés à .Execute
==================================
nombre d'occurences : 1
source >>     12 bis rue saint martin
[$1]          12
[$2]          bis
[$3]           rue saint martin
==================================
        Travaux liés à .Test
==================================
Vrai
==================================
      Travaux liés à .Replace
==================================
numéro : 12
bis/ter : bis
voie :  rue saint martin

et

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
allregexp "3 rue des plantes","(\d+)\s(bis|ter|quater)?(.*)", _
           "numéro : $1" & vbcrlf & "bis/ter : $2" & vbcrlf & "voie : $3"
==================================
      Travaux liés à .Execute
==================================
nombre d'occurences : 1
source >>     3 rue des plantes
[$1]          3
[$2]          
[$3]          rue des plantes
==================================
        Travaux liés à .Test
==================================
Vrai
==================================
      Travaux liés à .Replace
==================================
numéro : 3
bis/ter : 
voie : rue des plantes

[cafeine]

cf le fichier joint

[cocoboss]

Merci bcp pour vos réponses. Je teste ca demain matin et vous tiens au courant.

[ouskel'n'or]

Coucou Cafeine, j'ai une question :
VBscript est-il installé avec Office ou avec VB... ou les deux ? J'ai les deux si bien que je n'en sais rien.
Merci de ta réponse .

[SilkyRoad]

bonjour

Une solution par formule, si la chaîne est en A1:

En B1 tu saisies

Code :

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

=GAUCHE(A1;CHERCHE(" ";A1;1)-1)

En C1

Code :

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

=SI(OU(GAUCHE(STXT(A1;NBCAR(B1)+2;NBCAR(A1));CHERCHE(" ";STXT(A1;NBCAR(B1)+2;NBCAR(A1));1)-1)="BIS";GAUCHE(STXT(A1;NBCAR(B1)+2;NBCAR(A1));CHERCHE(" ";STXT(A1;NBCAR(B1)+2;NBCAR(A1));1)-1)="TER");GAUCHE(STXT(A1;NBCAR(B1)+2;NBCAR(A1));CHERCHE(" ";STXT(A1;NBCAR(B1)+2;NBCAR(A1));1)-1);STXT(A1;NBCAR(B1)+2;NBCAR(A1)))

En D1

Code :

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

=SI(OU(C1="BIS";C1="TER");DROITE(A1;NBCAR(A1)-NBCAR(B1)-NBCAR(C1)-2);"")

bonne journée
michel

[cafeine]

Je t'avoue que j'ignore avec quoi est installé MS VBscript Regular Expressions ...

Coucou Cafeine, j'ai une question :
VBscript est-il installé avec Office ou avec VB... ou les deux ? J'ai les deux si bien que je n'en sais rien.
Merci de ta réponse .

[mordrhim]

on va essayer quelque chose

en supposant que les adresses completes soient dans la cellule A

tu peux faire comme ceci .. (pas de gestion d'erreurs)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub separerardresse()
 
    For i = 1 To Range("A65536").End(xlUp).Row ' parcours la colonne A
        taAdresse = Split(Range("A" & i), " ")
        Range("A" & i) = taAdresse(0)
        If UCase(taAdresse(1)) = "BIS" Then MsgBox ("Un bis trouvé ligne " & i)
        If UCase(taAdresse(1)) = "TER" Then MsgBox ("Un ter trouvé ligne " & i)
        AutreAdresse = ""
        For k = 1 To UBound(taAdresse)
            AutreAdresse = AutreAdresse & " " & taAdresse(k)
        Next
        AutreAdresse = Trim(AutreAdresse)
        Range("B" & i) = AutreAdresse
    Next
End Sub

plantera dans le cas ou ton adresse n'est formée que d'un mot ou commence par une lettre ^^