EXCEL & VBA ||| Save my life !

Fermé
Ophelie75 Messages postés 264 Date d'inscription vendredi 11 juillet 2008 Statut Membre Dernière intervention 9 juillet 2009 - 16 juil. 2008 à 18:37
Ophelie75 Messages postés 264 Date d'inscription vendredi 11 juillet 2008 Statut Membre Dernière intervention 9 juillet 2009 - 17 juil. 2008 à 11:03
Salut à tous,

Voila je débute en macro (j'ai commencé aujourd'hui!!!) et j'ai un problème q'une macro pourrait certainement résoudre. Seul hic, je n'ai aucune idée de comment la faire...

PRoblème :

En colonne E j'ai mes références produits. Exemple de référence :
MO-DR3.790.130/MNO

En colonne L j'ai la dimension du produit. Exemple de dimension:
GM (=grand modèle)

>>> la dimension se trouve dans la référence, chiffre juste après le premier point (le "7" dans le cas présent) <<<
1 = Mini
2 = PM
4 = MM
5 = MM
7 = GM
8 = TGM
9 = Maxi

Existe t-il un moyen d'afficher la dimension dans la colonne L automatiquement?

Si qqun à la gentillesse de regarder mon message...

Merci

Ophelie
A voir également:

5 réponses

Ophelie75 Messages postés 264 Date d'inscription vendredi 11 juillet 2008 Statut Membre Dernière intervention 9 juillet 2009 19
16 juil. 2008 à 18:54
Je ne sais pas si c'est clair...

En gros ca serait :

rechercher le caractère n°8 dans chaque référence

et voir à quelle dimension il renvoie...

1 = Mini
2 = PM
4 = MM
5 = MM
7 = GM
8 = TGM
9 = Maxi

Merci

Ophélie
0
Ophelie75 Messages postés 264 Date d'inscription vendredi 11 juillet 2008 Statut Membre Dernière intervention 9 juillet 2009 19
16 juil. 2008 à 19:14
c'est pas compréhensible?
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
16 juil. 2008 à 20:53
bonjour,

voilà une méthode pour retrouver le chiffre après le 1er point:

Function returnChiffre(ByVal str as String) As Integer
    returnChiffre = CInt(Mid(str, InStr(1, str, ".") + 1, 1))
End Function


;o)
0
Je peux proposer une solution mais sans macro.

E1 contient MO-DR3.790.130/MNO

EN L1 (sur la même ligne...)
=SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE(SUBSTITUE
(STXT(E1;8;1);"1";"Mini");"2";"PM");"4";"MM");"5";"MM");"7";"GM");"8";"TGM");"9";"Maxi")


ed
0
Ophelie75 Messages postés 264 Date d'inscription vendredi 11 juillet 2008 Statut Membre Dernière intervention 9 juillet 2009 19
17 juil. 2008 à 10:47
Salut edi,

ta formule m'interesse bcp mais le probleme c'est quelle écrit n'importe quoi!!!

par exemple 2=mini alors que ca devrait etre PM...

et ainsi de suite...

J'avoue que je ne comprends pas cette formule...

Quant à la macro cela pourrait ^étre génial, mais elle ne fonctionne pas!

Y-a t'il un magicien par ici?

Ophélie
0
Ophelie75 Messages postés 264 Date d'inscription vendredi 11 juillet 2008 Statut Membre Dernière intervention 9 juillet 2009 19
17 juil. 2008 à 10:52
Euuuuh oups

non en fait c'est moi qui dit n'importe quoi la formule marche très bien!!!

MERCI EDI!!!

J'aimerais bien que l'on me l'explique...

Et si aussi vous pouvez jeter un oeil à la macro, j'aimerais bien m'en servir pour autre chose!!!

Merci les loulous super ce forum les gens sont trop sympa!

Ophelie
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Ophelie75 Messages postés 264 Date d'inscription vendredi 11 juillet 2008 Statut Membre Dernière intervention 9 juillet 2009 19
17 juil. 2008 à 11:03
En fait c'est quoi tous ces SUBSTITTUTE?
0