Discussion :

[CyberLudo]

Bonjour

Dans une cellule j'ai ce ce type de données :

AMPERE (RUE AMPERE) / ARAGO (RUE ARAGO) / AUVERGNE (RUE DU FAUBOURG D AUVERGNE) / BELGIQUE (PLACE DE BELGIQUE) / CLARIS (RUE CLARIS) / COLOMBIER (PASSAGE DU COLOMBIER) / DIDEROT (AVENUE DIDEROT) / DUMAS (AVENUE JEAN BAPTISTE DUMAS) 2 à 34 / FUST (RUE CROIX DE FUST) / HERSTAL (RUE D HERSTAL) / JEAN (RUE DES PRES SAINT JEAN) / LOIRET (RUE JOSEPH LOIRET) / MAREILLE (RUE XAVIER DE LA MAREILLE) / MAYODON (RUE JEAN MAYODON) / NOVEMBRE (QUAI DU 11 NOVEMBRE 1918) 2 à 4 / PAUL (RUE MARCEL PAUL) 1 à 29 BIS & 2 H à 16 / PRUDHOMME (RUE SULLY PRUDHOMME) / SEBASTIEN (RUE SAINT SEBASTIEN) / TASSIGNY (AVENUE DE LATTRE DE TASSIGNY)

J'ai besoin de garder ce qui est entre parenthèses et ce qui est après jusqu'à "/". Je garde également les "/" le reste doit dégager. Le résultat doit être b:

RUE AMPERE / RUE ARAGO /................../ AVENUE JEAN BAPTISTE DUMAS 2 à 34 / RUE CROIX DE FUST... ETC ETC

Merci de votre aide

Ludo

[tototiti2008]

Bonjour,

un essai en VBA

Placer ce code dans un module standard

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Rues(Cel As Range) As String
Dim Com As Boolean, i As Long
    Com = False
    Rues = ""
    For i = 1 To Len(Cel.Value)
        If Mid(Cel.Value, i, 1) = ")" Then Com = False
        If Mid(Cel.Value, i, 1) = "/" Then
            Rues = Rues & " / "
        ElseIf Com Then
            Rues = Rues & Mid(Cel.Value, i, 1)
        End If
        If Mid(Cel.Value, i, 1) = "(" Then Com = True
    Next i
End Function

dans la feuille de calcul, taper
=rues(A1)

Re,

Oups, avait oublié le numéro des rues

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
Function Rues(Cel As Range) As String
Dim Com As Boolean, i As Long
    Com = False
    Rues = ""
    For i = 1 To Len(Cel.Value)
        If Mid(Cel.Value, i, 1) <> ")" Then
            If Mid(Cel.Value, i, 1) = "/" Then
                Rues = Rues & "/ "
                Com = False
            ElseIf Com Then
                Rues = Rues & Mid(Cel.Value, i, 1)
            End If
            If Mid(Cel.Value, i, 1) = "(" Then Com = True
        End If
    Next i
End Function

[CyberLudo]

T'es un Chef... merci à toi !!