Discussion :

[nocontrol]

Bonjour,

Je suis coincé :/ . J'enregistre la valeur d'une cellule dans une variable, en sélectionnant la ligne puis en allant chercher le nom de la colonne correspondante.
Les informations que j'enregistre commence par une suite de [ ] contenant des informations que je souhaiterais isoler dans une autre variable.
Le problème, c'est que je n'arrive pas a voir comment faire une sorte pour extraire la valeur entre le premier crochet et le dernier.
J'ai essayé avec LEN, mais il me semble que je ne mis prend pas de la bonne façon. Quelqu'un pourrait-il m'éclairer?

[SfJ5Rpw8]

as-tu plusieurs [xxx] dans tes variables , peut-on voir un exemple du contenu de celle-ci ...

tu devrais pouvoir extraire la valeur grâce à InStr pour trouver la position de "[" et de "]" puis Mid pour extraire la valeur ... voir

[nocontrol]

entre mes crochets j'ai des valeurs alphanumérique dans le genre [PARIS][BRUXELLES] [ETC] et s'en suit des données non encadrées.

[SfJ5Rpw8]

et pour ce qui est de InStr et Mid tu as cherché ?

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
Dim MaChaine As String
Dim iDeb As Integer
Dim iFin As Integer
MaChaine = "entre mes crochets j'ai des valeurs alphanumrique dans le genre [PARIS][BRUXELLES][ETC] et s'en suit des donnes non encadres."
iDeb = InStr(1, MaChaine, "[")
While iDeb > 0
    iFin = InStr(iDeb, MaChaine, "]")
    If iFin = 0 Then
            MsgBox "Erreur manque crochet fermant"
            iDeb = 0
     Else
        Debug.Print Mid(MaChaine, iDeb + 1, iFin - iDeb - 1)
        iDeb = InStr(iFin, MaChaine, "[")
    End If
Wend

[mercatog]

Bonsoir
Une autre proposition

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
Dim Str As String
Dim i As Integer
Dim Tb
 
With Worksheets("Feuil1")
    Str = .Range("A1")                                  'Str=[PARIS][BRUXELLES][ETC]
    Tb = Split(Str, "]")
    For i = 0 To UBound(Tb)-1
        .Range("B" & i + 1).Value = Mid(Tb(i), 2)
    Next i
End With
End Sub

[nocontrol]

Bonsoir et merci pour vos réponse, j'ai testé avec left aussi sans succes

[SfJ5Rpw8]

Bonsoir et merci pour vos réponse, j'ai testé avec left aussi sans succes

avec left seul tu peu pas ...

as tu essayé d'adapter l'un des deux codes..?

[francky74]

Peut être devrais-tu poster ton code, ainsi nous pourrions voir les erreurs que tu as fait. Cela t'aidera à t'améliorer

[nocontrol]

J 'ai modifié un peu le code pour au contraire récuperer uniquement les informations en dehors des crochets.
J'ai un peu bidouillé les [ ] se trouvant toujours au début.

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
lSummaryValue = lSummaryValue & "["  
' J'ajoute un [ pour récupèrer les infos entre ] et
' [ pour ne pas avoir les données entre [ ]
 
 MaChaine2 = lSummaryValue
 
 iFin = InStr(1, MaChaine2, "]")
  While iFin > 0
         iDeb = InStr(iFin, MaChaine2, "[")
                lSummaryValue = Mid(MaChaine2, iFin + 1, iDeb - iFin - 1)
                iFin = InStr(iDeb, MaChaine2, "]")
  Wend
 
 lSummaryValue = Replace(lSummaryValue, "[", "")
 lSummaryValue = Replace(lSummaryValue, "]", "")