Discussion :

[Bichette001]

Je revois ma proposition qui traite seulement les adresses de type Nombre Texte

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Scinder()
Dim i As Long
Dim Adr As String
Application.ScreenUpdating = False
With Sheets("Feuil1")
    For i = 2 To .Cells(Rows.Count, 6).End(xlUp).Row
        Adr = .Cells(i, 6).Value
        If Len(CStr(Val(Adr))) < Len(Adr) Then
            .Cells(i, 6).Value = Val(Adr)
            .Cells(i, 7) = Trim(Mid(Adr, Len(CStr(Val(Adr))) + 1))
        End If
    Next i
End With
End Sub

Bonjour
ce message date de 2008 !mais au cas ou tu reçois encore les messages
j'aurais besoin de ton expertise car mon pb est inverse
j'ai un fichier excel avec 10000 adresses et l'adrresse est à l'envers ex : rue du 8 mai 1945 25bis ou encore bd leclerc 1545 bp 56 89
comment modifier ta macro pour séparer le numéro la rue et si il y a une BP la séparer aussi si cela n'est pas possible au moins séparer la rue et le numéro
j'ai espoir d'avoir écho sur ce vieux message
j'ai travaillé 3h sur ce fichier en vain ...
merci beaucoup par avance
Sandrine

[unparia]

Bonjour Bichette001
Outre le fait que ta question est autre (carrément l'inverse, comme tu le dis toi-même) que celle ayant donné lieu à l'ouverture de la présente discussion :
Je crains que ta difficulté soit sans solution, dès lors qu'il n'est pas possible de distinguer avec assurance ce qui fait ou non partie du nom de la rue.

[patricktoulon]

Bonjour
le soucis avec ca c'est que il y a une partie du probleme qui esinsoluble par excel car exel ne devine pas tes intentions

exemple tu a

rue du 8 mai 1945 25bis

tu pourrais avoir

Code :

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

bd leclerc 1545 bp 56 89

ou encore

Code :

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

25bis rue du 8 mai 1945

ou encore

1545 bd leclerc bp 56 89

le principe d'automatisation pour la séparation s'appuie sur une méthode
et la nous en avons déjà 4
dans cette mesure il est donc impossible de concevoir un algorytme qui pourrait faire le boulot pour toutes les possibilités
a mediter

[Marc-L]

Bonjour !

j'ai un fichier excel avec 10000 adresses et l'adrresse est à l'envers ex : rue du 8 mai 1945 25bis ou encore bd leclerc 1545 bp 56 89

Ce serait possible dans une nouvelle discussion après avoir posté au moins l'ébauche d'un nouveau code
- car il est vain de modifier un code dont la logique n'est pas en rapport sauf si on aime les usines à gaz ! -
si, et seulement si, les données ont été saisies avec un peu de jugeote !     A savoir :
• la boîte postale toujours qualifiée par une chaine invariable de caractères comme par exemple "bp"
   et toujours située après le numéro de rue;
• le numéro de rue et sa subdivision comme "bis" par exemple en un seul bloc sans espace …
  (En y réfléchissant cinq minutes en chauffant une paire de neurones, tu pourrais contourner ce problème de l'espace !)

Sinon sans code il suffit d'insérer manuellement un séparateur dans chaque ligne entre chaque partie à séparer
puis d'utiliser la fonctionnalité d'Excel Convertir …

Et faut-il encore rappeler il est si simple de remonter à la source et de demander une extraction digne de ce nom ‼

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …