Problème mathèmatique VBA
Bonjour,
Je fait appel à vous car je suis entrain de développer une interface graphique en VBA via excel. Dans cet interface il y a une textbox et un bouton, je souhaiterais convertir une nombre à virgule en code comme ceci :
Par exemple :
Si je tape 5.2 dans ma textbox le code seras = 005 020
Si je tape 6.8 dans ma textbox le code seras = 006 080
Si je tape 12.8 dans ma textbox le code seras = 012 080
Mais comment faire... J'ai beau chercher je ne trouve pas.
Je vous remercie d'avance pour votre aide et je reste disponible pour d'éventuelle question.
Cordialement,
Mica.
A savoir qu'une fonction capable de stocker le chiffre avant la virgule dans une variable et le chiffre après la virgule dans une autre me satisferais. Mais je ne voie pas du tout comment faire sa à partir d'une textbox...
Merci d'avance pour votre aide.
Bonjour
Un essai
Me.TextBox2 = Right("000" & Left(Me.TextBox1, InStr(1, Me.TextBox1, ".") - 1), 3) & " " & Right("000" & Mid(Me.TextBox1, InStr(1, Me.TextBox1, ".") + 1), 3)Bonsoir à tous,
autre proposition :
code = Format(Split(TextBox1, ".")(0), "000") & " " & Format(Split(TextBox1, ".")(1), "000")eric