Suppression des contenus entre parenthèses dans une cellule

Bonjour le forum,

J'ai une question qui m'empêche d'avancer sur un travail que je dois finir sous peu.

Au fait, j'ai des données dans une colonne B dont certains mots sont entre parenthèses et dont le nombre (le nombre de mots entre parenthèses) est aléatoire, pour chaque cellule de cette colonne B, pouvant atteindre 1, 2, 3, etc

Je souhaiterai avoir en Colonne (C) les données de la colonne (B) sans les mots entre parenthèses comme saisie dans la colonne

(E) sur le fichier joint

Pour le moment, je ne trouve pas de fonction type ou code VBA, et je suis en panne d'astuce.

Votre aide me serait très précieuse et m'aiderait à avancer. Merci d'avance

Salut Adama DIENG,

quelque chose comme ça?

@ tous les cracks.

Pourtant friand de ce genre de choses, je ne suis pas parvenu à exécuter un SPLIT ( SPLIT(...))

Pouvez-vous m'aiguiller? Merci!

Private Sub cmdGO_Click()
'
Dim tData, tSplit() As String
Dim sData As String
'
iRow = Range("B" & Rows.Count).End(xlUp).Row
tData = Range("B2:B" & iRow).Value
'
For x = 1 To UBound(tData, 1)
    sData = ""
    tSplit = Split(tData(x, 1), "(")
    For y = 1 To UBound(tSplit)
        sData = sData & Split(tSplit(y), ")")(1)
    Next
    tData(x, 1) = sData
Next
'
Range("C2").Resize(UBound(tData, 1)) = tData
'
End Sub

A+

Bonjour et bienvenue sur le forum

Une variante :

Bye !

Bonjour,

curulis, split() travaille sur une expression chaine, pas sur un tableau, et le 1er split en fourni un...

Autre proposition par fonction personnalisée à mettre dans un module standard:

Function extrait(texte As String) As String
    Dim i As Long, tmp, deb
    tmp = Split(Replace(texte, ")", "("), "(")
    deb = IIf(Left(texte, 1) = "(", 2, 0)
    For i = deb To UBound(tmp) Step 2
        extrait = extrait & " " & tmp(i)
    Next i
    extrait = Application.Trim(Mid(extrait, 2))
End Function

Syntaxe sur feuille :

=extrait(B2)

eric

Salut Eriiic,

merci!

Je m'en suis rendu compte quelques minutes après avoir quitté l'écran...

A+

En fait je n'étais plus trop sûr d'avoir compris ta question après avoir répondu pour ma part

Excellent

Merci infiniment à curulis57, gmb et à eriiic pour vos réactions

La fonction personnalisée "Extract" de eriic résout le problème.