Référence | Nom | résultat souhaité |
10202015 | ENDOPROTHESE VASCULAIRE PERIPH AUTOEXP LIFESTENT 5Fr 7,0 x 080mm P:080cm 5F070801C | 5F070801C |
6236783 | AIG BIOPSIE 14G 60MM T146 | |
6236800 | AIG BIOPSIE 16G 60MM T166 | |
6220559 | AIGUILLE/PINCE SCORPION MULTIFIRE A ENCOCHE AR-13995N | |
6277439 | BALLON ULTRA-SON ECHO-ENDO. B20BU ref 16163074 | |
=DROITE(A1;EQUIV(" ";STXT(A1;NBCAR(A1)-LIGNE($1:$255);1);0))
Private Function RefFournisseur(target As Range) As String
a = Split(target, " ")
RefFournisseur = a(UBound(a))
End Function
Bonjour,Bonjour
je cherche le moyen d'extraire les derniers caractères du nom de mon produit.
Ces derniers caractères sont tous après le dernier espace du Nom et correspondent à la référence fournisseur de mon produit.
Est ce que cela est possible?
Merci d'avance de votre aide
Référence Nom résultat souhaité 10202015 ENDOPROTHESE VASCULAIRE PERIPH AUTOEXP LIFESTENT 5Fr 7,0 x 080mm P:080cm 5F070801C 5F070801C 6236783 AIG BIOPSIE 14G 60MM T146 6236800 AIG BIOPSIE 16G 60MM T166 6220559 AIGUILLE/PINCE SCORPION MULTIFIRE A ENCOCHE AR-13995N 6277439 BALLON ULTRA-SON ECHO-ENDO. B20BU ref 16163074
=DROITE(B2;NBCAR(B2)-SIERREUR(TROUVE(CAR(1);SUBSTITUE(B2;" ";CAR(1);NBCAR(B2)-NBCAR(SUBSTITUE(B2;" ";""))));0)
Je recopie mon message ici, je crains de ne pas avoir mis ma réponse au bon endroit, désolée, je débute en forums..Bonjour à tous
@Kris22
Je te propose cette formule si tes données sont en A1 par exemple
A valider par Ctrl + Maj + Entrée
Regarde la pièce jointe 1199140
Formule de JB
Merci de ton retour
Merci beaucoup GégéBonjour,
par formule, en supposant que la colonne "Nom" est la colonne B et que le titre est en B1 :
à étirer sur les lignes vouluesVB:=DROITE(B2;NBCAR(B2)-SIERREUR(TROUVE(CAR(1);SUBSTITUE(B2;" ";CAR(1);NBCAR(B2)-NBCAR(SUBSTITUE(B2;" ";""))));0)
Cordialement
Oui, c'est possible.Est ce que cela est possible?
=DROITE(B2;NBCAR(B2)-TROUVE(CAR(160);B2))
Merci beaucoup,Hello
avec une fonction personnalisée
VB:Private Function RefFournisseur(target As Range) As String a = Split(target, " ") RefFournisseur = a(UBound(a)) End Function
tu mets ca dans un module standard
et tu utilises la fonction comme une fonction excel en C2
=RefFournisseur(B2)
et comme ton exemple contient autre chose que des espaces
Merci, c'est très compliqué mais à ça fonctionne bien aussiune autre, plus alambiquée, fondée sur le meme principe
=DROITE(SUBSTITUE(E4;" ";"$";SOMME((STXT(E4;LIGNE(INDIRECT("$1:$"&NBCAR(E4)));1)=CAR(32))*1));NBCAR(E4)-CHERCHE("$";SUBSTITUE(E4;" ";"$";SOMME((STXT(E4;LIGNE(INDIRECT("$1:$"&NBCAR(E4)));1)=CAR(32))*1))))
je cherche combien il y a d"espace dans le mot, je remplace le dernier par $ je cherche la place de $ dans le mot et je prends le reste du mot apres $
ah c'est top, merci infinimentBonjour,
Oui, c'est possible.
Si le tableau que tu as mis dans ta question est représentatif de ton vrai tableau, je te propose ceci :
Code:=DROITE(B2;NBCAR(B2)-TROUVE(CAR(160);B2))
Formule de JB
=SUPPRESPACE(DROITE(SUBSTITUE(SUPPRESPACE(SUBSTITUE(A1;CAR(160);" "));" ";REPT(" ";250));250))