Discussion :

[Kyles]

Bonjour,

J'effectue le code suivant pour forcer 1 chiffre apres la virgule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Function myfunction() As Double
 
  Dim myVar As Double
  '....
  'Calcul
  '....
  myfunction = Format(myVar, "0.0")
End Function

a) si myVar = 1.0 la valeur retourné par myFunction est 1
b) si myVar = 1.1 la valeur retournée par myFunction est 1.1

Que faut il faire pour dans le cas a) myFunction retourne 1.0 et non 1.

Merci d'avance

[nicolas_151]

Bonjour

une solution simple
met ta fonction qui renvoi un caractère

comme ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Function myfunction() As String

Salut

[Pierre Fauconnier]

Bonjour

Personnellement, je ne vois pas l'utilité d'une fonction pour cela... Peux-tu détailler ce que tu souhaites réaliser?

[vince6262]

c'est simple, il suffit de vérifié changer le chiffre avant la virgule par 0 et de vérifier que la valeur obtenu =0 si oui, changer le format de myVar

Pour changer le 1er chiffre il y a 2 solutions :
1) récupérer ce qu il y a après la virgule et le concaténer avec 0

2) faire une boucle dans laquelle tu retire 1 à ta variable à chaque fois jusqu'à ce qu'elle soit inférieure à 1

[Pierre Fauconnier]

Bonsoir Vince6262

Heu... C'est quoi le lien avec la question initiale? moi, je ne vois pas...

[ucfoutu]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
  MsgBox myfunction(1)
  MsgBox myfunction(1.1)
  MsgBox myfunction(25.3)
  MsgBox myfunction(137)
End Sub
 
Function myfunction(coucou As Double) As String
  Dim couic As String
  couic = Str(coucou)
  myfunction = Format(coucou, "#.0")
End Function