Discussion :

[maxval18]

Bonjour,

J'ai une liste d'environ 400 lignes avec des noms de villes et code postaux et j'aimerais si possible en VBA dissocier le nom du code postal.
Les lignes sont de la manière suivante.

Ex. Roura (code postal : 97311)

Pour obtenir ceci : Roura dans la colonne "A" et 97311 en colonne "B"

Je vous remercie de votre aide Cordialement

Max

[Didier Gonard]

Bonjour,




le sujet a déjà été traité maintes fois sur le forum, voir traitement de chaînes de caractères, Split etc...

http://www.developpez.net/forums/d11...nnees-colonne/

cordialement,

Didier

[kiki29]

Salut, bestialement une façon d'y parvenir, pas optimal et à adapter à ton contexte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Sub Tst()
Dim LastRow As Long, i As Long
Dim Ar() As String, sSTr As String
 
    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LastRow
        With Feuil1
            Ar = Split(.Range("A" & i), "(")
            .Range("B" & i) = Ar(0)
            sSTr = Ar(1)
            sSTr = Replace(sSTr, "code postal : ", "")
            sSTr = Replace(sSTr, ")", "")
            .Range("C" & i) = sSTr
        End With
    Next i
End Sub

[maxval18]

Bonjour Kiki29

Je te remercie sa marche nickelk

Bonne journée

Max