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

tumper 8 Messages postés samedi 2 janvier 2010Date d'inscription 2 janvier 2010 Dernière intervention - 24 janv. 2008 à 09:58 - Dernière réponse : cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention
- 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
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 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é 97 internautes ce mois-ci

Commenter la réponse de cs_Exploreur
alias666 308 Messages postés mardi 1 juin 2004Date d'inscription 23 mars 2010 Dernière intervention - 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
tumper 8 Messages postés samedi 2 janvier 2010Date d'inscription 2 janvier 2010 Dernière intervention - 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
alias666 308 Messages postés mardi 1 juin 2004Date d'inscription 23 mars 2010 Dernière intervention - 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
tumper 8 Messages postés samedi 2 janvier 2010Date d'inscription 2 janvier 2010 Dernière intervention - 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
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 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
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 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
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 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
tumper 8 Messages postés samedi 2 janvier 2010Date d'inscription 2 janvier 2010 Dernière intervention - 24 janv. 2008 à 10:25
0
Merci
Merci Explorer, nickel !
Commenter la réponse de tumper
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 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.