extraire les deux premières lettres d'une chaîne de mots Résolu

Question

Bonjour à tous, 
J'ai besoin d'aide car je bute sur la dernière étape de ma formule excel.
Je vous explique, je cherche a créer une référence produit en automatique. La désignation possède de 1 à 4 mots. Lorsqu'il n'y a qu'un seul mot dans la désignation, la formule doit donner les 4 premières lettre du mot unique. Lorsque la désignation possède 2 mots et plus, elle doit donner les 2 premières lettres de chaque mot qui compose la désignation.
Exemple (au pif)
Désignation 1 : Moissonneuse => Ref : MOIS
Désignation 2 : Moissonneuse Batteuse => Ref : MOBA
Désignation 3 : Moissonneuse Batteuse Faucheuse => Ref : MOBAFA
Voici ma formule :
Pour les désignations avec un seul mot (formule ok)
=SI((NBCAR(D2)-NBCAR(SUBSTITUE(D2;" ";""))+1)=1;(GAUCHE(D2;4));)
Formule à la suite de la première => pour les désignations avec 2 mots (formule ok)
&(SI((NBCAR(D2)-NBCAR(SUBSTITUE(D2;" ";""))+1)=2;(GAUCHE(D2;2)&STXT(D2;CHERCHE(" ";2)+1;2));))
Formule à la suite de la seconde => pour les désignations avec 3 mots (formule ok)
&(SI((NBCAR(D8526)-NBCAR(SUBSTITUE(D8526;" ";""))+1)=3;(GAUCHE(D2;2)&STXT(D2;CHERCHE(" ";D2)+1;2)&STXT(D2;(CHERCHE(" ";D2;CHERCHE(" ";D2;1)+1))+1;2));))
La formule que j'ai pour les désignations à 4 mots ne fonctionne pas, quelqu'un aurait une idée pour m'aider?
Merci d'avance, c'est très important pour moi
Configuration: Windows / Internet Explorer 11.0

poparnassus · Answer

En faite faut compter les espace vides je penses

DjiDji59430 · Answer

Bonjour,
Un essai
https://www.cjoint.com/c/GBvsThyRzpi
Crdmt

Vaucluse · Answer

Bonsoir
essayez celle ci qui semble, sauf erreur donner ce que vous voulez:
=MAJUSCULE(GAUCHE(A1;2)&SIERREUR(STXT(A1;TROUVE("/";SUBSTITUE(A1;" ";"/";1))+1;2);"")&SIERREUR(STXT(A1;TROUVE("/";SUBSTITUE(A1;" ";"/";2))+1;2);"")&SIERREUR(STXT(A1;TROUVE("/";SUBSTITUE(A1;" ";"/";3))+1;2);""))
pour admettre plus de mots, il suffit de coller à la suite des items &SIERREUR(........);"") en changeant le N° de rang du " " à remplacer dans le code substitue
SUBSTITUE(A1;" ";"/";1))+1;2)
SUBSTITUE(A1;" ";"/";2))+1;2)
SUBSTITUE(A1;" ";"/";3))+1;2)
(ne fonctionne avec SIERREUR qu'à partir d'Excel 2007)
crdlmnt
La qualité de la réponse dépend surtout de la clarté de la question, merci!

PHILOU10120 · Answer

Bonjour Claire
Essayer cette formule
=SI(A1="";"";SI(SIERREUR(TROUVE(" ";A1;1);"")="";GAUCHE(A1;4);SIERREUR(SI(TROUVE("+";SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;" ";"+";1);" ";"-";1);" ";"/";1));GAUCHE(A1;2);0);"")&SIERREUR(STXT(A1;TROUVE("+";SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;" ";"+";1);" ";"-";1);" ";"/";1))+1;2);"")&SIERREUR(STXT(A1;TROUVE("-";SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;" ";"+";1);" ";"-";1);" ";"/";1))+1;2);"")&SIERREUR(STXT(A1;TROUVE("/";SUBSTITUE(SUBSTITUE(SUBSTITUE(A1;" ";"+";1);" ";"-";1);" ";"/";1))+1;2);""))) 
le texte est en A1 dans ma formule

Claire · Answer

Merci à tous pour vos réponses, c'est exactement ce que je cherchais et cela va beaucoup m'aider!
Bonne soirée
Claire

momo · Answer

Bonjour
voila une function en vba
http://www.cjoint.com/c/GBvtJSac8R4
A+
Maurice

via55 · Answer

Bonsoir à tous
Et une autre possibilité avec une fonction personnalisée à mettre dans un module de l'éditeur VBA (ALT+F11 pour ouvrir Editeur puis Inserer - Module et copier-coller la fonction suivante dans la page blanche avant de refermer l'éditeur
Function reference(cel As Range)
'si mot unique (pas d'espace) on prend les 4 premieres lettres
If Len(cel.Value) = Len(Application.WorksheetFunction.Substitute(cel.Value, " ", "")) Then
reference = Left(cel.Value, 4)
'sinon on découpe la chaine en fonction des espaces
Else
tableau = Split(cel.Value, " ")
     'boucle sur le tableau et on concatene les 2 premoeres lettres de chaque item
    For i = 0 To UBound(tableau)
    reference = reference & Left(tableau(i), 2)
    Next
End If
'enfin le resultat est mis en majuscules
reference = UCase(reference)
End Function
La fonction s'utilise alors comme n'importe quelle fonction selon la syntaxe :
= reference(adresse produit à référencer) par ex reference(A1)
Cdlmnt
Via

Mike-31 · Answer

Bonsoir le fil,
j'arrive après la bataille avec une autre approche qui peut servir
=SI(NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";""))+1=3;GAUCHE(DROITE(A1;NBCAR(A1)-TROUVE(" ";A1;TROUVE(" ";A1)+1));2);SI(NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";""))+1=2;GAUCHE(A1;2)&GAUCHE(SUPPRESPACE(STXT(A1;TROUVE(" ";A1;TROUVE(" ";A1;1)-1);20));2);SI(NBCAR(A1)-NBCAR(SUBSTITUE(A1;" ";""))+1=1;GAUCHE(A1;4);"")))

Extraire les deux premières lettres d'une chaîne de mots

8 réponses

Votre réponse

Discussions similaires

Newsletters