Discussion :

[FCL31]

Dans une colonne d'une feuille, j'ai des données mais certaines finissent par du texte entre parenthèse
ex : DUPONT (Truc)

Je voudrais savoir si il y moyen de supprimer "(Truc)"

Sachant que se n'est pas forcement le mot "Truc"

[aalex_38]

Regarde du côté de la fonction VBA "INSTR"

[jfontaine]

Re

Un bout de code qui fonctionne sur la cellule B2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim intDeb As Integer
Dim IntFin As Integer
 
intDeb = InStr(1, Range("B2").Value, "(")
IntFin = InStr(1, Range("B2").Value, ")")
 
Range("B2").Value = Trim(Replace(Range("B2").Value, Mid(Range("B2").Value, intDeb, IntFin - intDeb + 1), ""))

[ouskel'n'or]

En reprenant l'exemple de JF

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If instr(Range("B2").Value ,"(")<> 0 then _
    Range("B2").Value = trim(Split(Range("B2").Value, "(")(0))

En mettant ça, tu testes la cellule pour vérifier qu'une parenthèse est bien présente. Si oui, tu crées un tableau ou la parenthèse est le séparateur et tu prends le premier indice (0) du tableau.
Trim retire l'éventuel espace placé à droite (et à gauche) du texte restant.
Bonne soirée

EditTu peux aussi utiliser Find (---> F1) pour ne rechercher que les cellules contenant une parenthèse. Le meilleur exemple est dans l'aide en ligne

[jfontaine]

Un code plus simple qui supprime tout ce qui se trouve a droite du premier caractère "(" trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Dim StrA As String
 
StrA = Range("B2").Value
 
Range("B2").Value = Trim(Left(StrA, InStr(1, StrA, "(") - 1))

NB : le précédent code supprime tout ce qui se trouve entre parenthèses (parenthèses incluses)
Ex : Bidulle (truc) machin => Bidulle machin

[ouskel'n'or]

NB : le précédent code supprime tout ce qui se trouve entre parenthèses (parenthèses incluses)
Ex : Bidulle (truc) machin => Bidulle machin

certaines finissent par du texte entre parenthèse

plus simple