Découper un nom de son code postal

[maval]

Bonjour

Je souhaiterai découpé le nom du code postal en sachant qu'il y a environ 150 lignes par colonne

en VBA si possible.

Je joint un exemple

Merci d'avance

Cordialement

Maval

 

[Dull]

Re : Découper un nom de son code postal

Salut maval, le Forum

Pourquoi en VBA ? parfois le mieux est l'ennemi du Bien 🙂

en E3

=GAUCHE(C3;CHERCHE("(";C3;1)-1)

et en F3

=STXT(C3;CHERCHE("(";C3;1)+1;5)*1

Bonne Journée

 

[maval]

Re : Découper un nom de son code postal

Bonjour Dull,

Merci beaucoup pour les formules.

Pourquoi en VBA ?

Parce que j'ai récupéré tous les noms de ville de la France avec leur code postal et il y a sauf erreur 38950 villes je pense que se serai plus rapide ?

Bonne journée

Maval

 

[laetitia90]

Re : Découper un nom de son code postal

bonjour tous 🙂🙂🙂
un code en vba peut etre passer par un tablo ou filtre pour aller plus vite
code brut je pense que tu le fais une fois peut être suffisant demarre en a2

Sub es()
Dim i As Long
 Application.ScreenUpdating = False
 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
 Cells(i, 1) = Replace(Cells(i, 1), "(", "ù")
 Cells(i, 1) = Replace(Cells(i, 1), ")", " ")
 Cells(i, 1).TextToColumns Cells(i, 1), xlDelimited, , , , , , , True, "ù"
 Next
End Sub

tu en est ou avec ton programme ?? pas suivi
ps
cette ligne comme cela pas besoin space a la fin

Cells(i, 1) = Replace(Cells(i, 1), ")", "")

 

[maval]

Re : Découper un nom de son code postal

Bonjour Lætitia,

Et merci de ton aide.

J'ai code qui ma était fait par Bruno45 que je remercie au passage, qui marche trés ben mais j'aimerai lui apporté une modification.

Je découpe une chaine de caractères sur plusieurs colonne comme ceci

Quemper-Guézennec(22260) sa donne Quemper-Guézennec sur une colonne et 22260 sur une autre la colonne

Seul problème et que si une cellule est vide ou si une cellule contient une lettre comme "A, B, C ect.." sa beug?
Si tu peut m'aider a finaliser?

Sub Découpe()
      Dim DLig As Long, Lig As Long
      ' Tableau des données séparées
     Dim sTab() As String
      With Sheets("Feuil1")
        ' Trouver la dernière ligne remplie de la colonne B
       DLig = .Range("B" & Rows.Count).End(xlUp).Row
       
        ' Pour chaque ligne en commençant par la 4ème
       For Lig = 4 To DLig
       
          ' Eclater la valeur en 2 à partir de la parenthèse
         sTab = Split(.Range("B" & Lig), "(")
          ' Inscrire les valeurs
         .Range("D" & Lig) = Trim(sTab(0))
          .Range("E" & Lig) = Left(sTab(1), Len(sTab(1)) - 1)

       ' Eclater la valeur en 2 à partir de la parenthèse
       sTab = Split(.Range("G" & Lig), "(")
      ' Inscrire les valeurs
       .Range("I" & Lig) = Trim(sTab(0))
         .Range("J" & Lig) = Left(sTab(1), Len(sTab(1)) - 1)
    
    Next Lig
      End With
      
      
    End Sub

Merci d'avance

Maval

 

[Vilain]

Re : Découper un nom de son code postal

Bonjour à tous,

Je rejoins Dull quand à sa remarque sur ta volonté de passer par vba.
Je pense comme lui qu'une simple fonction serait plus efficace et comme il s'agit simplement d'une fonction gauche, ce sera très rapide.

A plus

 

[maval]

Re : Découper un nom de son code postal

Bonjour Gillus69

Oui tu as raison comme Dull si tu as une dizaine de ligne j'ai 38950 lignes?

@+

Maval

 

[nat54]

Re : Découper un nom de son code postal

Bonjour,

Cela change quoi ?
Tu tires ta formule vers le bas et le tour est joué !

 

[Vilain]

Re : Découper un nom de son code postal

Re,

oui, cela ne change rien, c'est une formule super légère, pas comme du matricielle ou ce genre de choses.

A plus

 

[laetitia90]

Re : Découper un nom de son code postal

re,🙂🙂🙂 bonjour Gillus🙂

met un fichier exemple comme cela pas simple traiter.. cells vide pas de pb.. par contre tu as des cells avec seulement A ou B ect... pas comprendre!!!
si pas de reponse regarderais en fin aprés midi plus le temps🙁

 

[maval]

Re : Découper un nom de son code postal

Re,

Ci- joint fichier exemple

Maval

 

[Modeste geedee]

Re : Découper un nom de son code postal

Bonsour®

Re,

Ci- joint fichier exemple

Maval

déjà commencer par un nettoyage :
supprimmer les espaces redondants et autre caractères invisibles(tab, Car(160) etc...)
ensuite supprimmer la parenthèse fermante (edition remplacer)
puis utiliser l'utilitaire de conversion (délimité, séparateur : "(", type texte)

 

[jpb388]

Re : Découper un nom de son code postal

Bonjour à tous
Regarde si cela te convient

 

[maval]

Re : Découper un nom de son code postal

Bonjour JP

Nickel vraiment exactement la recherche.

Juste un petit comment truck peut on supprimer les colonnes que l'on vient de découper soit "B, E, I ect..."

Bonne journée

Maval

 

[jpb388]

Re : Découper un nom de son code postal

Bonjour
macro rectifié