Comment reperer laposition de la virgule

Résolu
mylord666 Messages postés 151 Date d'inscription   Statut Membre Dernière intervention   -  
mylord666 Messages postés 151 Date d'inscription   Statut Membre Dernière intervention   -
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 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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   Statut Membre Dernière intervention   26
 
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   Statut Membre Dernière intervention  
 
merci beaucoup apprécie votre aide cela va mpermettre de progresser
0