Obtenir la valeur entre parenthèses

J'ai une colonne avec des trucs qui ressemble à la chaîne suivante: V2397(+60)

Comment puis-je obtenir la valeur entre parenthèses? Dans ce cas, le +60.

Le nombre (et le personnage) avant de les crochets n'est pas quelque chose de standardisé et ni le nombre entre parenthèses (il peut être de 100, 10 -10 ou même à 0...).

Élargi répondre à Obtenir la valeur entre parenthèses, des correspondances multiples dans une chaîne de caractères.

OriginalL'auteur Andrei Ion | 2011-11-08

  1. 12

    Code VBA:

    cellValue = "V2397(+60)"
openingParen = instr(cellValue, "(")
closingParen = instr(cellValue, ")")
enclosedValue = mid(cellValue, openingParen+1, closingParen-openingParen-1)

    Évidemment cellValue devrait être lu à partir de la cellule.

    Sinon, si la cellule A1 est l'une de ces valeurs, la formule suivante peut être utilisée pour extrcat le clos de la valeur d'une autre cellule:

    =Mid(A1, Find("(", A1)+1, Find(")",A1)-Find("(",A1)-1)
    +1 pour montrer à la fois le VBA et le formule de la façon de faire les choses

    OriginalL'auteur Andrew Cooper

  2. 4

    Je voudrais utiliser une expression régulière pour ce qu'il gère facilement les

    • un pas de match de cas
    • des correspondances multiples dans une seule chaîne si nécessaire
    • plus complexe correspond si votre analyse de l'évolution des besoins

    La Test sous exécute trois exemples de chaîne tests

    Le code ci-dessous utilise une UDF qui vous pouvez appeler directement dans Excel ainsi, c'est à dire = GetParen(A10)

    Function GetParen(strIn As String) As String
    Dim objRegex As Object
    Dim objRegMC As Object
    Set objRegex = CreateObject("vbscript.regexp")
    With objRegex
        .Pattern = "\((.+?)\)"
        If .Test(strIn) Then
            Set objRegMC = .Execute(strIn)
            GetParen = objRegMC(0).submatches(0)
        Else
            GetParen = "No match"
        End If
    End With
    Set objRegex = Nothing
End Function

Sub Test()
MsgBox GetParen("V2397(+60)")
MsgBox GetParen("Not me")
MsgBox GetParen(ActiveSheet.Range("A1"))
End Sub

    OriginalL'auteur brettdj

  3. 1

    Utilisation InStr pour obtenir l'index de l'open bracket de caractère et de fermer la parenthèse de caractère; ensuite utiliser Mid pour extraire la sous-chaîne souhaitée.

    À l'aide de InStr$ et Mid$ fonctionnera mieux, si les paramètres ne sont pas des variantes.

    OriginalL'auteur phoog

  4. 1

    Merci à Andrew Cooper pour sa réponse.

    Pour quiconque s'intéresse j'ai refait dans une fonction... 

     Private Function GetEnclosedValue(query As String, openingParen As String, closingParen As String) As String
    Dim pos1 As Long
    Dim pos2 As Long

    pos1 = InStr(query, openingParen)
    pos2 = InStr(query, closingParen)

    GetEnclosedValue = Mid(query, (pos1 + 1), (pos2 - pos1) - 1)
End Function

    À utiliser

    value = GetEnclosedValue("V2397(+60)", "(", ")" )

    OriginalL'auteur Paul Buitenhuis