XL 2016 Formule pour multiplier des nombres entre paranthèse

[Sabrhm]

Bonjour à tous,

Je souhaiterais grâce à une formule multiplier les nombres qui sont entre parenthèse et respectant la forme de l'exemple suivant 1(2X150G), ce qui donnerait après formule à 2X150=300,

Je joins à cette discussion mon fichier qui vous aidera à comprendre davantage mon petit problème.

Je reste à votre disposition pour plus d'information.

Merci d'avance pour votre aide.

Cordialement,
Simon

 

[M12]

Bonjour,

A tester

=STXT(A2;(TROUVE("(";A2)+1);1)*1*(STXT(A2;TROUVE("X";A2;TROUVE("(";A2))+1;3)*1)

 

[thebenoit59]

Bonjour Sabrhm.
Bonjour M12.

Une solution en VBA :

Sub multi()
With Sheets(1)
    i = 2
    Do While .Cells(i, "A").Value <> ""
        t1 = .Cells(i, "A").Value
        n1 = InStr(t1, "(")
        n2 = InStr(t1, ")")
        t2 = Mid(t1, n1 + 1, (n2 - n1) - 2)
        temp = Split(t2, "X")
        m = temp(0) * temp(1)
        .Cells(i, "B").Value = m
        i = i + 1
    Loop
End With
End Sub

 

[Sabrhm]

Bonjour,

A tester

=STXT(A2;(TROUVE("(";A2)+1);1)*1*(STXT(A2;TROUVE("X";A2;TROUVE("(";A2))+1;3)*1)

Bonjour M12,

Parfait ça marche niquel
Merci pour tout
Bonne journée

 

[Sabrhm]

Bonjour Sabrhm.
Bonjour M12.

Une solution en VBA :

Sub multi()
With Sheets(1)
    i = 2
    Do While .Cells(i, "A").Value <> ""
        t1 = .Cells(i, "A").Value
        n1 = InStr(t1, "(")
        n2 = InStr(t1, ")")
        t2 = Mid(t1, n1 + 1, (n2 - n1) - 2)
        temp = Split(t2, "X")
        m = temp(0) * temp(1)
        .Cells(i, "B").Value = m
        i = i + 1
    Loop
End With
End Sub

Bonjour
Merci pour ta réponse qui marche aussi bien que celle de M12
Bonne journée