Enregistrement de valeur entre [ ] VBA

Version imprimable

25/07/2011, 19h39
nocontrol

Enregistrement de valeur entre [ ] VBA

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?
25/07/2011, 19h52
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 :f1:
25/07/2011, 20h28
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.

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

Code:

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

Bonsoir
Une autre proposition

Code:

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

25/07/2011, 21h31
nocontrol

Bonsoir et merci pour vos réponse, j'ai testé avec left aussi sans succes
25/07/2011, 21h35
SfJ5Rpw8

Citation:

Envoyé par nocontrol

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..?
25/07/2011, 21h36
francky74

code

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

;)

J'ai travailler ca au bureau ^^ et j'ai pas l'accès à distance de mon poste. Demain j'essaie de venir poster ce que ca aura donné merci :)

J'arrive a récupérer la 1ere valeur entre [ ] , j'ai plus cas boucler pour que ca les fassent toutes ^^

Merci de votre aide, voila le résultat.

Code:

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
29
30
31
32
Dim MaChaine As String
Dim iDeb As Integer
Dim iFin As Integer
Dim impactedregion2 As String
Dim lrow As Long
 
lrow = ActiveCell.Row
 
lsummary = ActiveSheet.range("COL_SUMMARY").Column
lSummaryValue = ActiveSheet.range(Number2Char(lsummary) & lrow).Value
'ldictrowwithallinfos.Add "COL_SUMMARY", lSummaryValue
 
MaChaine = lSummaryValue
iDeb = InStr(1, MaChaine, "[")
While iDeb > 0
    iFin = InStr(iDeb, MaChaine, "]")
        If iFin = 0 Then
           iDeb = 0
            Else
               impactedregion2 = Mid(MaChaine, iDeb + 1, iFin - iDeb - 1)
                        iDeb = InStr(iFin, MaChaine, "[")
         End If
 
Wend
 
impactedregion2 = Mid(MaChaine, iDeb + 1, iFin - iDeb - 0)
 
impactedregion2 = Replace(impactedregion2, "[", " ")     ' Retire les [ ]
impactedregion2 = Replace(impactedregion2, "]", " ")
 
 
Sheet9.range("impactedregion") = impactedregion2

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:

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, "]", "")