Discussion :

[airone76]

bonjour,

je suis novice en programmation en ligne de commande en vba(utilisateur de macro excel plutôt ), je me permets de vous solliciter pour avoir votre aide.

Voici mon probléme :

j'ai trois données : a) prix b) année c ) mois

par exemple :

Prix année mois code
3.19 2009 11 19911

pour générer le code , on ne garde que les centimes du prix donc 19 ( avec un masque ? pour l extraire ?)
sur la variable année je ne gardes que le dernier chiffre donc le 9 ( opérateur de décalage ? >>4 par exemple ?

la variable mois est conservée telle qu'elle donc 11

le code génèré souhaité serait donc 19911

merci de votre aide cf en piéce jointe le tableur type

[EmmanuelleC]

formule

Pour les formules ci dessous, j'ai présupposé que le prix est en A1, l'année en B1 et le mois en C1, adapte en fonction de la réalité

les centimes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ARRONDI((A1-ARRONDI.INF (A1;0))*100;0)

donc on prend le nombre avec ses centimes, moins la partie entiere. Il reste les centimes qu'on multiplie par 100

l'année:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=DROITE(B1;1)

on prend le premier caractere a partir de la droite


Le mois est concservé tel quel

Reste a regrouper

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=(ARRONDI((A1-ARRONDI.INF (A1;0))*100;0))&(DROITE(B1;1))&(C1)

et si il te le faut en tant que nombre (la formule précédente restitue un texte, tu mets un CNUM

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CNUM((ARRONDI((A1-ARRONDI.INF (A1;0))*100;0))&(DROITE(B1;1))&(C1))

[airone76]

merci d'avoir été aussi rapide
je viens de tester la partie de cette formule bug mais le reste fonctionne
=ARRONDI((A1-ARRONDI.INF (A1;0))*100;0)

[EmmanuelleC]

Mmm, a vue de nez, c'est sans doute l'espace en trop

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ARRONDI((A1-ARRONDI.INF(A1;0))*100;0)

Mon excel est en anglais, il me semble que arrondi en francais, ca s'écrit comme ca, mais vérifie peut-etre dans l'éditeur de formule que ma formulation est ok
En anglais, j'ai testé ca et ca fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ROUND((A1-ROUNDDOWN(A1;0))*100;0)

[airone76]

oups désolé !!! ça vient de chez moi ... j'avais mis 3.19 au lieu de 3,19 !!!

encore merci pour ton aide .. et c'est vrai ta formulation était bonne merci pour m avoir fait gagner un temps précieux !!!

[EmmanuelleC]

A vue de nez, le contenu de ta case n'est pas considérée comme un nombre mais comme une chaine de caractere

essaue de faire CNUM(A1) a la place de A1 (ca convertit une chaine de caractere représentant un nombre en nombre)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=ARRONDI((CNUM(A1)-ARRONDI.INF(CNUM(A1);0))*100;0)

[airone76]

oups désolé !!! ça vient de chez moi ... j'avais mis 3.19 au lieu de 3,19 !!!

encore merci pour ton aide .. et c'est vrai ta formulation était bonne merci pour m avoir fait gagner un temps précieux !!!

[EmmanuelleC]

de rien

[alsimbad]

hello
au cas ou, une simple concaténation ?

=DROITE(B2;2)&DROITE(C2;1)&D2

[ullan]

Bonjour,

Petit problème : que fait-on lorsqu'il n'y a pas de décimales dans le prix, par exemple 3.00 ?

La formule suivante renvoie 0911

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=MOD(A2;1)*100&MOD(B2;1000)&C2

Pour obtenir 00911

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=(MOD(A2;1)*100&MOD(B2;1000)&C2)*1

au format 00000

[airone76]

franchement je trouve les interventions tip top sur ce forum
je reviendrai !!!!

[ullan]

Re,

Petit bémol !

Le MOD pour l'année ne fonctionne que jusqu'en 2009, après il renvoie deux chiffres.

Il y a lieu de remplacer cette partie de formule par :MOD(B2;10)