macro ou fonction ? pour générer un code à partir de 3 variables

Version imprimable

07/09/2009, 13h44
airone76

1 pièce(s) jointe(s)

macro ou fonction ? pour générer un code à partir de 3 variables

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
07/09/2009, 14h14
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:

=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:

=DROITE(B1;1)

on prend le premier caractere a partir de la droite

Le mois est concservé tel quel

Reste a regrouper

Code:

=(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:

=CNUM((ARRONDI((A1-ARRONDI.INF (A1;0))*100;0))&(DROITE(B1;1))&(C1))
07/09/2009, 14h55
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)
07/09/2009, 15h07
EmmanuelleC

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

Code:

=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:

=ROUND((A1-ROUNDDOWN(A1;0))*100;0)
07/09/2009, 15h34
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 !!!
07/09/2009, 15h42
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:

=ARRONDI((CNUM(A1)-ARRONDI.INF(CNUM(A1);0))*100;0)
07/09/2009, 15h45
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 !!!
08/09/2009, 08h23
EmmanuelleC

de rien :)
08/09/2009, 21h49
alsimbad

hello
au cas ou, une simple concaténation ?

Citation:

=DROITE(B2;2)&DROITE(C2;1)&D2
09/09/2009, 09h34
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:

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

Pour obtenir 00911

Code:

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

au format 00000
09/09/2009, 10h44
airone76

franchement je trouve les interventions tip top sur ce forum :ccool:
je reviendrai !!!!
09/09/2009, 11h20
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)