FORMULE supprimer texte entre parenthèse

[Hervé]

coucou

j'aurais besoin d'une formule pour supprimer du texte entre parenthèse se trouvant dans une chaine

j'ai : toto (titi) tata
je voudrais : toto tata

D'avance merci pour l'aide

j'ai pas trouvé dans la recherche, mais ca c'est normal suis nul

bye

 

[Tibo]

Re : FORMULE supprimer texte entre parenthèse

Bonjour,

Histoire de participer au jeu, cette version :

=SUPPRESPACE(GAUCHE(" "&A1;TROUVE("(";A1)-1)&STXT(A1;TROUVE(")";A1)+1;99))

Je ne sais pas si on peut faire plus court

@+

 

[Caro2452]

Bonjour,

En me basant sur vos échanges précédents pour effacer du texte entre parenthèse d'une cellule j'obtiens bien ce que je veux SI il y a du texte entre parenthèse.
Ce qui me donne la formule suivante:
=SUPPRESPACE(GAUCHE(D36,CHERCHE("(","x"&D36)-2)&STXT(D36,CHERCHE(")",D36)+1,255))
ça fonctionne ... si toutes les cellules de la colonne traitée contienent du texte entre paranthèses.
Mais dans le cas où une malheureuse cellule n'a pas de texte entre parenthèse, ça ne fonctionne plus!

Comment indiquer que si aucune parenthèse n'est trouvé, alors il faut retourner le texte tel que.

Cdt,

Caro

 

[chris]

Bonjour

=SI(ESTNUM(CHERCHE("(";D36));SUPPRESPACE(GAUCHE(D36;CHERCHE("(";"x"&D36)-2)&STXT(D36;CHERCHE(")";D36)+1;255));D36)

Tu sembles utiliser des , et non des ; donc à adapter...

 

[Caro2452]

Merci beaucoup Chris!
Il me manquait la condition de départ.

J'apprends, petit à petit.

 

[herve30]

Bonjour,
La formule fonctionne tres bien mais et si le texte contient plusieurs mots entre parenthèses ?
exemple: toto (va) à l'école (ce matin à 8h) de bonne (heure) humeur
pour avoir : toto à l'école de bonne humeur
Merci d'avance

 

[mapomme]

Bonsoir @herve30 et bienvenue sur XLD 🙂,

Par formule cela risque d'être très très compliqué voire infaisable pour couvrir tous les cas. Voir dans le fichier une fonction personnalisée SansParenthèse(). La fonction prend en compte l'imbrication 'logique' des parenthèses. Si les imbrications sont incohérentes, la fonction renvoie une erreur.

Le code de la fonction est dans module1:

Function SansParenthèse(ByVal x) As String
Dim nouvr&, nferm&, n&, i&, c$
  nouvr = InStr(x, "("): nferm = InStr(x, ")")
  If nouvr + nferm = 0 Then
    SansParenthèse = x
    Exit Function
  End If
  n = 1
  For i = nouvr + 1 To Len(x)
    c = Mid(x, i, 1)
    Select Case c
    Case "("
      n = n + 1
    Case ")"
      n = n - 1
      If n = 0 Then
        Mid(x, nouvr, i - nouvr + 1) = String(i - nouvr + 1, Chr(0))
        SansParenthèse = SansParenthèse(Replace(x, Chr(0), ""))
        Exit Function
      End If
    Case Else
    End Select
  Next i
  If n <> 0 Then SansParenthèse = CVErr(xlErrValue)
End Function

edit : bonjour @job75 😉

 

[job75]

Bonjour le fil, mapomme,

Surtout ne pas se compliquer la vie inutilement 🙄

Function Suppr$(t$)
Dim i%, flag As Boolean
For i = 1 To Len(t)
    If Mid(t, i, 1) = "(" Then flag = True
    If Mid(t, i, 1) = ")" Then flag = False: i = i + 1
    If Not flag Then Suppr = Suppr$ & Mid(t, i, 1)
Next
Suppr = Application.Trim(Suppr) 'SUPPRESPACE
End Function

A+

 

[herve30]

Bonsoir,
La fonction et le fichier joint de job75 qui me conviennent parfaitement
Mais lorsque je créer la macro dans mon fichier xl impossible de la faire fonctionner !
Je suis sur Mac OS X 10.10.5 avec Excel 2011
..../....



Bonsoir MaPomme,
Merci pour votre réponse,
Je mets en place cette fonction et je reviens vers vous.
J'aurai préféré une formule mais cela semble impossible ...
Cordialement

Bonjour le fil, mapomme,

Surtout ne pas se compliquer la vie inutilement 🙄

Function Suppr$(t$)
Dim i%, flag As Boolean
For i = 1 To Len(t)
    If Mid(t, i, 1) = "(" Then flag = True
    If Mid(t, i, 1) = ")" Then flag = False: i = i + 1
    If Not flag Then Suppr = Suppr$ & Mid(t, i, 1)
Next
Suppr = Application.Trim(Suppr) 'SUPPRESPACE
End Function

A+

Bonjour le fil, mapomme,

Surtout ne pas se compliquer la vie inutilement 🙄

Function Suppr$(t$)
Dim i%, flag As Boolean
For i = 1 To Len(t)
    If Mid(t, i, 1) = "(" Then flag = True
    If Mid(t, i, 1) = ")" Then flag = False: i = i + 1
    If Not flag Then Suppr = Suppr$ & Mid(t, i, 1)
Next
Suppr = Application.Trim(Suppr) 'SUPPRESPACE
End Function

A+

Bonjour le fil, mapomme,

Surtout ne pas se compliquer la vie inutilement 🙄

Function Suppr$(t$)
Dim i%, flag As Boolean
For i = 1 To Len(t)
    If Mid(t, i, 1) = "(" Then flag = True
    If Mid(t, i, 1) = ")" Then flag = False: i = i + 1
    If Not flag Then Suppr = Suppr$ & Mid(t, i, 1)
Next
Suppr = Application.Trim(Suppr) 'SUPPRESPACE
End Function

A+

 

[job75]

Mais lorsque je créer la macro dans mon fichier xl impossible de la faire fonctionner !
Je suis sur Mac OS X 10.10.5 avec Excel 2011

Le code VBA est vraiment très simple, il doit fonctionner sur MAC.

Mais vérifiez : il doit être placé dans un module standard.

 

[herve30]

Bonjour,
Je ne comprends pas ...
Dans votre fichier tout fonctionne à merveille !
Mais lorsque je veux appliquer cette fonction dans mes fichiers xlsm impossible de la faire fonctionner
j'ai crée un fichier xlsm avec les même critères:
- macro -Modules-Module 1 et idem insertion du code

Résultat lorsque je veux insérer cette macro dans une cellule j'ai ce message:

qu'est ce que je dois modifier pour que cela fonctionne ?
Bien que je ne possède pas une grande expérience en macro, j'en ai vraiment besoin pour que cela fonctionne pour mes nombreux fichiers
Merci d'avance

 

[Robert]

Bonjour le fil, bonjour le forum,

Désolé de venir polluer ce fil mais il y apparaît une majorité de personnes qui me tiennent à cœur et je profite pour les saluer... Je profite aussi pour saluer la nouvelle présentation du forum. Enfin un truc efficace ! Merci David...

 

[herve30]

Merci à tous, tout a fini par fonctionner ...
C'est la que je me rends compte que j'ai encore de grosses lacunes ...
Cordialement
Hervé