Comment reperer laposition de la virgule

Résolu/Fermé
mylord666 Messages postés 151 Date d'inscription jeudi 26 juin 2014 Statut Membre Dernière intervention 9 septembre 2015 - 19 nov. 2014 à 16:15
mylord666 Messages postés 151 Date d'inscription jeudi 26 juin 2014 Statut Membre Dernière intervention 9 septembre 2015 - 19 nov. 2014 à 23:01
Bonjour,


je viens de rencontrer un soucis qui pourrait m'indiquer comment repérer la position dans un nombre décimal o,000 à 00000,000 ce nombre est le résultat d'une division
merci encore de votre aide
>

2 réponses

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
19 nov. 2014 à 16:24
Bonjour,

nombre décimal o,000 à 00000,000 position toujours la meme, 4 en partant de la droite !!!!!!!!!!!

Que voulez vous en faire ?????
0
PlacageGranby Messages postés 393 Date d'inscription mercredi 26 mars 2014 Statut Membre Dernière intervention 7 mars 2019 26
19 nov. 2014 à 16:33
Converti le nombre en texte avec cstr()
Recherche le texte pour la position d'un caractère défini avec instr()


Sub Macro1()

Dim nombre As Double
Dim position As Integer
Dim chaine As String

nombre = 123.123
chaine = CStr(nombre)
position = InStr(chaine, ",")

MsgBox "Position de 123.123 = " & position

nombre = 12345678.123
chaine = CStr(nombre)
position = InStr(chaine, ",")
MsgBox "Position de 12345678.123 = " & position
         
End Sub


Si tu as d'autre question, il y a aussi les fonctions left() et right() qui peuvent être utile
0
mylord666 Messages postés 151 Date d'inscription jeudi 26 juin 2014 Statut Membre Dernière intervention 9 septembre 2015
19 nov. 2014 à 23:01
merci beaucoup apprécie votre aide cela va mpermettre de progresser
0