Problème format de variable

cchampion2fr · 09/10/2008, 13h44

Bonjour,

je souhaiterais recuperer seulement les decimales d'un chiffre.

exemple : 4500.23

recuperer que 23.

Je ne vois pas trop comment faire ...

Merci d'avance.

helios77 · 09/10/2008, 14h03

tu veux faire çà selon une formule Excel ou par du code VBA ?
Tes décimales, y en aura toujours que 2 ?

cchampion2fr · 09/10/2008, 14h06

par du code vba!
sur excel c'est trop facile

Oui 2 decimales.

Je recupere en fait le chiffre dans une variable toto.

helios77 · 09/10/2008, 14h12

Tu peux essayer ceci

Code :

 
Dim toto As Double
toto = 4025.83
toto = toto - CInt(toto)
If toto < 0 Then toto = toto + 1
 
MsgBox Round(toto * 100)

cchampion2fr · 09/10/2008, 14h16

merci..
mais pas un truc plus simple..?? formatage cellule par exemple

cchampion2fr · 09/10/2008, 15h04

Je viens d'essayer ca ne marche pas...

qq a une idee pour recuperer les decimales svp?

ucfoutu · 09/10/2008, 15h46

Bonjour,
Si ton séparateur est bien le point et que ce que tu récupères est bien de type numérique (et pas string) :

Code :

Dim toto As Single, resul As Single
 toto = 4025.83
 'Il est iumportant de passer par resul déclaré en single (sinon ===>> 82.999999....)
 resul = (toto - Int(toto)) * 100
 MsgBox resul

que tu pourraus d'ailleurs faire également ainsi :

Code :

resul = (toto * 100 Mod Int(toto))

cchampion2fr · 09/10/2008, 18h00

Cela marche mais pas du tout si on a des 0 apres la virgule.

Exemple : 0.0005666
Recuperer les 4 premiers chiffres apres la virgule..

je ne vois pas comment faire!!
qq a une idee?
Merci

Pierre Fauconnier · 09/10/2008, 18h12

Bonjour

C'est avant tout un problème de math (voire un problème d'arithmétique)

Il faut vraiment y mettre du tien si tu ne veux pas décourager les contributeurs de ce forum...

Code :

Sub Test()
Dim toto
Dim nombre
 
toto = 45.0056788
nombre = 4
toto = Int((toto - Int(toto)) * 10 ^ nombre)
toto = Format(toto, String(nombre, "0"))
End Sub

Si tu veux 5 décimales, tu adaptes en modifiant la valeur de Nombre...

Forme condensée

Code :

toto = 45.0056788
nombre = 4
toto = Format(Int((toto - Int(toto)) * 10 ^ nombre), String(nombre, "0"))

Question (sans me vouloir blessant): Comprends-tu ce code ou te contentes-tu de l'appliquer sans le comprendre?

Ceci n'est jamais que le regroupement de tes nombreuses questions qui tirent tous azimuts. Tu dois, si tu veux progresser, comprendre ce que tu fais et empiler tes briques de connaissances...

jacques_jean · 09/10/2008, 18h17

Bonjour,

Helios77 :

Citation:

Tes décimales, y en aura toujours que 2 ?

Votre réponse :

Citation:

Oui 2 decimales.

et maintenant :

Citation:

Cela marche mais pas du tout si on a des 0 apres la virgule.

Exemple : 0.0005666
Recuperer les 4 premiers chiffres apres la virgule..

???????

Heureusement qu'il y a des répondeurs persévérants.

cchampion2fr · 09/10/2008, 18h22

merci.

je comprenais le truc avant mais là c'est quand meme different je trouve....

je ne poserai pas des questions sans avoir cherché au prealable qd meme...!

desole.

Jacques jean-->je ne travaille pas que sur une seul probleme..et oui il n'y avait que 2 decimales dans ce que je voulais au debut mais dans la suite et dans un autre fichier que je devais traité, les 4 chiffres apres la virgules sont apparus pour 4....

je dois retravailler apres le chiffre en plus donc ca perturbe aussi pas mal...bref merci!

ucfoutu · 09/10/2008, 18h31

Citation:

Envoyé par cchampion2fr

merci.

je comprenais le truc avant mais là c'est quand meme different je trouve....

je ne poserai pas des questions sans avoir cherché au prealable qd meme...!

desole.

Et alors ,
Des méthodes différentes, tu en trouveras autant que tes neurones les chercheront...
En voilà une autre :

Code :

Dim toto As Double, totostr As String
toto = 45.0056788
totostr = Trim(Str(toto))
MsgBox Mid(totostr, InStr(totostr, ".") + 1)

et on peut en inventer d'autres...
Celle-là aura pour seul mérite celui de te forcer à étudier, dans ton aide en ligne, Mid, Trim, Str et Instr ...

Que celà te perturbe "pas mal" est normal... comme est normal que le développement n'est pas une partie de marelle...
Pour l'instant, nous sommes ceux qui sommes perturbés... par ton flot de questions "pas à pas" qui donne l'impression que ton développement n'est précédé d'aucune analyse... comme si tu avançais sans même savoir où tu veux aller exactement... C'est plutôt gênant.

Ormonth · 09/10/2008, 18h36

Bonsoir,

Une autre piste (pas une soluce) qui se moque du nombre de décimale, pour peu qu'il y en ait

Code :

Sub gg()
Dim toto As Variant
 
toto = CStr(Cells(8, 2))
toto = Mid(toto, InStr(toto, ".") + 1)
toto = Val(toto)
MsgBox toto
 
End Sub

à décortiquer avec F1 sur les mots clefs et en réfléchissant sur le choix du séparateur de décimales

cordialement,

Didier

09/10/2008, 13h44	#1 (permalink)
cchampion2fr Débutant(e) Date d'inscription: septembre 2005 Messages: 122	Problème format de variable Bonjour, je souhaiterais recuperer seulement les decimales d'un chiffre. exemple : 4500.23 recuperer que 23. Je ne vois pas trop comment faire ... Merci d'avance.

09/10/2008, 14h12	#4 (permalink)
helios77 Membre éprouvé Date d'inscription: juillet 2004 Messages: 436	Tu peux essayer ceci Code : Dim toto As Double toto = 4025.83 toto = toto - CInt(toto) If toto < 0 Then toto = toto + 1 MsgBox Round(toto * 100)

09/10/2008, 15h46	#7 (permalink)
ucfoutu Inscrit(e) Date d'inscription: juillet 2007 Localisation: au pays de la liberté d'esprit Messages: 3 109	Bonjour, Si ton séparateur est bien le point et que ce que tu récupères est bien de type numérique (et pas string) : Code : Dim toto As Single, resul As Single toto = 4025.83 'Il est iumportant de passer par resul déclaré en single (sinon ===>> 82.999999....) resul = (toto - Int(toto)) * 100 MsgBox resul que tu pourraus d'ailleurs faire également ainsi : Code : resul = (toto * 100 Mod Int(toto)) __________________ Deux points essentiels à mes yeux : 1) Je ne regarde ni n'analyse aucun fichier joint, mais uniquement les portions de code incluses et donc affichées et commentées dans une discussion. 2) j'abandonne carrément (et sans appel) ma participation à une discussion dès lors qu'est posée une seconde question différente de la première (et ce, même si, dans l'esprit du demandeur, la 2ème est "complémentaire" de la 1ère). 3) ATTENTION : si je reçois un MP relatif à une question technique sans mon consentement ou mon invite à le faire ===>> a) je n'y réponds pas et b) je fais en sorte que l'expéditeur ne puisse plus m'adresser de MP

09/10/2008, 18h12	#9 (permalink)
Pierre Fauconnier Rédacteur/Modérateur Date d'inscription: novembre 2003 Localisation: Theux (Belgique) Âge: 41 Messages: 3 112	Bonjour C'est avant tout un problème de math (voire un problème d'arithmétique) Il faut vraiment y mettre du tien si tu ne veux pas décourager les contributeurs de ce forum... Code : Sub Test() Dim toto Dim nombre toto = 45.0056788 nombre = 4 toto = Int((toto - Int(toto)) * 10 ^ nombre) toto = Format(toto, String(nombre, "0")) End Sub Si tu veux 5 décimales, tu adaptes en modifiant la valeur de Nombre... Forme condensée Code : toto = 45.0056788 nombre = 4 toto = Format(Int((toto - Int(toto)) * 10 ^ nombre), String(nombre, "0")) Question (sans me vouloir blessant): Comprends-tu ce code ou te contentes-tu de l'appliquer sans le comprendre? Ceci n'est jamais que le regroupement de tes nombreuses questions qui tirent tous azimuts. Tu dois, si tu veux progresser, comprendre ce que tu fais et empiler tes briques de connaissances... __________________ Pierre Fauconnier -------------------- "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire) Pensez au tag Mon blog sur DVP - Mes petits papiers sur DVP Je ne peux en aucun cas être tenu pour responsable des conséquences de l'utilisation des codes que je fournis dans le cadre des réponses apportées sur les forums, même s'il s'avérait que ces codes sont erronés ou amènent à des dysfonctionnements, de manière manifeste ou non. Dernière modification par Pierre Fauconnier ; 09/10/2008 à 18h26

09/10/2008, 18h22	#11 (permalink)
cchampion2fr Débutant(e) Date d'inscription: septembre 2005 Messages: 122	merci. je comprenais le truc avant mais là c'est quand meme different je trouve.... je ne poserai pas des questions sans avoir cherché au prealable qd meme...! desole. Jacques jean-->je ne travaille pas que sur une seul probleme..et oui il n'y avait que 2 decimales dans ce que je voulais au debut mais dans la suite et dans un autre fichier que je devais traité, les 4 chiffres apres la virgules sont apparus pour 4.... je dois retravailler apres le chiffre en plus donc ca perturbe aussi pas mal...bref merci! Dernière modification par Pierre Fauconnier ; 09/10/2008 à 19h33 Motif: Merci d'éditer le message pour le modifier ou le compléter

09/10/2008, 14h03	#2 (permalink)
helios77 Membre éprouvé Date d'inscription: juillet 2004 Messages: 436	tu veux faire çà selon une formule Excel ou par du code VBA ? Tes décimales, y en aura toujours que 2 ?

09/10/2008, 14h06	#3 (permalink)
cchampion2fr Débutant(e) Date d'inscription: septembre 2005 Messages: 122	par du code vba! sur excel c'est trop facile Oui 2 decimales. Je recupere en fait le chiffre dans une variable toto.

09/10/2008, 14h16	#5 (permalink)
cchampion2fr Débutant(e) Date d'inscription: septembre 2005 Messages: 122	merci.. mais pas un truc plus simple..?? formatage cellule par exemple

09/10/2008, 15h04	#6 (permalink)
cchampion2fr Débutant(e) Date d'inscription: septembre 2005 Messages: 122	Je viens d'essayer ca ne marche pas... qq a une idee pour recuperer les decimales svp?

09/10/2008, 18h00	#8 (permalink)
cchampion2fr Débutant(e) Date d'inscription: septembre 2005 Messages: 122	Cela marche mais pas du tout si on a des 0 apres la virgule. Exemple : 0.0005666 Recuperer les 4 premiers chiffres apres la virgule.. je ne vois pas comment faire!! qq a une idee? Merci

09/10/2008, 18h36	#13 (permalink)
Ormonth Membre habitué Date d'inscription: février 2008 Localisation: Loire Atlantique Messages: 164	Bonsoir, Une autre piste (pas une soluce) qui se moque du nombre de décimale, pour peu qu'il y en ait Code : Sub gg() Dim toto As Variant toto = CStr(Cells(8, 2)) toto = Mid(toto, InStr(toto, ".") + 1) toto = Val(toto) MsgBox toto End Sub à décortiquer avec F1 sur les mots clefs et en réfléchissant sur le choix du séparateur de décimales cordialement, Didier __________________ Didier Gonard N'oubliez pas de mettre : ..quand c'est le cas ! Dernière modification par Caro-Line ; 09/10/2008 à 18h38 Motif: Et les balises code alors ?

		Forum des développeurs > Hardware, Systèmes et Logiciels > Microsoft Office > Excel > VBA Excel
Problème format de variable

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email