Comment retirer tout un texte entre parenthèse? [Résolu]

Messages postés
8
Date d'inscription
samedi 2 janvier 2010
Dernière intervention
2 janvier 2010
- 24 janv. 2008 à 09:58 - Dernière réponse :
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 24 janv. 2008 à 10:36
Bonjour,

Pour faire un matching dans une liste, je dois pouvoir faire des modifications d'un texte qui se trouve entre parenthèse.

exemple:Pomme doit matcher avec Pomme (123) ou Pomme (rouge) ou Pomme.

Comment dès lors dans une macro VBA-Excel faire en sorte que le texte entre parenthèse soit systématiquement retiré (sachant que ce qui est à l'intérieur des parenthèse est variable: texte ou nombre, longueur variable)?

Merci d'avance pour toute aide.
Tumper
Afficher la suite 

Votre réponse

10 réponses

Meilleure réponse
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 24 janv. 2008 à 10:19
3
Merci
Salut,

Est-ce cela que tu souhaites ?

Private Sub Command1_Click()


Dim sChaine As String
Dim sString As String
Dim iLocateFirst As Integer
Dim iLocateSecond As Integer
Dim iDiff As Integer


sChaine = "Pomme (123456789)"


iLocateFirst = InStr(1, sChaine, "(")
iLocateSecond = InStr(iLocateFirst, sChaine, ")")
sDiff = iLocateSecond - iLocateFirst
sString = Mid$(sChaine, iLocateFirst + 1, sDiff - 1)


MsgBox sString


End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin

Merci cs_Exploreur 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 87 internautes ce mois-ci

Commenter la réponse de cs_Exploreur
Messages postés
308
Date d'inscription
mardi 1 juin 2004
Dernière intervention
23 mars 2010
- 24 janv. 2008 à 10:04
0
Merci
Bonjour,

as-tu testé la fonction REPLACE ? Par exemple monchamp = Replace(monchamp, "(","") et de même pour l'autre parenthèse ?

_______________________
<<<< :-: 4L!@$ :-: >>>>
Commenter la réponse de alias666
Messages postés
8
Date d'inscription
samedi 2 janvier 2010
Dernière intervention
2 janvier 2010
- 24 janv. 2008 à 10:07
0
Merci
Ce n'est pas ça que je veux faire. Je veux retirer les parenthèses tout ce qui se trouve à l'intérieur.
Je suis en train d'essayer avec ceci:

Cells.Replace What:=" (*)", Replacement:=""
Commenter la réponse de tumper
Messages postés
308
Date d'inscription
mardi 1 juin 2004
Dernière intervention
23 mars 2010
- 24 janv. 2008 à 10:15
0
Merci
Si le nombre de caractère est fixe (si c'est tout le temps pomme par exemple) tu peux utiliser la fonction Left qui rte sert à garder un bout de ta chaine, pour pomme par exemple
monchamp = Left(monchamp,5)
Sinon tu seras obligé d'isoler ta chaine.

_______________________
<<<< :-: 4L!@$ :-: >>>>
Commenter la réponse de alias666
Messages postés
8
Date d'inscription
samedi 2 janvier 2010
Dernière intervention
2 janvier 2010
- 24 janv. 2008 à 10:20
0
Merci
Oui le problème est que ça peut être "Pomme" ou "Poire" donc je ne peux pas utiliser Left. Mais la fonction que j'ai mentionné ci-dessus (Replace "(*)") semble marcher correctement même si ce n'est pas le plus "propre" des codes...

Merci pour l'aide.
Commenter la réponse de tumper
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
- 24 janv. 2008 à 10:21
0
Merci
Salut,
Sinon si c'est pour une recherche, Utilise Instr
ce qui fera que Pomme sera trouver dans Pomme (123) et dans Pomme(rouge)

@+: Ju£i?n
Pensez: Réponse acceptée
Commenter la réponse de jrivet
Messages postés
7401
Date d'inscription
mercredi 23 avril 2003
Dernière intervention
6 avril 2012
- 24 janv. 2008 à 10:22
0
Merci
Re,
Oh lalal mais que est ce que je suis lent ce matin...

@+: Ju£i?n
Pensez: Réponse acceptée
Commenter la réponse de jrivet
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 24 janv. 2008 à 10:24
0
Merci
Comme dit mon fils : Ratatatata....lol..., salut Jrivet

A+
Exploreur

 Linux a un noyau, Windows un pépin
Commenter la réponse de cs_Exploreur
Messages postés
8
Date d'inscription
samedi 2 janvier 2010
Dernière intervention
2 janvier 2010
- 24 janv. 2008 à 10:25
0
Merci
Merci Explorer, nickel !
Commenter la réponse de tumper
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 24 janv. 2008 à 10:36
0
Merci
Re,

Tumper >> Si les réponses obtenues à ta demande on résolut ton problème, pense à valider celles-ci... 

A+
Exploreur

 Linux a un noyau, Windows un pépin
Commenter la réponse de cs_Exploreur

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.