recherche de code poste dans l'adresse

[deins07]

bonjour

j'ai un petit pb de synthaxe
je recherche le code postal dans une liste d'adresses donc une succession de 5 caractères numériques

d'avance merci.
voici le code.

Sub Macro1()

Sheets("Feuil3").Select
Worksheets("Feuil3").Range("A1").Select

For I = 2 To 550

adresse = Worksheets("Feuil3").Range("A" & I)
car = Len(adresse)

For J = 1 To car
For k = 1 To 5

If IsNumeric(Mid(adresse, J, k)) = True Then
If Len(Mid(adresse, J, k)) > 4 Then
Worksheets("Feuil3").Range("C" & I).Value = Mid(adresse, J, k)
k = 5
J = car
Next I

Else
End If
Next k 'next K

Else 'pas numeric
J = J + k - 1

Next J 'next J
End If


'
End Sub

 

[Paf]

Re : recherche de code poste dans l'adresse

Bonjour

une solution:

Sub Macro1()
 Dim i as Integer, j as Integer, car as Integer, adresse as String
 With Worksheets("Feuil3")
 For i = 2 To 550
    adresse = Replace(.Cells(i, 1), " ", "") ' supprime les espaces qui faussent le résultat de Isnumeric
    car = Len(adresse)
        For j = 1 To car - 4
            If IsNumeric(Mid(adresse, j, 5)) = True Then
                .Range("C" & i).Value = Mid(adresse, j, 5)
                .Range("C" & i).NumberFormat = "00000"
                Exit For
            End If
        Next j
 Next i
 End With
End Sub

A+

 

[deins07]

Re : recherche de code poste dans l'adresse

Merci pour la solution

en fait j'avais trouvé une autre solution pour mon problème dans le forum, mais je cherchais aussi le pb de syntaxe dans mes boucles.

concernant le fait de supprimer les espace ce n'est pas une bonne idée car dans le cas des adresses du style
"BP 45 13000 Marseille" cela ajoute des erreurs

cordialement.

 

[david84]

Re : recherche de code poste dans l'adresse

Bonjour,
tu peux utiliser une expression rationnelle pour ce genre de chose.
Des exemples ici sur le site de JB.
A+