Fonction Gauche et ou Droite

Bonjour j’ai de nouveau besoin de votre aide car je n’arrive pas à trouver la solution malgré avoir consulté le forum d’entraide sur les sujets traitants de la fonction « Gauche » et « Droite ». Afin de pouvoir réaliser un publipostage, j’aimerais dans la cellule A1 nommée « Adresse » déplacer le « code postal et la ville » dans A2. Avez-vous une idée ? Merci d'avance.

34adresse-test.xlsx (8.58 Ko)

Bonjour TOUCHATOUT

La réponse se trouve ici https://cellulexcel.blogspot.fr/p/adresse-decoupage.html


Ou plus rapide avec ce code à insérer dans un module = Macro "SeparAddresse"

Fichier corrigé dans ce sens.

Sub SeparAddresse()
Dim Csource As Integer, Cadd As Integer, CcodeP As Integer
Dim Cville As Integer, DebLig As Integer
Dim i As Long, e As Integer, Txt As String
    Csource = 1 'colonne ou trouver la source - ici A
    Cadd = 2 'Colonne où mettre l'adresse - ici C
    CcodeP = 3 'Colonne où mettre le CP - ici D
    Cville = 4 'Colonne où mettre la ville - ici E
    DebLig = 2 'Ligne où commence le split ou ligne de départ
    With Sheets("Feuil1")
    For i = DebLig To .Range("A65536").End(xlUp).Row
        Txt = .Cells(i, Csource)
        If Len(Txt) > 6 Then
          For e = 2 To Len(Txt)
            If Mid(Txt, e, 1) <> " " And IsNumeric(Mid(Txt, e, 5)) Then
                .Cells(i, Cadd) = Left(Txt, e - 1)
                .Cells(i, CcodeP) = Mid(Txt, e, 5)
                .Cells(i, Cville) = Mid(Txt, e + 6)
                Exit For
            End If
          Next e
        End If
    Next i
    End With
End Sub

Merci Emile pour la solution dont je n'ai pas trop compris le code . J'ai vu que l'extraction du code postal et du nom de la ville se déterminaient en fin de formule. J'ai donc essayé de combiner code postal + nom de ville, mais Excel me renvoi un message d'erreur. Le principal c'est que cela fonctionne comme dans ton exemple. Merci encore.

Rechercher des sujets similaires à "fonction gauche droite"