Découper un nom de son code postal

Dull

XLDnaute Barbatruc

• 13 Juillet 2012

• #2

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)

Cliquez pour agrandir...

et en F3

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

Cliquez pour agrandir...

Bonne Journée

 

Pièces jointes

• maval2.xlsm

  11.3 KB · Affichages: 57
• maval2.xlsm

  11.3 KB · Affichages: 55
• maval2.xlsm

  11.3 KB · Affichages: 58

Dernière édition: 13 Juillet 2012

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 13 Juillet 2012

• #3

Re : Découper un nom de son code postal

Bonjour Dull,

Merci beaucoup pour les formules.

Pourquoi en VBA ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 13 Juillet 2012

• #4

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

Code:

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

Code:

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

 

Dernière édition: 13 Juillet 2012

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 13 Juillet 2012

• #5

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

Cliquez pour agrandir...

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?

Code:

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

 

Vote positif 0 Vote négatif

Vilain

XLDnaute Accro

• 13 Juillet 2012

• #6

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 13 Juillet 2012

• #7

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

 

Vote positif 0 Vote négatif

nat54

XLDnaute Barbatruc

• 13 Juillet 2012

• #8

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é !

 

Vote positif 0 Vote négatif

Vilain

XLDnaute Accro

• 13 Juillet 2012

• #9

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 13 Juillet 2012

• #10

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🙁

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 13 Juillet 2012

• #11

Re : Découper un nom de son code postal

Re,

Ci- joint fichier exemple

Maval

 

Pièces jointes

• Découpe sur plusieur colonne.xlsm

  36.5 KB · Affichages: 54

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 13 Juillet 2012

• #12

Re : Découper un nom de son code postal

Bonsour®

maval à dit:

Re,

Ci- joint fichier exemple

Maval

Cliquez pour agrandir...

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)

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 13 Juillet 2012

• #13

Re : Découper un nom de son code postal

Bonjour à tous
Regarde si cela te convient

 

Pièces jointes

• Découpe sur plusieur colonne.xlsm

  45.2 KB · Affichages: 66
• Découpe sur plusieur colonne.xlsm

  45.2 KB · Affichages: 70
• Découpe sur plusieur colonne.xlsm

  45.2 KB · Affichages: 64

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 13 Juillet 2012

• #14

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

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 13 Juillet 2012

• #15

Re : Découper un nom de son code postal

Bonjour
macro rectifié

 

Pièces jointes

• Découpe sur plusieur colonne.xlsm

  45.9 KB · Affichages: 73
• Découpe sur plusieur colonne.xlsm

  45.9 KB · Affichages: 75
• Découpe sur plusieur colonne.xlsm

  45.9 KB · Affichages: 72

Vote positif 0 Vote négatif