Discussion :

[nina_noss]

Salut tout le monde

Ma question peut vous paraître banale mais je ne suis pas parvenue à trouver une solution :/

Ma question est la suivante:
je veux extraire une chaîne à partir d'une autre sachant que la chaîne que je veux extraire se trouve entre les deux premiers "," de la chaîne originale.
Un exemple:

Code :

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

str1= " 01 (Marie, femme, Paris, 33 ans, mariée) "

A partir de str1, je veux extraire le mot "femme"
J'ai essayé comme suit:

Code :

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

Mid(str1, InStr(str1, ",") + 1, InStr(str1, ","))

Mais cela ne fonctionne pas correctement puisque le résultat de retour est " femme, Par"
SVP, si quelqu'un a une solution qu'il me la donne, c'est vraiment urgent.

Merci à l'avance

[Invité]

Bonjour

Un petit truc avec la fonction Split.

Fonction à coller dans un module :

Code :

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

1
2
3
4
5
6
Public Function Extract(strChaine As String) As String
    'déclaration
    Dim Eclat() As String
    Eclat = Split(strChaine, ",")
    Extract = Eclat(1)
End Function

Ensuite dans ton code tu l'utilises de cette manière :

Code :

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

1
2
Dim StrResult as String
StrResult = Extract(str1)

Philippe

[nina_noss]

Merci Philippe et rdurupt

Mais ne voyez-vous pas une autre solution sans utiliser le "split" car je n'ai pas vraiment envie que ma chaîne retournée soit de type Tableau ?

Merci

[Invité]

Re

Dans mon cas la fonction Extract retourne un chaine et non un tableau. Le tableau est utilisé uniquement à l'intérieur de la fonction.

Philippe

[nina_noss]

Oui Philippe, tu as raison

Mais le problème c'est que je n'ai pas pu adapter la solution que tu m'as proposé à mon cas.
Je repose la question avec plus de détails:
En effet, j'ai une variable Var que j'ai "splitté" à chaque retour de ligne

Code :

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

VarSplit=Split(var, vblf)

c'est à partir des éléments de la variable VarSplit (qui sont tous de la même forme) que je veux extraire les chaînes entre deux "," càd j'ai:
VarSplit(1)=" 01 (Marie, femme, Paris, 33 ans, mariée) "
VarSplit (2)=" 02 (jean, homme, Nice, 50 ans, veuf) "
....
VarSplit(n)=" 0n (sophie, femme, Grenoble, 25 ans, célibataire) "

j'espère que j'était claire et j'attends vos réponses.
Merci

[nibledispo]

bonsoir,

Sub extrac()

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim chaine As String
Dim pos1 As Integer
Dim pos2 As Integer
 
chaine = "01 (Marie, femme, Paris, 33 ans, mariée)"
 
pos1 = InStr(chaine, ",") + 1
pos2 = InStr(pos1, chaine, ",")
sChaine = Mid(chaine, pos1, (pos2 - pos1))
Cells(4, 1) = sChaine
End Sub

cordialement.

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub test()
str1 = " 01 (Marie, femme, Paris, 33 ans, mariée) "
str1 = Replace(str1, "(", ",")
str1 = Replace(str1, ")", "")
str1 = Replace(str1, " ", "")
MonTable = Split(str1, ",")
For i = 0 To UBound(MonTable)
    Debug.Print MonTable(i)
Next
End Sub