Séparer le N° de rue du nom de la rue

Question

J'ai un problème sur les adresses postales dont le n° de rue et le nom de la rue sont dans une même cellule. Mon intention est de mettre le n° de rue dans une colonne et le nom de rue dans une autre colonne. J'ai évidemment cherché la solution sur internet et trouvé une fonction vba qui isole les N° de rue (fonction TrouveChiffres) mais pas le nom de rue. Comme il s'agit d'une base de données de plusieurs milliers de lignes, je fais appel à votre aide. En espérant recevoir un accueil favorable Et en vous remerciant par avance Bonne soirée...

Moé Kolisse · Answer

Avez-vous essayer avec la fonction Convertir ? Sinon, joignez un fichier. Au Plaisir Jean...

belkacem64 · Answer

Pouvez-vous envoyer un exemple Est ce que toutes les données écrites de la même manière Supposons que les noms et les adresses sont dans la première colonne (A) Comme ce la Rimbaut1 Rue N° 1 quartier A Bâtiment B 1 Rimbaut1 Rue N° 2 quartier B Bâtiment B 2 Rimbaut1 Rue N° 1 quartier C Bâtiment B 2 Rimbaut1 Rue N° 35 quartier AA Bâtiment B 4 Rimbaut1 Rue N° 10 quartier AB Bâtiment B 5 Rimbaut1 Rue N° 20 quartier A Bâtiment B 6 Rimbaut1 Rue N° 30 quartier A Bâtiment B 7 Rimbaut1 Rue N° 2 quartier A Bâtiment B 8 Rimbaut1 Rue N° 25 quartier A Bâtiment B 9 Rimbaut1 Rue N° 5 quartier A Bâtiment B 10 Rimbaut1 Rue N° 5 quartier A Bâtiment B 11 Rimbaut1 Rue N° 5 quartier A Bâtiment B 12 Rimbaut1 Rue N° 5 quartier A Bâtiment B 13 Rimbaut1 Rue N° 5 quartier A Bâtiment B 14 Rimbaut1 Rue N° 5 quartier A Bâtiment B 15 Rimbaut1 Rue N° 5 quartier A Bâtiment B 16 Rimbaut1 Rue N° 5 quartier A Bâtiment B 17 Rimbaut1 Rue N° 5 quartier A Bâtiment B 18 Rimbaut1 Rue N° 5 quartier A Bâtiment B 19 Rimbaut1 Rue N° 5 quartier A Bâtiment B 20 Rimbaut1 Rue N° 5 quartier A Bâtiment B 21 Rimbaut1 Rue N° 5 quartier A Bâtiment B 22 Rimbaut1 Rue N° 5 quartier A Bâtiment B 23 Rimbaut1 Rue N° 5 quartier A Bâtiment B 24 Nous voulons déplacer les noms à la colonne D , et les adresses à la colonne E Nous utilisons une macro comme ceci Sub Distribution_Noms() Dim Arr, Temp, I As Long, P As Long, M As Integer Application.ScreenUpdating = False Arr = Range("A1").CurrentRegion.Value ReDim Temp(UBound(Arr, 1), UBound(Arr, 2)) For I = LBound(Arr, 1) To UBound(Arr, 1) M = WorksheetFunction.Find("Rue", Arr(I, 1)) If M Then Temp(P, 0) = Left(Arr(I, 1), M - 1) Temp(P, 1) = Mid(Arr(I, 1), M, Len(Arr(I, 1))) P = P + 1 End If Next Range("d1").Resize(UBound(Temp, 1), UBound(Temp, 2) + 1).Value = Temp Application.ScreenUpdating = True End Sub Le code est basé sur le mot : Rue...