Discussion :

[lucien(67)]

Bonjour,

Je cherche une solution pour séparer dans une chaîne de caractères, les caractères entre parenthèses.
Ex: Vaugirard (Boulevard Vaugirard) j'essaie d'isoler dans une cellule la chaîne (Boulevard Vaugirard). Dans chaque chaîne de caractères il y a un espace entre le premier mot et la première parenthèse.
Merci à tous ceux qui ont une petite idée.

Cordialement
Lucien

[arutha67]

Bonjour,

Tu peux regarder du côté des fonctions: Instr() et InstrRev() qui renvoient la position d'une sous-chaine dans une chaine. Les parenthèses dans ton exemple.

Puis utilise la fonction Mid() qui permet d'extraire une sous-chaine d'une chaine.

[Invité]

Bonjour,

Avec la fonction AVaugirardOnCoupeLeLard...

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
19
20
21
22
23
24
25
26
27
28
 
 
Function AVaugirardOnCoupeLeLard(ChaineATraiter As String)
 
Dim CtrI As Integer
Dim DebutDeChaine As Integer
Dim FinDeChaine As Integer
 
  DebutDeChaine = 0
  FinDeChaine = 0
  AVaugirardOnCoupeLeLard = ""
 
  For CtrI = 1 To Len(ChaineATraiter) - 1
            If Mid(ChaineATraiter, CtrI, 2) = "( " Then DebutDeChaine = CtrI + 2
 
  Next CtrI
 
  For CtrI = 1 To Len(ChaineATraiter)
            If Mid(ChaineATraiter, CtrI, 1) = ")" Then FinDeChaine = CtrI
  Next CtrI
 
  If DebutDeChaine > 0 And FinDeChaine > 0 Then
  AVaugirardOnCoupeLeLard = Mid(ChaineATraiter, DebutDeChaine, FinDeChaine - DebutDeChaine)
 
  End If
 
 
End Function

Et pour tester :

Code :

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

1
2
3
4
5
6
 
Sub TestAVaugirardOnCoupeLeLard()
 
  MsgBox (AVaugirardOnCoupeLeLard("Vaugirard ( Boulevard Vaugirard)"))
 
End Sub

Cordialement.

[Theze]

Bonjour,

Regarde si ça convient :

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
 
Sub Test()
 
    Dim Chaine As String
    Dim Nom1 As String
    Dim Nom2 As String
 
    Chaine = "Vaugirard (Boulevard Vaugirard) ici suite de la chaine si existante..."
 
    Chaine = Mid(Chaine, InStr(Chaine, "(") + 1, InStr(Chaine, ")") - InStr(Chaine, "(") - 1)
 
    Nom1 = Split(Chaine, " ")(0)
    Nom2 = Split(Chaine, " ")(1)
 
    MsgBox Nom1 & vbCrLf & Nom2
 
End Sub

Hervé.

[Marc-L]

Bonjour,

p'tite variante :

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
Function Extrait$(Chaine$, CarD$, CarF$, Optional B As Boolean = False)
    S$ = Application.Trim(Chaine$)
    D& = InStr(S$, CarD$)
 
    If D& Then
        F& = InStr(D& + 1, S$, CarF$)
        If F& Then Extrait$ = Mid$(S$, D& - B, F& - D& + 1 + B * 2)
    End If
End Function
 
 
Sub Demo()
    Test$ = "   Vaugirard   (Boulevard     Vaugirard)   "
    MsgBox Extrait$(Test$, "(", ")") & vbLf & vbLf & Extrait$(Test$, "(", ")", True)
End Sub

_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[lucien(67)]

Merci pour vos réponses rapides

Lucien