Trouver le 6e mot/chiffre d'une phrase

J

JHA

XLDnaute Barbatruc

• 21 Juillet 2020

• #2

Bonjour à tous,

A essayer

VB:

=STXT(A2;CHERCHE("ù";SUBSTITUE(A2;" ";"ù";5))+1;4)

JHA

 

Pièces jointes

• Classeur substitue.xlsx

  9 KB · Affichages: 10

Vote positif 0 Vote négatif

C

Catoux

XLDnaute Nouveau

• 21 Juillet 2020

• #3

Tellememt contente ça fonctionne merci merci merciii

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 21 Juillet 2020

• #4

Bonjour à tous,

Si tu as plus ou moins de 4 caractères entre les espaces.

VB:

=STXT(A2;CHERCHE("ù";SUBSTITUE(SUBSTITUE(A2;" ";"ù";5);" ";"Ω";5))+1;(CHERCHE("Ω";SUBSTITUE(SUBSTITUE(A2;" ";"ù";5);" ";"Ω";5)))-(CHERCHE("ù";SUBSTITUE(SUBSTITUE(A2;" ";"ù";5);" ";"Ω";5))+1))

JHA

 

Pièces jointes

• Classeur substitue bis.xlsx

  9.3 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Juillet 2020

• #5

Bonsoir Catoux, JHA,

Fichier joint avec cette fonction VBA :

VB:

Function Trouve6(t$)
Trouve6 = ""
If UBound(Split(t)) > 4 Then Trouve6 = Split(t)(5)
If IsNumeric(Trouve6) Then Trouve6 = CDbl(Trouve6)
End Function

Le code doit être impérativement dans un module standard.

A+

 

Pièces jointes

• Trouve6(1).xlsm

  15.3 KB · Affichages: 8

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 21 Juillet 2020

• #6

Bonsoir,
Une autre formule :

VB:

=SIERREUR(1*SUPPRESPACE(DROITE(SUBSTITUE(GAUCHE(A1 & REPT(" ";6);CHERCHE("x";SUBSTITUE(A1 & REPT(" ";6);" ";"x";6))-1);" ";REPT(" ";255));255));"")

La formule précédente recherche un nombre. Si vous voulez un mot, supprimez 1* dans la formule.

 

Pièces jointes

• Catoux- extraction nombre- v1.xlsx

  10.2 KB · Affichages: 9

Dernière édition: 22 Juillet 2020

Vote positif 0 Vote négatif

C

Catoux

XLDnaute Nouveau

• 24 Juillet 2020

• #7

Merci pour vos excellentes réponses! Je ne connais pas du tout le VBA

Je cherche une façon de remplacer A6 de cette formule pour que ça fasse référence au mot Trouble mémoire, car cette valeur peut ne pas se retrouver à la même position d'un excel à l'autre.. Dans la première partie de cette formule j'ai insérer (DECALER(INDEX(A1:A21;EQUIV("Trouble mémoire";A1:A21;0);1);5;0) comme formule substitue à A6 mais ça ne fonctionne pas pour le A6 après SUBSTITUE. Je n'y arrive pas malgré plusieurs essaies différents.

FORMULE COMPLÈTE:
=STXT(DECALER(INDEX(A1:A21;EQUIV("Trouble mémoire";A1:A21;0);1);5;0);CHERCHE("ù";SUBSTITUE(A6;" ";"ù";5))+1;4)

 

Pièces jointes

• besoin aide.xlsx

  8.8 KB · Affichages: 3

Vote positif 0 Vote négatif

C

Catoux

XLDnaute Nouveau

• 24 Juillet 2020

• #8

mapomme à dit:

Bonsoir,
Une autre formule :

VB:

=SIERREUR(1*SUPPRESPACE(DROITE(SUBSTITUE(GAUCHE(A1 & REPT(" ";6);CHERCHE("x";SUBSTITUE(A1 & REPT(" ";6);" ";"x";6))-1);" ";REPT(" ";255));255));"")

La formule précédente recherche un nombre. Si vous voulez un mot, supprimez 1* dans la formule.

Cliquez pour agrandir...

C'est PRESQUE parfait!!!! Il renvoit seulement 1 chiffre d'avance donc ça renvoit au chiffre 7 au lieu de 20.0 dans mon fichier lorsque je copie colle la formule. Mais je vais vérifier avec votre démonstration excel! Merci !!

 

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 24 Juillet 2020

• #9

Bonjour à tous,

A essayer

VB:

=STXT(DECALER(INDEX(A1:A21;EQUIV("Trouble mémoire";A1:A21;0);1);5;0);CHERCHE("ù";SUBSTITUE(DECALER(INDEX(A1:A21;EQUIV("Trouble mémoire";A1:A21;0);1);5;0);" ";"ù";5))+1;4)

JHA

 

Vote positif 0 Vote négatif