Aller au contenu
  • 0
Zoro

Format texte en format nobre

Question

Exist-il un moyen de transférer des nombres dans une rubrique au format texte en un nombre pour fin de calcul ?

Partager ce message


Lien à poster
Partager sur d’autres sites

7 réponses à cette question

Messages recommandés

  • 0
3 hours ago, Zoro said:

Exist-il un moyen de transférer des nombres dans une rubrique au format texte en un nombre pour fin de calcul ?

la fonction ObtenirNombre ( rubrique ) devrait faire l'affaire


bien à toi,

Tanguy

 

Partager ce message


Lien à poster
Partager sur d’autres sites
  • 0

Avec cette fonction comme avec d'autres j'obtiens toujours un résultat ex ( 1,562e+15 ) en format nombre, pas utile.

Partager ce message


Lien à poster
Partager sur d’autres sites
  • 0

Bonjour

Augmenter le nombre de décimal et agrandir la rubrique.

Bonne journée

Partager ce message


Lien à poster
Partager sur d’autres sites
  • 0

Merci temp007,

tu n'a pas la bonne réponse mais tu me l'a fait découvrir.

Une subtilité de fmp, j'ai changé le format "général" pour "tel que saisi" et l'affichage est correct.

Le coupable était "général".

 

Partager ce message


Lien à poster
Partager sur d’autres sites
  • 0

Un peu long mais cas fonctionne bien si tu veux utiliser tel quel il va falloir crée une la variable MONTANT sur lle resulta au format texteequel le calul se fait pense de mettre  le resultat au format texte :hello:


Cas(ObtenirNombre(montant) > 0 ;

Cas(Ent(Mod(montant;10^12)/10^9) > 0 ;
Choisir(
Ent(Mod(montant;10^12) / 10^11); ""; "cent "; "deux cent "; "trois cent "; "quatre cent "; "cinq cent "; "six cent "; "sept cent "; "huit  cent "; "neuf cent ") &

Cas(
Ent(Mod(montant;10^11) / 10^10) = 1;
Choisir(Ent(Mod(montant;10^10) / 10^9); "dix "; "onze "; "douze "; "treize "; "quatorze "; "quinze "; "seize "; "dix-sept "; "dix-huit "; "dix-neuf ");
Ent(Mod(montant;10^11) / 10^10) = 7;
"soixante " & Choisir(Ent(Mod(montant;10^10) / 10^9); "dix "; "et onze "; "douze ";"treize "; "quatorze "; "quinze "; "seize "; "dix-sept "; "dix-huit "; "dix-neuf ");
Ent(Mod(montant;10^11) / 10^10) = 9;
"quatre-vingt-" & Choisir(Ent(Mod(montant;10^10) / 10^9); "dix "; "onze "; "douze "; "treize "; "quatorze "; "quinze "; "seize "; "dix sept "; "dix huit "; "dix neuf ");

Cas(
Ent(Mod(montant;10^11) / 10^10) > 1 And Ent(Mod(montant;10^11) / 10^10) < 7 And Ent(Mod(montant;10^10)/10^9) = 1;
Choisir(Ent(Mod(montant;10^11) / 10^10); ""; ""; "vingt et ";"trente et ";"quarante et "; "cinquante et "; "soixante et ");
Choisir(Ent(Mod(montant;10^11) / 10^10); ""; ""; "vingt "; "trente "; "quarante "; "cinquante "; "soixante "; "soixante dix "; "quatre-vingt" & Cas( Ent(Mod(montant;10^10)/10^9) = 0; "s "; " "); "quatre-vingt-dix ")) &

Choisir(Ent(Mod(montant;10^10) / 10^9); ""; "un "; "deux "; "trois "; "quatre "; "cinq "; "six "; "sept "; "huit "; "neuf ")) &

Cas(Ent(Mod(montant;10^12)/10^9)=1;"milliard "; Ent(Mod(montant;10^12)/10^9) > 1; "milliards "; "");
"")


&


Cas(Ent(Mod(montant;10^9)/10^6) > 0 ;
Choisir(
Ent(Mod(montant;10^9) / 10^8); ""; "cent "; "deux cent "; "trois cent "; "quatre cent "; "cinq cent "; "six cent "; "sept cent "; "huit cent "; "neuf cent ") &

Cas(
Ent(Mod(montant;10^8) / 10^7) = 1;
Choisir(Ent(Mod(montant;10^7) / 10^6); "dix "; "onze "; "douze "; "treize "; "quatorze "; "quinze "; "seize "; "dix-sept "; "dix-huit "; "dix-neuf ");
Ent(Mod(montant;10^8) / 10^7) = 7;
"soixante " & Choisir(Ent(Mod(montant;10^7) / 10^6); "dix "; "et onze "; "douze";"treize "; "quatorze "; "quinze "; "seize "; "dix-sept "; "dix-huit "; "dix-neuf ");
Ent(Mod(montant;10^8) / 10^7) = 9;
"quatre-vingt-" & Choisir(Ent(Mod(montant;10^7) / 10^6); "dix "; "onze "; "douze "; "treize "; "quatorze "; "quinze "; "seize "; "dix-sept "; "dix-huit "; "dix-neuf ");

Cas(
Ent(Mod(montant;10^8) / 10^7) > 1 And Ent(Mod(montant;10^8) / 10^7) < 7 And Ent(Mod(montant;10^7)/10^6) = 1;
Choisir(Ent(Mod(montant;10^8) / 10^7); ""; ""; "vingt et ";"trente et ";"quarante et "; "cinquante et "; "soixante et ");
Choisir(Ent(Mod(montant;10^8) / 10^7); ""; ""; "vingt "; "trente "; "quarante "; "cinquante "; "soixante "; "soixante dix "; "quatre-vingt" & Cas( Ent(Mod(montant;10^7)/10^6) = 0; "s "; " "); "quatre-vingt-dix ")) &

Choisir(Ent(Mod(montant;10^7) / 10^6); "";   "un " ; "deux "; "trois "; "quatre "; "cinq "; "six "; "sept "; "huit "; "neuf ")) &

Cas(Ent(Mod(montant;10^9)/10^6) = 1;"million "; Ent(Mod(montant;10^9)/10^6) > 1; "millions "; "") & Cas(Mod(montant;10^6) = 1; "et " ; "") ;
"")


&


Cas(Ent(Mod(montant;10^6)/10^3) > 0 ;
Choisir(
Ent(Mod(montant;10^6) / 10^5); ""; "cent "; "deux cent "; "trois cent "; "quatre cent "; "cinq cent "; "six cent "; "sept cent "; "huit cent "; "neuf cent ") &

Cas(
Ent(Mod(montant;10^5) / 10^4) = 1;
Choisir(Ent(Mod(montant;10^4) / 10^3); "dix "; "onze "; "douze "; "treize "; "quatorze "; "quinze "; "seize "; "dix-sept "; "dix-huit "; "dix-neuf ");
Ent(Mod(montant;10^5) / 10^4) = 7;
"soixante " & Choisir(Ent(Mod(montant;10^4) / 10^3); "dix "; "et onze "; "douze";"treize "; "quatorze "; "quinze "; "seize "; "dix-sept "; "dix-huit "; "dix-neuf ");
Ent(Mod(montant;10^5) / 10^4) = 9;
"quatre-vingt-" & Choisir(Ent(Mod(montant;10^4) / 10^3); "dix "; "onze "; "douze "; "treize "; "quatorze "; "quinze "; "seize "; "dix-sept "; "dix-huit "; "dix-neuf ");

Cas(
Ent(Mod(montant;10^5) / 10^4) > 1 And Ent(Mod(montant;10^5) / 10^4) < 7 And Ent(Mod(montant;10^4)/10^3) = 1;
Choisir(Ent(Mod(montant;10^5) / 10^4); ""; ""; "vingt et ";"trente et ";"quarante et "; "cinquante et "; "soixante et ");
Choisir(Ent(Mod(montant;10^5) / 10^4); ""; ""; "vingt "; "trente "; "quarante "; "cinquante "; "soixante "; "soixante-dix "; "quatre-vingt" & Cas( Ent(Mod(montant;10^4)/10^3) = 0; "s "; " "); "quatre-vingt-dix ")) &

Choisir(Ent(Mod(montant;10^4) / 10^3); "";  Cas( Ent(Mod(montant;10^5) / 10^4) = 0 ; ""; "un " ) ; "deux "; "trois "; "quatre "; "cinq "; "six "; "sept "; "huit "; "neuf ")) &

Cas(Ent(Mod(montant;10^6)/10^3) > 1 And Ent(Mod(montant;10^5)/10^3) = 1 And Ent(Mod(montant;10^4)/10^3) = 1 ; "un "; "" ) &
Cas(Ent(Mod(montant;10^6)/10^3) >= 1;"mille " & Cas( Ent(Mod(montant;10^4)/10^3) And Mod(montant;10^3) = 1 ; "et " ; "") ; "") ;
"")


&


Cas(Mod(montant;100)/10 = 0 And Mod(montant;1) = 0;
Choisir(Ent(Mod(montant;10^3) / 100); ""; "cent "; "deux cents "; "trois cents "; "quatre cents "; "cinq cents "; "six cents "; "sept cents "; "huit cents "; "neuf cents ");
Choisir(Ent(Mod(montant;10^3) / 100); ""; "cent "; "deux cent "; "trois cent "; "quatre cent "; "cinq cent "; "six cent "; "sept cent "; "huit cent "; "neuf cent "))  &

Cas(
Ent(Mod(montant;100) / 10) = 1;
Choisir(Ent(Mod(montant;10)); "dix "; "onze "; "douze "; "treize "; "quatorze "; "quinze "; "seize "; "dix-sept "; "dix-huit "; "dix-neuf ");
Ent(Mod(montant;100) / 10) = 7;
"soixante " & Choisir(Ent(Mod(montant;10)); "dix "; "et onze "; "douze ";"treize "; "quatorze "; "quinze "; "seize "; "dix-sept "; "dix-huit "; "dix-neuf ");
Ent(Mod(montant;100) / 10) = 9;
"quatre-vingt-" & Choisir(Ent(Mod(montant;10)); "dix "; "onze "; "douze "; "treize "; "quatorze "; "quinze "; "seize "; "dix-sept "; "dix-huit "; "dix-neuf ");

Cas(
Ent(Mod(montant;100) / 10) > 1 And Ent(Mod(montant;100) / 10) < 7 And Ent(Mod(montant;10)) = 1;
Choisir(Ent(Mod(montant;100) / 10); ""; ""; "vingt et ";"trente et ";"quarante et "; "cinquante et "; "soixante et ");
Choisir(Ent(Mod(montant;100) / 10); ""; ""; "vingt "; "trente "; "quarante "; "cinquante "; "soixante "; "soixante-dix "; "quatre-vingt" & Cas(Ent(Mod(montant;10)) = 0; "s "; " "); "quatre-vingt-dix ")) &

Choisir(Ent(Mod(montant;10)); ""; "un "; "deux "; "trois "; "quatre "; "cinq "; "six "; "sept "; "huit "; "neuf ")) &

Cas(Mod(montant;10^7)/10^6 = 1 And Ent(Mod(montant;10^6)) = 0  Or Mod(montant;10^10)/10^9 = 1 And Ent(Mod(montant;10^9)) = 0; "d'"; "") &

Cas(Ent(Mod(montant;10^12)) > 0 ; "euro" & Cas( Ent(montant) > 1; "s" ; "") ; "") &
//Cas(ObtenirNombre(Montant) >=0 And Montant - Ent(Montant) > 0 ; "" ; " ***") &
Cas(Ent(montant) And Mod(montant; Ent(montant)) ; " et " ; "")


&


Cas(montant - Ent(montant) > 0;

Cas(
Mod(Ent(montant*10); 10) = 1;  
Choisir(Ent(Mod(montant*100;10)); "dix "; "onze "; "douze "; "treize "; "quatorze "; "quinze "; "seize "; "dix sept "; "dix huit "; "dix neuf ");
Mod(Ent(montant*10); 10) = 7;
"soixante " & Choisir(Mod(Ent(montant*100); 10); "dix "; "et onze "; "douze ";"treize "; "quatorze "; "quinze "; "seize "; "dix-sept "; "dix-huit "; "dix-neuf ") ;
Mod(Ent(montant*10); 10) = 9;
"quatre-vingt-" & Choisir(Mod(Ent(montant*100); 10); "dix "; "onze "; "douze "; "treize "; "quatorze "; "quinze "; "seize "; "dix-sept "; "dix-huit "; "dix-neuf ") ;

Cas(
Mod(Ent(montant*10); 10) > 1 And Mod(Ent(montant*10); 10) < 7 And Mod(Ent(montant*100); 10) = 1;
Choisir(Ent(Mod(montant*10;10)); ""; ""; "vingt et ";"trente et ";"quarante et "; "cinquante et "; "soixante et ");
Choisir(Ent(Mod(montant*10;10)); ""; ""; "vingt "; "trente "; "quarante "; "cinquante "; "soixante "; "soixante dix "; "quatre-vingt "; "quatre-vingt-dix ")) &

Choisir(Mod(Ent(montant*100); 10); ""; "un "; "deux "; "trois "; "quatre "; "cinq "; "six "; "sept "; "huit "; "neuf ")) &

"centime" & Cas(Mod(montant; 1) > ,01 ; "s"; "") & Cas( Ent(montant) = 0 And Mod(montant; 10) > 0; " d'euro"; "") ;
"");

"")

Partager ce message


Lien à poster
Partager sur d’autres sites
  • 0

Merci soina06,

                         ce n'était pas l'objectif de ma question mais je garde soigneusement ta formule pour utilisation ultérieur

Partager ce message


Lien à poster
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant


  • En ligne récemment   0 membre est en ligne

    Aucun utilisateur enregistré regarde cette page.

×