Microsoft 365 Recherche 3 mots…

  • Initiateur de la discussion Initiateur de la discussion moanin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

moanin

XLDnaute Accro
Bonsoir à tous 😉



Quelqu’un pourrait-il me dire quelle fonction utiliser pour rechercher dans une colonne des lignes comportant par exemple trois mots ?


ex :

Pierre Granier-Deferre
ou
Pierre Granier Deferre

(Il peut y avoir ou pas un tiret)

Merci
 
Xcuses… 🙁
Je ne cherche pas "Pierre Granier Deferre" c’est un exemple; je cherche les lignes d’une colonne qui contiennent 3 mots, 3 occurrences, 3 valeurs n’importe lesquels :
Pierre Granier Deferre
Jean Paul Leblanc
Marc Antoine Lucillius

> Mais pas :
Jean Moulin
ni
André Malraux
 
Dernière édition:
Bonjour moanin, sylvanu,

Voyez le fichier joint et cette formule matricielle en B2 :
Code:
=SIERREUR(INDEX(A:A;PETITE.VALEUR(SI((ESTNUM(CHERCHE(" * ";SUPPRESPACE(A$2:A$100)))+ESTNUM(CHERCHE(" *-";A$2:A$100)))*ESTERREUR(CHERCHE(" * * ";SUPPRESPACE(A$2:A$100)))*ESTERREUR(CHERCHE("-*-*";A$2:A$100));LIGNE(A$2:A$100));LIGNE(B1)));"")
Si votre Ipad ne l'accepte pas prenez un PC.

A+
 

Pièces jointes

Peut être avec un filtre avancé, exemple succinct :
1685126844403.png
 
Bonjour le forum,

On peut aussi utiliser une fonction VBA :
VB:
Function Extraire_3_mots(colonne As Range, ordre&) As String
Dim tablo, i&, s, n&
tablo = Intersect(colonne, colonne.Parent.UsedRange) 'matrice, plus rapide
For i = 1 To UBound(tablo)
    s = Split(Application.Trim(Replace(tablo(i, 1), "-", " ")))
    If UBound(s) = 2 Then
        n = n + 1
        If n = ordre Then Extraire_3_mots = tablo(i, 1): Exit Function
    End If
Next
End Function
A+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
401
Réponses
2
Affichages
418
Retour