XL 2019 Extraction de lettre

[blancolie]

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 :

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

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

Cordialement

 

[surchat]

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é!

 

[surchat]

=+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

 

[Modeste geedee]

Bonsour®

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 :

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

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

Cordialement

avec une fonction personnalisée (split)

 

[patricktoulon]

bonjour
je rejoins Modeste geedee

dans un module

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);"")

 

[patricktoulon]

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

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

 

[jmfmarques]

Bonjour à tous
à blancolie :

j'aimerais obtenir ce résultat F-AGAUKUAM

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" ?

 

[Modeste geedee]

Bonsour®

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

pourtant tout est là :
#4

 

[surchat]

et #3 aussi

 

[mapomme]

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:

=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);""))

 

[blancolie]

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

 

[blancolie]

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

 

[mapomme]

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

Et que donne la formule dans ce premier cas ?

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

 

[blancolie]

SI si désolé cela marche.

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

 

[blancolie]

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.