Extraire les chiffres après la virgule

Fermé

sanaa590 - 28 avril 2011 à 11:54
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 - 30 avril 2011 à 16:33

Bonjour,

j'ai besoin d'une fonction VBA qui permet d'extraire les chiffres après
la virgule d'une chaine numérique.
j'ai tout essayer la fonctionne indexof ne marche pas la fonctionne substring aussi la méthode Mdi a l'intérieur d'une boucle avec la conditionne s'il trouve la virgule il m'affiche !!!!

merci de m'aidez :)

A voir également:

Excel récupérer chiffre après virgule
Liste déroulante excel - Guide
Recuperer video youtube - Guide
Comment récupérer un compte facebook piraté - Guide
Recuperer message whatsapp - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur

5 réponses

Réponse 1 / 5

Paf
28 avril 2011 à 12:40

bonjour,
ton nombre a t-il toujours le même nombre de chiffres après la virgule , et combien ?
partant de là, plusieurs solutions.

A+

sanaa590
28 avril 2011 à 14:48

bonjour ,
merci paf
non pas toujours mais je round pour avoir un seul nombre après la virgule

round(nombre,1)

et a partir de se chiffre :si il est supérieur ou inférieur pour que je puis terminer le traitement

Paf
28 avril 2011 à 17:41

re,
tu peux essayer de faire la différence entre ton nombre "roundé" et sa partie entière:

MonNB=round(nombre,1)
MonDécimal = MonNB - Int(MonNB)

si MonNB vaut 12,4 , MonDécimal vaudra 0,4

Bonne suite

sanaa590
29 avril 2011 à 09:36

re bonjour,

j'ai déjà essayé mais la soustraction me donne 0 il prend pas en considération la virgule :(

Réponse 3 / 5

Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 29/04/2011 à 22:05

Re,

En supposant que la plage à traiter est en colonne A à partir de A2, le code bouclera jusqu'à la dernière cellule non vide, associer le code Transfert à un bouton

Sub Transfert()
[A2].Select
If ActiveCell <> "" Then Extraire_Décimale_Comme_Chiffre_Entier
Do While ActiveCell <> "" 'Evite de relancer le code
ActiveCell.Offset(1, 0).Select
Extraire_Décimale_Comme_Chiffre_Entier
Loop
ActiveCell.Offset(0, 1).ClearContents
End Sub

Sub Extraire_Décimale_Comme_Chiffre_Entier()
Dim d As Double
d = ActiveCell
'MsgBox (Mid(Str(d), InStr(1, Str(d), ".") + 1))
ActiveCell.Offset(0, 1) = (Mid(Str(d), InStr(1, Str(d), ".") + 1))
ActiveCell.Offset(0, 1).NumberFormat = "00"
End Sub

Tiens moi au courrant

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.

sanaa590
30 avril 2011 à 01:20

salut

merci bien pour votre aide :)

je programme sous Access , je suis désolé de ne pas l'avoir mentionné au début.

Discussions similaires

Compter le nb de décimales (Excel version)

Javacript, 2 chiffres après la virgule

Excel : Extraire nombre de décimales

2 chiffres après la virgule en VB.Net

Excel:chiffres après virgule

[Excel] - Suppression des décimales inutiles

Discussions similaires

Newsletters