extraire un mot d'une cellule

[PACARIS]

bonjour,
je souhaite une formule permettant d'extraire tous les mots (s'il y en a: s'il n'y en a pas, rien ne s'affiche) contenant la lettre Q de la cellule de gauche .
avez-vous une idée ?
merci pour votre aide
Pacaris

 

[Hulk]

Re : extraire un mot d'une cellule

Hello,

Stp, dépose un petit fichier sans données confidentielles et avec le résultat souhaité, mieux pour t'aider.

 

[Tibo]

Re : extraire un mot d'une cellule

reBonjour Pacaris, salut Hulk,

Pacaris, il ne servait à rien de créer un nouveau fil.

Il suffisait de te répondre à toi même pour faire remonter ton fil.

Autre règle sur un Forum, savoir être un peu patient, car seuls des bénévoles prennent de leur temps pour répondre.

Le lien avec ton fil précédent :

https://www.excel-downloads.com/threads/recherche-caractere-dans-cellule.140495/

Proposition de réponse pour ta question :

=SI(ESTNUM(CHERCHE("Q";A1));GAUCHE(STXT(A1;TROUVE("µ";SUBSTITUE(" "&A1&" ";" ";
"µ";NBCAR(GAUCHE(A1;CHERCHE("Q";A1)))-NBCAR(SUBSTITUE(GAUCHE(" "&A1&" ";CHERCHE(
"Q";A1));" ";""))));99)&" ";CHERCHE(" ";STXT(A1;TROUVE("µ";SUBSTITUE(" "&
A1&" ";" ";"µ";NBCAR(GAUCHE(A1;CHERCHE("Q";A1)))-NBCAR(SUBSTITUE(GAUCHE(" "&A1
&" ";CHERCHE("Q";A1));" ";""))));99)&" ")-1);"")

Formule vite fait et pas affinée...

Donc sans doute possible de faire plus court

Pas beaucoup testé non plus

Je te laisse la tester et revenir nous dire.

@+

 

[ROGER2327]

Re : extraire un mot d'une cellule

Bonjour à tous

Une fonction personnalisée :

[COLOR="DarkSlateGray"][B]Function a_un_q$(c$)
Application.Volatile
Dim i&, j&, k&
   For i = 2 To Len(c) + 2
      If UCase(Mid$(" " & c & " ", i, 1)) = "Q" Then
         For j = i - 1 To 1 Step -1
            If Mid$(" " & c & " ", j, 1) = " " Then Exit For
         Next j
         For k = i + 1 To Len(c)
            If Mid$(" " & c & " ", k, 1) = " " Then Exit For
         Next k
         a_un_q = Trim(a_un_q & IIf(a_un_q = "", "", "/") & Mid$(c, j, k - j))
         i = k
      End If
   Next i
End Function[/B][/COLOR]

Avec, par exemple, C'est le toQué qui a un gros Q ! en A1, =a_un_q(A1) renvoie toQué/qui/Q.​

ROGER2327
#3286