XL 2016 Formule pour multiplier des nombres entre paranthèse

Sabrhm · 11 Octobre 2017

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 · 11 Octobre 2017

Bonjour,

A tester

Code:

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

thebenoit59 · 11 Octobre 2017

Bonjour Sabrhm.
Bonjour M12.

Une solution en VBA :

VB:

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 · 11 Octobre 2017

M12 à dit:
Bonjour,

A tester

Code:

=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 · 11 Octobre 2017

thebenoit59 à dit:

Bonjour Sabrhm.
Bonjour M12.

Une solution en VBA :

VB:

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

XL 2016 Formule pour multiplier des nombres entre paranthèse

Sabrhm

XLDnaute Junior

Pièces jointes

M12

XLDnaute Accro

thebenoit59

XLDnaute Accro

Sabrhm

XLDnaute Junior

Sabrhm

XLDnaute Junior

Discussions similaires