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