[RESOLU] Scindé un code postal en 2 et garder le Département

CG2000 · 30 Novembre 2013

Bonjour à tous,

Est-il possible de décortiquer dans plusieurs cellules d'une colonne (exemple en A) un code postal?
Exemp A1 : "41000" dans une cellule
pouvoir scindé ce code postal en 2 pour donner
cellule1 : 41
Cellule2 : 000
Exemp A2 : "75018" dans une cellule
pouvoir scindé ce code postal en 2 pour donner
cellule1 : 75
Cellule2 : 018
...

Si c'est possible je serai très satisfait. Cela m'éviterai de rajouter des colonnes et de rentrer toutes le données.
Avec mes remerciements anticipés,
Amicalement

R@chid · 30 Novembre 2013

Re : Scindé ce code postal en 2

Bonjour,
en B1,

Code:

=CHOISIR(COLONNE(A1);GAUCHE($A1;2); DROITE($A1;3))

@ tirer vers C1 à droite puis vers le bas
@ + +

CG2000 · 30 Novembre 2013

Re : Scindé ce code postal en 2

Merci Rachid,

parfait la solution, mais il me faut une solution en macro pur l'incorporer dans une autre.

Exellement merci

CG2000

R@chid · 30 Novembre 2013

Re : Scindé ce code postal en 2

Re,
Une âme charitable va surement passer par là pour te donner de l'aide

@ + +

Temjeh · 30 Novembre 2013

Re : Scindé un code postal en 2

Bonjour

Un début
PS: Ce code met un apostrophe avant pour garder les zéro à la fin.

Code:

For i = 1 To Range("A65000").End(xlUp).Row
  Range("B" & i) = "'" & Left(Range("A" & i), 2)
  Range("C" & i) = "'" & Right(Range("A" & i), 3)
Next i

Ou

Dans format personnalisé
Colonne B: 00
Colonne C: 000

Code:

For i = 1 To Range("A65000").End(xlUp).Row
  Range("B" & i) = Left(Range("A" & i), 2)
  Range("C" & i) = Right(Range("A" & i), 3)
Next i

Temjeh

Modeste geedee · 30 Novembre 2013

Re : Scindé un code postal en 2

Bonsour®

Dim Cellule1 As Range
For Cellule1 = 1 To Range("A65000").End(xlUp).Row
Cellule1.offset(0,1)=Left(Format(Cellule1,"00000"),2)
Cellule1.offset(0,2)=Right(Format(cellule1,"00000"),3)
Next

Si... · 30 Novembre 2013

Re : Scindé un code postal en 2

salut

Modeste geedee à dit:
Bonsour®
Dim Cellule1 As Range
For Cellule1 = 1 To Range("A65000").End(xlUp).Row

, la déclaration n'est valable pour la suite.

Code:

Sub Découpe()
  Dim R As Range
  For Each R In Range("A1", [A1000].End(xlUp))
    R(1, 2) = Left(R, 2)
    R(1, 3) = Right(R, 3)
    R(1, 3).NumberFormat = "000"
  Next
End Sub

CG2000 · 30 Novembre 2013

Re : Scindé un code postal en 2

Merci bien à tous,

Solutions bonnes, mais pas dans mon cas !
En effet lors de mes imports dans excel de mes informations, le tableur transcris

6300 au lieu de 06300 ce qui me donne avec vos reponses 63 300 au lieu de 6 300 ou 06 300
6600 au lieu de 06600 ce qui me donne avec vos reponses 66 600 au lieu de 6 600 ou 06 600
...

il faudrait qu'il y est en C les trois dernier chiffre et en B le reste.
Pour obtenir dans tous les cas un bon département :

75000 = 75 000
01000 = 01 000
1000 = 1 000

Merci par avance de votre aide.

CG2000

mapomme · 30 Novembre 2013

Re : Scindé un code postal en 2

Bonjour CG2000,

Voir fichier joint. Les résultats sont de type texte (ça vaut mieux pour la Corse -> 2A et 2B)

Formule: =GAUCHE(A2;NBCAR(A2)-3) et =DROITE(A2;3)

R@chid · 30 Novembre 2013

Re : Scindé un code postal en 2

Bonjour @ tous,
Notre ami cherche une macro..
une formule pour les 2 premiers chiffres,

Code:

=GAUCHE(TEXTE(A2;"00000");2)

@ + +

Modeste geedee · 30 Novembre 2013

Re : Scindé un code postal en 2

Bonsour®

Si... à dit:
salut
, la déclaration n'est valable pour la suite.

Code:

Sub Découpe() Dim R As Range For Each R In Range("A1", [A1000].End(xlUp)) R(1, 2) = Left(R, 2) R(1, 3) = Right(R, 3) R(1, 3).NumberFormat = "000" Next End Sub

Ouppsss...
oui Si...

Sub Découpe()
Dim R As Range
For Each R In Range("A1:a10000")
R=Application.trim(R)
R.Offset(0, 1) = Left(R, Len(R) - 3)
R.Offset(0, 1).NumberFormat = "00"
R.Offset(0, 2) = Right(R, 3)
R.Offset(0, 2).NumberFormat = "000"
Next
End Sub

Si... · 30 Novembre 2013

Re : Scindé un code postal en 2

re

selon mon habitude : sans utiliser Offset

Code:

Sub Découpe()
  Dim R As Range
  For Each R In Range("A1:A1000")
    R(1, 2) = Int(Val(R) / 1000)
    R(1, 2).NumberFormat = "00"
    R(1, 3) = Right(R, 3)
    R(1, 3).NumberFormat = "000"
  Next
End Sub

Il y aura quand même problème avec les codes spéciaux !

mapomme · 30 Novembre 2013

Re : Scindé un code postal en 2

Bonjour à tous,

En VBA ? Via des fonctions personnalisées :

VB:

Function CodPos3(x)
  CodPos3 = Right(x, 3)
End Function

Function CodPos2(x)
  CodPos2 = Format(Replace(x, CodPos3(x), ""), "00")
End Function

CG2000 · 30 Novembre 2013

Re : Scindé un code postal en 2

Mercis à tous, et à chacun de votre intervention sur ce fil,

R@chid,Temjeh,Modeste geedee, Si..., mapomme,
les trois solutions suivantes vont me rendre un très grand service pour la gestion de mes fichiers:

Sub Découpe()
Dim R As Range
For Each R In Range("A1:A1000")
R(1, 2) = Int(Val(R) / 1000)
R(1, 2).NumberFormat = "00"
R(1, 3) = Right(R, 3)
R(1, 3).NumberFormat = "000"
Next
End Sub

=GAUCHE(A2;NBCAR(A2)-3) et =DROITE(A2;3)

=GAUCHE(TEXTE(A2;"00000");2)

Vous venez de me convaincre de grandes possibilités avec des formules.
Merci à tous

CG2000

CG2000 · 1 Décembre 2013

Re : [RESOLU] Scindé un code postal en 2

Merci à tous, les amis d'excel-downloads.com

Le Post est RESOLU et je vous partage le résultat final.

Ayant besoin impérativement d'un code Vba je ne retiend pour l'instand que le code de SI...
Mais cela ne retire en rien la qualité des propositions de formules qui à eut le succès de m'intéresser aux formules et fonctions. Et qui devrait très bientot me servire.

Ci-joint le fichier exemple qui donne la solution à ce post.
Et bon week à tous.

CG2000

[RESOLU] Scindé un code postal en 2 et garder le Département

CG2000

XLDnaute Occasionnel

R@chid

XLDnaute Barbatruc

CG2000

XLDnaute Occasionnel

R@chid

XLDnaute Barbatruc

Temjeh

XLDnaute Accro

Modeste geedee

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

CG2000

XLDnaute Occasionnel

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

R@chid

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

Si...

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

CG2000

XLDnaute Occasionnel

CG2000

XLDnaute Occasionnel

Pièces jointes

Discussions similaires