Autres Récupération d'une chaîne de caractère après une occurrence "/"

[eric57]

Bonjour le Forum

Je vous expose mon souci actuel .

Je dois traiter en vba un tableau contenant des liens en colonne A

Par ex :

Relais 0419-2S AC / 200-240V Miele 5008870 - Pièces lave-vaisselle

Pièces pour lave-vaisselle. Relais 0419-2S AC / 200-240V Miele 5008870 - Chauffage pour les Autres Marques - Relais 419-2S - 220V/50HZ Miele 5008870 Ex Relai...

www.cyberpieces.com

Joint De Tour de Porte Brandt AS0010960 - Pièces lave-vaisselle

Pièces pour lave-vaisselle. Joint De Tour de Porte Brandt AS0010960 - Joints pour Groupe Brandt - Joint De Tour de Porte Brandt AS0010960

www.cyberpieces.com

Le but est d'obtenir en colonne B les chiffres présent derrière le dernier "/"

J'ai essayé avec la formule suivante

Nb = Len(Range("A61")) - Len(Replace(Range("A61"), "/", "", , , vbTextCompare))

Pour obtenir la position du dernier "/" mais je ne sais pas comment traiter ensuite cette information pour extraire ma chaîne de caractère

Merci d'avance à ceux qui voudront bien m'aider

 

[sylvanu]

Bonjour Eric,
Peut être avec cette petite fonction perso :

Function Nom(C$)
    T = Split(C, "/")
    Nom = T(UBound(T))
End Function

La syntaxe est =Nom(cellule)

 

[eric57]

Merci @sylvanu pour ta réponse rapide, mais ce n'est que les chiffres présents derrière le "/" que je dois récupèrer ( entre le dernier"/" et le "-" suivant )

Dans mon exemple je ne dois donc retrouver que 43296 et 10684

Mais ta fonction va me servir dans un autre tableau sur lequel je travail aussi, donc déjà merci 🙂

 

[sylvanu]

mais ce n'est que les chiffres présents derrière le "/" que je dois récupèrer ( entre le dernier"/" et le "-" suivant )

Guère plus compliqué. 🙂

Function Nom(C$)
    T = Split(C, "/")
    Nom = Val(Split(T(UBound(T)), "-")(0))
End Function

 

[eric57]

Merci bcp je vais m'atteler a intégrer cela dans ma macro

Merci @sylvanu

 

[Phil69970]

Bonjour @eric57 et Sylvain

Et pourquoi pas une formule sans VBA

Merci de ton rretour

@Phil69970

 

[patricktoulon]

re
Bonsoir a tous
juste en passant
une autre méthode
en string il y a Instr mais aussi InstrRev

Function NomX(C$)
NomX = Mid(C, InStrRev(C, "/") + 1)
End Function

InstrRev part de la droite et donne le nombre de caractères vers la droite ou se trouve le caractère en argument
plus véloce et on le constate bien sur un nombre important de lignes

 

[job75]

Bonsoir,

Le but est d'obtenir en colonne B les chiffres présent derrière le dernier "/"

@Phil69970 avec ta formule s'il y a un nombre avant le dernier slash / c'est lui qui sera renvoyé.

A+

 

[job75]

Bonjour le forum,

Voyez le fichier joint et les 5 noms définis lig item pslash deb fin (les 2 premiers sont des matrices).

Formule en B2 =STXT(A2;deb;fin-deb)

A+