extraire les pourcentages dans des parenthèses

[CHTING]

Bonjour à tous,

j'ai deux problématiques
Premièrement, dans la colonne A, j'ai des cellules qui comprennent du texte avec des parenthèses
Je souhaite extraire dans la colonne C les pourcentages qui sont dans les parenthèses et de transferer le reste du texte dans la colonne B. Le problème est que le texte dans les cellules de la colonne A peut contenir plusieures parenthèses. Seul les parenthèses comprenant un pourcentage % m'intéresse pour la colonne C.


Deuxièmement je souhaite colorié les cellules de la colonne D en fonction de certains mots contenus dans les cellules de la colonne B. Par exemple : colorier en rouge la cellule de la colonne D lorsque la cellule de la colonne B contient les mots "patate" ou "melon".

Pour clarifier, je vous joins un exemple.

Par avance,
Merci à vous tous.

 

[excfl]

Re : extraire les pourcentages dans des parenthèses

Bonjour CHTING,

Deuxièmement je souhaite colorié les cellules de la colonne D en fonction de certains mots contenus dans les cellules de la colonne B. Par exemple : colorier en rouge la cellule de la colonne D lorsque la cellule de la colonne B contient les mots "patate" ou "melon".

Voir fichier joint ?

excfl

 

[excfl]

Re : extraire les pourcentages dans des parenthèses

Re,

Premièrement, dans la colonne A, j'ai des cellules qui comprennent du texte avec des parenthèses
Je souhaite extraire dans la colonne C les pourcentages qui sont dans les parenthèses et de transferer le reste du texte dans la colonne B. Le problème est que le texte dans les cellules de la colonne A peut contenir plusieures parenthèses. Seul les parenthèses comprenant un pourcentage % m'intéresse pour la colonne C.

Deux problèmes :

* " les cellules de la colonne A peuvent contenir plusieurs parenthèses"

* le contenu entre parenthèses n'est pas numérique : comment distinguer : (0-1 %) avec (cancer) ?

Une approche cependant :

=STXT(A3;CHERCHE("(*)";A3)+1;CHERCHE(")";A3)-CHERCHE("(*)";A3)-1)

excfl

 

[job75]

Re : extraire les pourcentages dans des parenthèses

Bonjour CHTING, excfl,

Voyez le fichier joint et ces deux fonctions VBA :

Function EXTRAIRE1$(t$)
Dim i%, j%
For i = Len(t) - 1 To 1 Step -1
  If Mid(t, i, 2) = "%)" Then
    j = i
    i = InStrRev(Left(t, i), "(")
    t = Application.Replace(t, i, j + 2 - i, "") 'REMPLACER
  End If
Next
EXTRAIRE1 = Application.Trim(t) 'SUPPRESPACE
End Function

Function EXTRAIRE2$(t$)
Dim i%, j%
For i = Len(t) - 1 To 1 Step -1
  If Mid(t, i, 1) = vbLf Then EXTRAIRE2 = vbLf & EXTRAIRE2
  If Mid(t, i, 2) = "%)" Then
    j = i
    i = InStrRev(Left(t, i), "(")
    EXTRAIRE2 = Mid(t, i + 1, j - i) & EXTRAIRE2
  End If
Next
End Function

Pour la formule de la MFC sur la colonne D ce n'est guère compliqué :

=NB(CHERCHE("patate";$B1);CHERCHE("melon";$B1))

Edit : bien entendu sur Excel 2007 n'enregistrez pas le fichier en .xlsx mais en .xlsm...

A+

 

[excfl]

Re : extraire les pourcentages dans des parenthèses

Re,

Bonjour job75,

* le contenu entre parenthèses n'est pas numérique : comment distinguer : (0-1 %) avec (cancer) ?

Une solution sans macro : mais une seule parenthèse par ligne.

=SI(ESTNUM(STXT(A6;CHERCHE("(*)";A6;1)+1;1)*1);STXT(A6;CHERCHE("(*)";A6)+1;CHERCHE(")";A6)-CHERCHE("(*)";A6)-1);"")

excfl

 

[CHTING]

Re : extraire les pourcentages dans des parenthèses

Bonsoir à tous.

Avec un peu de retard : Ca marche très bien. Merci à tous