Extraire nombres entre parenthèses

Bonjour ,

je cherche une formule pour extraire les chiffres entre parenthèses dans une cellule contenant du texte compris entre deux //

Je sais extraire les chiffres mais je n’arrive pas à les placer dans les cellules respectives

Voir Le fichier joint vous en dira plus .

Cordialement

Bonjour,

tu n'es pas contre une solution VBA ? car là cela devient complexe !

sélectionne les données

Sub test()
Dim c As Range
For Each c In Selection
    decomposer c
Next
End Sub

Sub decomposer(cel As Range)
    tbl = Split(cel.Value & "/", "/")
    For i = 0 To UBound(tbl) - 1
        If tbl(i) Like "*(*)*" Then
            cel.Offset(0, i + 1) = Split(Split(tbl(i) & " ", "(")(1), ")")(0)
        End If
    Next
End Sub

bonjour

allons bon .........

cordialement

Merci ,

La formule de Tulipe_4 fonctionne parfaitement

cela fait plusieurs jours que je me cassais la tête pour résoudre ce problème

Je vais essayer également la solution VBA de Steelson

Mais j'aimerai savoir quel est l'avantage d'utiliser une formule plutôt que du VBA (ou inversement)

Cordialement

Tuplie = c'est plus joli, si si, j'aime bien, pas besoin de macro, belle construction, mais pas toujours facile à comprendre, là sur le coup, je lui tire mon chapeau

=SIERREUR(STXT(SIERREUR(STXT($A2;TROUVE("|";SUBSTITUE("/"&$A2;"/";"|";COLONNES($B:B)));TROUVE("|";SUBSTITUE($A2&"/";"/";"|";COLONNES($B:B)))-TROUVE("|";SUBSTITUE("/"&$A2;"/";"|";COLONNES($B:B))));"");CHERCHE("(";SIERREUR(STXT($A2;TROUVE("|";SUBSTITUE("/"&$A2;"/";"|";COLONNES($B:B)));TROUVE("|";SUBSTITUE($A2&"/";"/";"|";COLONNES($B:B)))-TROUVE("|";SUBSTITUE("/"&$A2;"/";"|";COLONNES($B:B))));""))+1;3);"")

VBA = l'avantage serait que si tu as beaucoup de données, les formules matricielles peuvent ralentir

Après cela dépend de chacun, de son expérience, de sa capacité à comprendre la formule versus un programme et le maintenir / l'adapter

La formule est spécifique à excel ou est elle compatible avec d'autres logiciels tableurs ?

Merci Steelson ,

Désolé mais je n'arrive pas à faire fonctionner le VBA

Il faut dire que je ne suis pas un calos ... et la formule de tulipe_4 me convient bien pour mes fichiers XL

En effet je reçois des fichiers en XL mais aussi divers autres formats

Mon souci à présent de la rendre compatible avec Open

Salut lmf30,
Salut la fine équipe,

...faut un cerveau de malade pour sortir une formule pareille !
Mais, je ne vais pas laisser tomber Steelson et son code parfait pour la cause, n'est-ce pas !

lmf30, il "suffit" d'arranger tout cela pour que, toujours en colonne [A:A] , le moindre changement ou une sélection (simple ou multiple) ou un double-clic fasse le calcul souhaité.
La macro fonctionnera là où tu aurais oublié d'étirer les formules !

Tout ça évidemment en supposant que chaque ligne de la colonne [A:A] doive être traitée mais, c'est une autre histoire...
Par défaut, la macro commence par effacer la ligne traitée en [B:Z]

Private Sub Worksheet_Change(ByVal Target As Range)
'
If Not Intersect(Target, Columns(1)) Is Nothing Then _
    Range("B" & Target.Row).Resize(1, 26).Value = "": _
    If Target <> "" Then Call Decomposer(Target)
'
End Sub

A+

Bonjour,
Tout fonctionne avec la formule de Tulipe_4 !
Merci à tous les contributeurs qui ont participé à ce post

Bien cordialement