comment reperer laposition de la virgule Résolu

Question

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
>

f894009 · Answer

Bonjour,

nombre décimal o,000 à 00000,000 position toujours la meme, 4 en partant de la droite !!!!!!!!!!!

Que voulez vous en faire ?????

PlacageGranby · Answer

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

Comment reperer laposition de la virgule

2 réponses

Discussions similaires

Newsletters