Microsoft 365 Recherche 3 mots…

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 26 Mai 2023

• #2

Bonsoir Moanin,
Vraiment succinct comme demande ....
Alors cette formule vous donne le premier trouvé dans la colonne A :

VB:

=EQUIV("Pierre*Granier*Deferre*";A:A;0)

 

Vote positif 0 Vote négatif

M

moanin

XLDnaute Impliqué

• 26 Mai 2023

• #3

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: 26 Mai 2023

Vote positif 0 Vote négatif

M

moanin

XLDnaute Impliqué

• 26 Mai 2023

• #4

J’ai trouvé cette formule mais il semble qu’elle est matricielle et je n’y ai pas accés (Excel 365 pour Ipad)

=SOMME(NBCAR(plage)-NBCAR(SUBSTITUE(plage,"texte","")))/NBCAR(« texte »)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mai 2023

• #5

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

• 3 mots(1).xlsx

  10.1 KB · Affichages: 7

Vote positif 0 Vote négatif

M

moanin

XLDnaute Impliqué

• 26 Mai 2023

• #6

Merci

A quoi correspond B1 à la fin de la formule ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mai 2023

• #7

moanin à dit:

A quoi correspond B1 à la fin de la formule ?

Cliquez pour agrandir...

LIGNE(B1) = 1 pour la formule en B2, s'incrémente en dessous.

 

Vote positif 0 Vote négatif

M

moanin

XLDnaute Impliqué

• 26 Mai 2023

• #8

Ok, j’essaye.

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

Supporter XLD

• 26 Mai 2023

• #9

Peut être avec un filtre avancé, exemple succinct :

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

Supporter XLD

• 26 Mai 2023

• #10

Mettre une étoile de chaque coté des mots recherchés enfin de prendre compte le texte qui pourait être à gauche et à droite :

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 26 Mai 2023

• #11

Bonsoir à tous,

Pour O365, essayez cette formule (le texte est en A1) :

VB:

=LET(X;SUPPRESPACE(SUBSTITUE(A1;"-";" ")); nbr; NBCAR(X)+1-NBCAR(SUBSTITUE(X;" ";""));SI(nbr=3;SUPPRESPACE(A1);""))

 

Vote positif 1 Vote négatif

M

moanin

XLDnaute Impliqué

• 27 Mai 2023

• #12

Merci à tous, la solution de mapomme fonctionne parfaitement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Mai 2023

• #13

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

• 3 mots VBA(1).xlsm

  17.2 KB · Affichages: 1

Vote positif 0 Vote négatif