XL 2019 Extraction de lettre

surchat

XLDnaute Occasionnel

• 2 Mai 2020

• #2

Bonjour,
Questions:
a. le texte contient minimum et maximum combien de mots
b. dans votre texte, il y a
> 2 espaces entre le premier et deuxième mot
> 2 espaces entre le 2ième et le 3ième mot
> 1 espace entre le 3ième et 4 dème mot

Très risqué!

 

Vote positif 0 Vote négatif

surchat

XLDnaute Occasionnel

• 2 Mai 2020

• #3

=+LEFT(D4,1)&"-"&+LEFT(C4,2)&+MID($C$4,F4+1,2)&+MID($C$4,G4+1,2)&MID($C$4,H4+1,2)

Formule à adapter en fonction des réponses aux message #2

 

Pièces jointes

• Classeur212 v1.xlsx

  9.2 KB · Affichages: 10

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 2 Mai 2020

• #4

Bonsour®

blancolie à dit:

Bonjour le forum,

Dans le fichier ci-dessous, j'aimerais obtenir ce résultat F-AGAUKUAM dans la cellule B4 à partir de ces mots AGASTACHE AURANTIACA KUDOS AMBROSIA et Fanfelle.

J'ai essaye avec cette formule :

Code:

GAUCHE(A1;1) & STXT(A1;CHERCHE(" ";A1)+1;1)

mais j'arrive pas à avoir le résultat escompté.

Cordialement

Cliquez pour agrandir...

avec une fonction personnalisée (split)

 

Pièces jointes

• blancolie.xlsm

  22.4 KB · Affichages: 17

Dernière édition: 2 Mai 2020

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Mai 2020

• #5

bonjour
je rejoins Modeste geedee

dans un module

VB:

Function RefCode(valeur As String)
Dim t, I&,x$
t = Split(Application.Trim(valeur), " ")
For I = 0 To UBound(t): x = x & Left(t(I), 2): Next
RefCode = x
End Function

et dans la cellule B4 tu met
=SI(C4<>"";RefCode(C4);"")

et tu étends la formule vers le bas autant que besoins est

la particularité de cette fonction c'est que j'utilise application.trim pour régulariser le nombre d'espace a 1 entre chaque mots et supprime bien entendu les éventuels espace devant et après la chaîne complète
parti de là le left(part,2) de chaque item du split est concaténé dans la boucle sur "x"
et voila c'est plus simple

et si tu veux la "D4" avec
=SI(C4<>"";RefCode(C4&" " &D4);"")

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Mai 2020

• #6

j'oubliais
si tu veux tout en allcaps (majuscule)

VB:

Function RefCode(valeur As String)
Dim t, I&
t = Split(Application.Trim(valeur), " ")
For I = 0 To UBound(t): x = x & Left(t(I), 2): Next
RefCode = UCase(x)
End Function

 

Vote positif 0 Vote négatif

J

jmfmarques

XLDnaute Accro

• 2 Mai 2020

• #7

Bonjour à tous
à blancolie :

j'aimerais obtenir ce résultat F-AGAUKUAM

Cliquez pour agrandir...

Tu ne dis rien de ce "F-" et je n'ai vu personne s'en préoccuper .
Est-ce toujours "F-" ? Et si non : à partir de quoi et comment détermines-tu ce "préfixe" ?

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 2 Mai 2020

• #8

Bonsour®

jmfmarques à dit:

Tu ne dis rien de ce "F-" et je n'ai vu personne s'en préoccuper .

Cliquez pour agrandir...

pourtant tout est là :
#4

 

Vote positif 0 Vote négatif

surchat

XLDnaute Occasionnel

• 2 Mai 2020

• #9

et #3 aussi

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Mai 2020

• #10

Bonjour à tous,

On prend les deux premiers caractères de chaque mot. On est limité à 4 mots. Il est aisé de de l'étendre à 5 mots voire plus.

Une formule matricielle en B4 à tirer vers le bas:

VB:

=MAJUSCULE("F-"
&  SIERREUR(STXT(SUPPRESPACE($C4);PETITE.VALEUR(SI(STXT(" "&SUPPRESPACE($C4);LIGNE(INDIRECT("1:"&NBCAR(SUPPRESPACE($C4))+1));1)=" ";LIGNE(INDIRECT("1:"&NBCAR(SUPPRESPACE($C4))+1));"");1);2);"")
& SIERREUR(STXT(SUPPRESPACE($C4);PETITE.VALEUR(SI(STXT(" "&SUPPRESPACE($C4);LIGNE(INDIRECT("1:"&NBCAR(SUPPRESPACE($C4))+1));1)=" ";LIGNE(INDIRECT("1:"&NBCAR(SUPPRESPACE($C4))+1));"");2);2);"")
& SIERREUR(STXT(SUPPRESPACE($C4);PETITE.VALEUR(SI(STXT(" "&SUPPRESPACE($C4);LIGNE(INDIRECT("1:"&NBCAR(SUPPRESPACE($C4))+1));1)=" ";LIGNE(INDIRECT("1:"&NBCAR(SUPPRESPACE($C4))+1));"");3);2);"")
& SIERREUR(STXT(SUPPRESPACE($C4);PETITE.VALEUR(SI(STXT(" "&SUPPRESPACE($C4);LIGNE(INDIRECT("1:"&NBCAR(SUPPRESPACE($C4))+1));1)=" ";LIGNE(INDIRECT("1:"&NBCAR(SUPPRESPACE($C4))+1));"");4);2);""))

 

Pièces jointes

• blancolie- codes- v1.xlsx

  12.2 KB · Affichages: 9

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 2 Mai 2020

• #11

Bonjour tout le monde et merci pour votre réponse.

F = le nom de notre fournisseur pour les annuelles.
si ce sont des vivaces ce sera C pour chombart
V pour Ververt pour les bulbes

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 2 Mai 2020

• #12

Merci mapomme par contre pour le premier cas, la formule ne prend pas tout les premieres lettres.

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 2 Mai 2020

• #13

blancolie à dit:

Merci mapomme par contre pour le premier cas, la formule ne prend pas tout les premieres lettres.

Cliquez pour agrandir...

Et que donne la formule dans ce premier cas ?

Le mieux est de renvoyer le fichier avec l'erreur...

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 2 Mai 2020

• #14

SI si désolé cela marche.

Donc si je comprends bien il y 4 lignes par plantes ?

 

Vote positif 0 Vote négatif

B

blancolie

XLDnaute Impliqué

• 2 Mai 2020

• #15

Bonjour Surchat,

au maximum, il y a 5 mots, cela dépends des plantes. il y a juste un tiret entre F(Fanfelle) F qui va nous indiqué le fournisseur et pour les autres mots, pas d'espaces du tout.

J'ai vu que ta solution nécessité plusieurs étapes pour arriver au résultat final.

 

Vote positif 0 Vote négatif