Microsoft 365 EXTRAIRE TEXTE DANS CHAINE

[Dann]

Bonjour,

Est-ce qu'il serait possible d'extraire depuis une chaine adresse et séparer le CPOSTAL / LA VILLE / LE PAYS ?
Ci joint une exemple de texte
Merci d'avance
Dann

 

[kiki29]

Salut, rustique, à affiner

Option Explicit

Sub tst()
Dim i As Long, j As Long
Dim s As String, Ar() As String
    For i = 2 To 23
        s = Feuil1.Cells(i, 1)
        Ar() = Split(s, Chr(11))
        For j = LBound(Ar) To UBound(Ar)
            Feuil1.Cells(i, j + 2) = Ar(j)
        Next j
    Next i
End Sub

 

[Dann]

Bonjour,
Merci, mais je suis un éternel débutant !
Est-ce que je pourrais avoir en retour le fichier avec les formules ?
Merci d'avance
Dann

 

[Dann]

Ca marche pour ce fichier test !
Mais je n'arrive pas à transposer la formule VB dans mon fichier de travail; même avec les mêmes structures ? Je dois sans doute oublier quelques détails VB ?

 

[kiki29]

Salut, peut-être Feuil1 qui est le CodeName de la feuille Feuil1 ( par défaut les 2 sont les
mêmes à la création ). Mais le CodeName permet, entre autres, de déplacer la feuille, de renommer le nom d'onglet SANS avoir à retoucher au code VBA.

 

[Dann]

Quel est le code qui spécifie dans quelle colonne le calcul doit se faire ?
Dans mon tableau, les adresses regroupées sont colonne M que j'appelle ADRESSE 2 ?
J'ai 930 lignes ?

 

[kiki29]

Re, "M" correspond à la colonne 13, pour LastRow y remplacer "A" par "M", et
s = Feuil1.Cells(i, 1) par s = Feuil1.Cells(i, 13)

Après il faut voir où vont être les données après le split
Remplacer Feuil1.Cells(i, j + 2) par Feuil1.Cells(i, j + 14) ?

Option Explicit

Sub Tst()
Dim i As Long, j As Long
Dim s As String, Ar() As String
Dim LastRow As Long
    Application.ScreenUpdating = False
    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To LastRow
        s = Feuil1.Cells(i, 1)
        Ar() = Split(s, Chr(11))
        For j = LBound(Ar) To UBound(Ar)
            Feuil1.Cells(i, j + 2) = Ar(j)
        Next j
    Next i
    Application.ScreenUpdating = True
End Sub

 

[Dann]

MERCI 🙂