XL 2016 VBA Normaliser une description de produits

Vero2782 · 15 Avril 2017

Bonjour,

J'ai différentes description de produit en colone A et j'aimerais enlever l'information superflue de cette description pour laisser que la description du produit en colone C.

exemple de description de produit : en colone A
Chips 25% moins de sel 141g/6
Savon à main l'orange 500ml/12
Lotion orig. 50ml
etc.

Résultat attentu en colone C
Chips 25% moins de sel
Savon à main l'orange
Lotion orig.

Dans ma feuille excel j'ai fait :
colone B =min(find({1,2,3,4,5,6,7,8,9},A1&"0123456789"))
Colone C = left(A1,B1-1)
(même avec mes formule excel, j'ai décidé d'abandonner pour les chips... tant pis pour le 25% moins de sel mais idéalement, j'aurais aimé le garder dans la description.)

J'aimerais trouver trouver la façon VBA de faire ses opérations. Actuellement, j'ai essayé une Worksheetfunction mais les accolades { } et les guillemets me cause problème.
Range(C1)=application.Worksheetfunction.min(find({1,2,3,4,5,6,7,8,9},A1&"0123456789"))

J'ai aussi essayé avec Formulaarray et ça ne fonctionne pas plus...
Range(C1)=formulaarray=min(find(1,2,3,4,5,6,7,8,9,A1&"0123456789"))

À chaque fois que j'ai des accolades dans mes formules, je galère vraiment plus sur VBA. 🙁

Merci

Véro

mapomme · 15 Avril 2017

Bonjour Vero2782,

Essayez la fonction personnalisée PRODUITcourt(X) ci-dessous :

VB:

Function PRODUITcourt(X) As String
Dim T

  PRODUITcourt = X
  T = Split(X)
  If T(UBound(T)) Like "#*" And UBound(T) > 0 Then
    ReDim Preserve T(0 To UBound(T) - 1)
    PRODUITcourt = Join(T)
  End If
End Function

JHA · 15 Avril 2017

Bonjour à tous,

Peut être en recherchant le dernier espace de la phrase.
A essayer pour le texte en "A2"

Code:

=GAUCHE(A2;MAX(SI(STXT(A2;LIGNE(INDIRECT("1:"&NBCAR(A2)));1)=" ";LIGNE(INDIRECT("1:"&NBCAR(A2))))))

Formule à valider en matricielle (Ctrl+Maj+Entrée)

Edit:
Une autre formule (non matricielle) qui recherche le dernier espace de la phrase.

Code:

=GAUCHE(A2;CHERCHE("Ω";SUBSTITUE(A2;" ";"Ω";NBCAR(A2)-NBCAR(SUBSTITUE(A2;" ";"")))))

à valider par entrée

JHA

Vero2782 · 18 Avril 2017

Bonjour à vous deux,

Premièrement merci beaucoup de vos réponses.

Ma Pomme : C'était exactement ça que j'avais besoin et ça fonctionne mieux que mes formules originales ça correspond 100% a ce que je cherchais. En plus, j'ai appris a créer un fonction avec ton code 😉 c'est un 2 dans 1 pour moi ! Un gros Merci !

JHA : J'ai essayé les deux formules, elle n'ont pas fonctionné pour moi. Peut-être dû à ma traduction français-anglais (même si je crois avoir utiliser les mêmes fonctions).

Encore merci et bonne soirée !

Véro

JHA · 18 Avril 2017

Bonjour à tous,

Pour info, avec les formules sur le fichier de Mapomme🙂

JHA

XL 2016 VBA Normaliser une description de produits

Vero2782

Guest

mapomme

XLDnaute Barbatruc

Pièces jointes

JHA

XLDnaute Barbatruc

Vero2782

Guest

JHA

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

XL 2016 VBA Normaliser une description de produits

Vero2782

Guest

mapomme

XLDnaute Barbatruc

Pièces jointes

JHA

XLDnaute Barbatruc

Vero2782

Guest

JHA

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency