XL 2016 EXTRAIRE LES CHIFFRES à PARTIR D'une chaîne de caractère

job75

XLDnaute Barbatruc

• 15 Juin 2020

• #2

Bonjour chuckééé,

Le fichier en retour avec cette formule :

Code:

=SUBSTITUE(STXT(A2;TROUVE("(";A2&"(")+1;99);")";)

A+

 

Pièces jointes

• extraire le code de produit.xlsx

  10 KB · Affichages: 7

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 15 Juin 2020

• #3

Bonjour à tous,

Un essai avec cette formule

VB:

=STXT(A2;CHERCHE("(";$A2)+1;CHERCHE(")";$A2)-(CHERCHE("(";$A2)+1))

JHA

 

Pièces jointes

• extraire le code de produit.xlsx

  10.1 KB · Affichages: 6

Vote positif 0 Vote négatif

C

chuckééé

XLDnaute Nouveau

• 15 Juin 2020

• #4

merci Job 75 pour cette réponse sauf que malheureusement, ca ne marche pas pour moi :/

 

Vote positif 0 Vote négatif

C

chuckééé

XLDnaute Nouveau

• 15 Juin 2020

• #5

Bonjour, JHA, votre formule fonctionne très bien, sauf que je me suis rendu compte que j'ai des noms de produits avec d'autres parenthèse ce qui oblige la formule à envoyé des chaines alphanumérique, j'ai remis le fichier en pièces jointes, ou on voit très bien les deux derniers cellules avec le mauvais code produit.
je sais pas comment la corrigé help :/

 

Pièces jointes

• extraire le code de produit (1).xlsx

  10 KB · Affichages: 6

Vote positif 0 Vote négatif

J

JHA

XLDnaute Barbatruc

• 15 Juin 2020

• #6

Bonjour à tous,

Sans grande conviction, comme je vois que tes codes font 6 caractères au plus dans ta liste.

VB:

=SUBSTITUE(STXT(DROITE(A2;8);CHERCHE("(";DROITE($A2;8))+1;ABS(CHERCHE(")";DROITE($A2;8))-(CHERCHE("(";DROITE($A2;8))+1)));")";"")

Copier vers le bas

JHA

 

Pièces jointes

• extraire le code de produit (1).xlsx

  10.2 KB · Affichages: 8

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 15 Juin 2020

• #7

Bonsoir @chuckééé, @job75, @JHA ,

chuckééé à dit:

sauf que je me suis rendu compte que j'ai des noms de produits avec d'autres parenthèse

Cliquez pour agrandir...

Voyez cette formule :

Code:

=SUBSTITUE(SUPPRESPACE(DROITE(SUBSTITUE(A2;"(";REPT(" ";255));255));")";)

 

Pièces jointes

• chuckééé-extraire le code de produit- v1.xlsx

  9.8 KB · Affichages: 12

Vote positif 0 Vote négatif

Solution

job75

XLDnaute Barbatruc

• 15 Juin 2020

• #8

Re, salut JHA, mapomme,

chuckééé à dit:

merci Job 75 pour cette réponse sauf que malheureusement, ca ne marche pas pour moi :/

Cliquez pour agrandir...

Pour vous ??? Sur le fichier du post #2 il n'y a pourtant pas de problème !

Maintenant s'il y a des parenthèses en pagaille le plus simple est d'utiliser cette fonction VBA :

VB:

Function CodeProduit$(txt$)
If InStrRev(txt, "(") Then CodeProduit = Replace(Mid(txt, InStrRev(txt, "(") + 1), ")", "")
End Function

Fichier .xlsm joint, le code de la fonction doit être impérativement dans un module standard.

Le code de produit doit être entre parenthèses et situé en fin de texte.

A+

 

Pièces jointes

• Code de produit VBA (1).xlsm

  15.6 KB · Affichages: 8

Vote positif 0 Vote négatif

C

chuckééé

XLDnaute Nouveau

• 3 Juillet 2020

• #9

mapomme à dit:

Bonsoir @chuckééé, @job75, @JHA ,



Voyez cette formule :

Code:

=SUBSTITUE(SUPPRESPACE(DROITE(SUBSTITUE(A2;"(";REPT(" ";255));255));")";)

Cliquez pour agrandir...

Merci beaucoup, Ma pomme ^^, votre formule marche très bien même si j'ai pas trop compris la partie REPT(" ";255));255)).

merci beaucoup, encore une fois

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 3 Juillet 2020

• #10

Bonjour @chuckééé ,

chuckééé à dit:

même si j'ai pas trop compris la partie REPT(" ";255));255)).

Cliquez pour agrandir...

Supposons que la phrase à traiter soit : aaa bbb ccc ddd (eee). La chaine à extraire est eee.

On remplace toute les parenthèse ouvrantes par une chaine de caractère de 255 espaces soit REPT(" ";255)). ce qui donne la formule : SUBSTITUE(A2;"(";REPT(" ";255))
La chaine qui en résulte est (on se limite aux derniers caractères) : aaa...ddd (255 espaces)eee)

Ensuite, on ne retient que les 255 caractères à droite.
DROITE(SUBSTITUE(A2;"(";REPT(" ";255));255)
La chaine qui en résulte est : (un certain nombre s'espace)eee)

A ce stade on voit qu'on a presque notre information désirée qui devra être eee.

On remplace les espaces consécutifs par un seul espace et on supprime les espaces en tête et en queue de chaine avec la fonction Supprespace :
SUPPRESPACE(DROITE(SUBSTITUE(A2;"(";REPT(" ";255));255))
Ce qui donne eee)

Il ne nous reste plus qu'à remplacer les parenthèses fermantes par rien:
SUBSTITUE(SUPPRESPACE(DROITE(SUBSTITUE(A2;"(";REPT(" ";255));255));")"

Nota : si la chaine à extraire a 255 caractères ou plus, il faudra augmenter la valeur de 255. En général ça suffit.

 

Vote positif 0 Vote négatif