[VBA] Pb de Decimal [Résolu]

[Kyles]

Bonjour,

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

Code :

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 :

 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 :

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

[Pierre Fauconnier]

Bonjour Ucfoutu

Je ne vois pas l'intérêt de passer par une variable string

Code :

1
2
3
Function myfunction(coucou As Double) As String
  myfunction = Format(coucou, "#.0")
End Function

fonctionne très bien, d'où ma question sur l'utilité d'une fonction de ce genre (sauf dans le cas d'un exercice ultra basique dont, en tant que formateur, je ne saisis pas la porté pédagogique...)

Pour ma part, créer une fonction d'une ligne qui sera appelée par une ligne de code pour remplacer une ligne de code qui appellerait directement la fonction Format me semble totalement absurde... Sauf à découvrir les vraies (et complètes) motivations de Kiles...

[ucfoutu]

Bonjour, Pierre Fauconnier,

J'ai simplement oublié d'effacer les 2 lignes avec couic (dont tu auras remarqué que je ne l'utilise pas )

Pour le reste, ce n'était qu'un exemple, car notre ami parle de calculs dans sa fonction (à laquelle il ne passe curieusement aucun paramètre...)

[Pierre Fauconnier]

Bonjour ucfoutu,

Comme Kiles ne donne pas signe de vie depuis le 14, je vais attendre qu'il se manifeste...

Bon week-end.

[Kyles]

Bonjour,

Envoyé par Pierre Fauconnier

Bonjour ucfoutu,

Comme Kiles ne donne pas signe de vie depuis le 14, je vais attendre qu'il se manifeste...

Bon week-end.

Désolé pour le temps de réponse

Envoyé par ucfoutu

Bonjour, Pierre Fauconnier,
Pour le reste, ce n'était qu'un exemple, car notre ami parle de calculs dans sa fonction (à laquelle il ne passe curieusement aucun paramètre...)

la fonction en elle même ne sert à rien.. je devais être fatigué ce jour là...

Le problème se présentait lorsque la valeur apres la virgule est 0
Je souhaitais, que le nombre affiché soit N.x pour x = 0...n

si N = 1.0 alors la valeur affichée est 1 (KO)
SI N = 1.1 la valeur affichée est 1.1 (OK)

réponse ci-dessous :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Sub test2()
 
    Dim myvar As Double
 
    myvar = 1.1
 
    Debug.Print myvar
 
    myvar = 1
 
    Debug.Print Format(myvar, "#.0")
End Sub

Merci pour votre aide.