Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Excel - extraction de caractères entre parenthèses

 

23 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Excel - extraction de caractères entre parenthèses

Prévenir les modérateurs en cas d'abus 
ginette54
ginette54
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 01/07/2011 à 17:42:45  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,
J'ai un commentaire dans une cellule, est-il possible de récupérer uniquement le texte inséré entre parenthèses ?
Merci par avance.

Edit par Tintin10 : enlèvement de la balise [résolu]
Message édité par Tintin10 le 25/11/2016 à 19:51:02
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 01/07/2011 à 18:55:53  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonsoir,

 La réponse est OUI, te propose cette formule à tester parmi d'autres.

 A1 =abcde(solution)fgh

 B1=STXT(A1;TROUVE("(";A1;1)+1;​TROUVE(" )";A1;TROUVE("(";A1;1)​+1)-TROUVE("(";A1;1)-1)

 :salut:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
ginette54
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 02/07/2011 à 04:51:24  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour Willyplaisir,
 Nickel sauf que dans une cellule, il peut y avoir plusieurs portions de texte entre parenthèses.
 Exemple : abcde(solution)fgh (problème) tititi (à voir) tototo
 Merci par avance.


willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 02/07/2011 à 09:15:03  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bonjour ginette qui a du Caractère à extraire... :lol:


voici un fichier démo que je t'ai préparé:
avec une macro et une fonction, tu as donc le choix


http://www.cijoint.fr/cjlink.p [...] 5UFIRy.xls
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Function cherchemots(macellule As String) As String
  2.  Dim longueur As Integer
  3.  Dim i As Integer
  4.  Dim mots() As String
  5.  Dim mesmots As String
  6.  
  7.  longueur = Len(macellule)
  8.  ReDim mots(longueur)
  9.  
  10.  i = 1
  11.  Do While i <= longueur
  12.    If Mid(macellule, i, 1) = "(" Then
  13.      i = i + 1
  14.      mot = Mid(macellule, i, 1)
  15.      i = i + 1
  16.  
  17.      Do While Mid(macellule, i, 1) <> " )" And i <= longueur
  18.        mot = mot + Mid(macellule, i, 1)
  19.        i = i + 1
  20.      Loop
  21.      k = k + 1
  22.      mots(k) = mot: mot = ""
  23.    End If
  24.  
  25.    i = i + 1
  26.  Loop
  27.  
  28.  For i = 1 To k
  29.    mesmots = mesmots + mots(i) & ", "
  30.  Next
  31.  
  32.  cherchemots = mesmots
  33. End Function
  34.  
  35. Sub cherchemesmots()
  36. 'willy le 2/07/11
  37. 'selectionnez une cellule avant de cliquer sur le bouton macro
  38.  
  39.  Dim mots() As String
  40.  Dim longueur As Integer
  41.  
  42.  macellule = ActiveCell
  43.  longueur = Len(macellule)
  44.  
  45.  ReDim mots(longueur)
  46.  i = 1
  47.  Do While i <= longueur
  48.    If Mid(macellule, i, 1) = "(" Then
  49.      i = i + 1
  50.      mot = Mid(macellule, i, 1)
  51.      i = i + 1
  52.  
  53.      Do While Mid(macellule, i, 1) <> " )" And i <= longueur
  54.        mot = mot + Mid(macellule, i, 1)
  55.        i = i + 1
  56.      Loop
  57.      k = k + 1
  58.      mots(k) = mot: mot = ""
  59.    End If
  60.    i = i + 1
  61.  Loop
  62.  If k = 0 Then MsgBox "pas trouvé de mot", vbCritical: Exit Sub
  63.  For i = 1 To k
  64.    mesmots = mesmots + mots(i) & ", "
  65.  Next
  66.  
  67.  MsgBox mesmots, vbOKOnly, " Recherche des mots entre parenthèses"
  68. End Sub


willy :salut:
si cela te convient mieux ,alors ajoute(Résolu) au titre du 1er Post
bien sûr résolu entre parenthèses :lol:

Edit par Tintin10 : rajout des balises de code
Message cité 1 fois
Message édité par Tintin10 le 25/11/2016 à 19:57:31

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
ginette54
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 02/07/2011 à 15:51:54  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonsoir Willy,
 J'ai fait un copier/coller de ta macro pour l'intégrer dans mon excel 2002. C'est tout bien, sauf que tu affiches le résultat dans une boîte de dialogue et il me le faudrait dans une cellule.
 Jute pour info, ceci n'est pas pour moi, à mon avis, il faudra récupérer le texte entre parenthèse de toute une colonne et non une seule cellule.
 Je te fais passer un super week-end !!!!
 A+

(Publicité)
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 02/07/2011 à 16:27:31  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
re,

 utilise donc la fonction cherchemots() et non la macro

 par exemple:
 dans une colonne A tu mets tes données A(i)
 A1.....An

 et dans la colonne B

 tu mets la fonction:
 B1=cherchemots(A1) et tu recopies vers le bas la formule
 B(n)=cherchemots(An)

 :salut:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
ginette54
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 07/07/2011 à 05:09:13  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
[RESOLU]
 Bonjour Willy,
 Excuse la réponse tardive mais j'étais absente. Nickel la fonction.
 Encore merci et à plus peut être.


 

ginette54 a écrit :

Bonjour,
 J'ai un commentaire dans une cellule, est-il possible de récupérer uniquement le texte inséré entre parenthèses ?
 Merci par avance.
 



willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 07/07/2011 à 09:22:54  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

 

ginette54 a écrit :

[RESOLU]
 





 bonjour,
 c'était avec plaisir.

 :jap:
 mettre (résolu) dans le Titre du 1er Post.
 merci willy


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
iraty2010
  1. Posté le 25/11/2016 à 17:06:11  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

willyplaisir a écrit :

bonjour ginette qui a du Caractère à extraire... :lol:


voici un fichier démo que je t'ai préparé:
avec une macro et une fonction, tu as donc le choix


http://www.cijoint.fr/cjlink.p [...] 5UFIRy.xls

Function cherchemots(macellule As String) As String

Dim longueur As Integer
Dim i As Integer
Dim mots() As String
Dim mesmots As String

longueur = Len(macellule)
ReDim mots(longueur)

i = 1
Do While i <= longueur
If Mid(macellule, i, 1) = "(" Then
i = i + 1
mot = Mid(macellule, i, 1)
i = i + 1

Do While Mid(macellule, i, 1) <> " )" And i <= longueur
mot = mot + Mid(macellule, i, 1)
i = i + 1
Loop
k = k + 1
mots(k) = mot: mot = ""
End If

i = i + 1
Loop

For i = 1 To k
mesmots = mesmots + mots(i) & ", "
Next

cherchemots = mesmots

End Function


Sub cherchemesmots()
' willy le 2/07/11
' selectionnez une cellule avant de cliquer sur le bouton macro

Dim mots() As String
Dim longueur As Integer

macellule = ActiveCell
longueur = Len(macellule)

ReDim mots(longueur)
i = 1
Do While i <= longueur
If Mid(macellule, i, 1) = "(" Then
i = i + 1
mot = Mid(macellule, i, 1)
i = i + 1

Do While Mid(macellule, i, 1) <> " )" And i <= longueur
mot = mot + Mid(macellule, i, 1)
i = i + 1
Loop
k = k + 1
mots(k) = mot: mot = ""
End If
i = i + 1
Loop
If k = 0 Then MsgBox "pas trouvé de mot", vbCritical: Exit Sub
For i = 1 To k
mesmots = mesmots + mots(i) & ", "
Next

MsgBox mesmots, vbOKOnly, " Recherche des mots entre parenthèses"
End Sub


willy :salut:
si cela te convient mieux ,alors ajoute(Résolu) au titre du 1er Post
bien sûr résolu entre parenthèses :lol:
Afficher plus
Afficher moins

Bonjour Willy,

C'est justement ce que je cherche à faire, mais je n'y arrive pas.
Comment je rentre la formule dans Excel ?

Merci beaucoup !

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 25/11/2016 à 18:35:35  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bsr,

voici le fichier avec les macros
http://www.cjoint.com/c/FKzrzZ​eABwW

les macros se trouvent dans un module du fichier (touche Alt+F11 pour les voir) que tu peux recopier dans ton fichier perso

dans une feuille tu crées un bouton qui lancera la macro cherchemesmots. tu selectionnes une cellule et un clic sur le bouton

sinon autre façon de faire en utilisant la fonction : cherchermots()
A1= ton texte contenant tes mots entre parenthèse
B1=cherchermots(A1)

Si tu as le temps de visiter les associations ci jointes ce serait sympa et eventuellement leur faire un don pour l'aide apportée à ta demande.Merci

 :hello:
Message édité par willyplaisir le 25/11/2016 à 20:55:27

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
  1. Posté le 25/11/2016 à 19:58:19  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour. Merci la prochaine fois de créer votre propre sujet.
Il est interdit de remonter des sujets dont le dernier message date de plus d'un an.
Message cité 1 fois
(Publicité)
iraty2010
  1. Posté le 25/11/2016 à 20:53:41  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Oups... désolée !

 Page :
1

Aller à :
 

Sujets relatifs
Ecrire un "C" majuscule entre parenthèses (résolu) Excel : nom de la feuille dans une cellule
EXCEL - trier une liste avec des images insérées excel: décalage automatique de texte dans colonne.
Comment fusionner un document Word avec Excel ? excel : formule pour calculer mes heures de travail
codecs windows linux extraction Caractères spéciaux dans un champ de formulaire
Plus de sujets relatifs à : Excel - extraction de caractères entre parenthèses

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
numerotation sous word 2007 5
Ou trouver la clé d'activation de Microsoft Office 2007 ? [ RÉSOLU ] 6
Masquer ou voir une colonne ou plusieurs colonnes dans Excel RESOLU 3
Accès Internet refusé à cause du pare-feu / filtre Internet de GDATA 1
Excel2003: report colonnes RESOLU 5