[VBA E] pb d'incompatibilité

Version imprimable

02/03/2006, 11h52
massilia80

[VBA E] pb d'incompatibilité

bonjour,
je déclare mes deux variables en double, qd je rentre dans mon input box des valeurs entieres ca marche mais des que je met un réél il me met une errueur d'incompatibilité.

cycle = InputBox("Entrez le temps de cycle en secondes pour la référence " & ref, "input")

pourtant cycle est déclaré en double.

Pouvez vous m'expliquer
merci
02/03/2006, 11h56
ouskel'n'or

Code:

Cycle = cdbl(InputBox("Entrez le temps de cycle en secondes pour la référence " & ref, "input") )

Essaie avec ça

A+
02/03/2006, 11h58
Megaxel

Peut-être: c'est quoi, ton séparateur décimal?
:D

[Edit] Tiens!? Salut Ousk ! [/Edit]
02/03/2006, 12h05
massilia80

merci mais il me met tjrs le mm probleme d'incompatibilité.

C'est quoi un séparateur décimal?
02/03/2006, 12h06
Megaxel

Quand tu entres ton réel, tu mets
12.214
ou
12,214 ?
02/03/2006, 12h12
ouskel'n'or

Génial Megaselle !

massilia80
Si tu mets un point, tu as effectivement une erreur, avec une virgule, ça passe.

Va falloir que tu passes par un string et remplacer le point par une virgule si l'utilisateur entre un point

A+

Ou tu fais une gestion d'erreur

Code:

1
2
3
4
5
6
7
8
9
10
11
On Error Resume Next
    Do
        Err.Clear
        Cycle = CDbl(InputBox("Entrez le temps de cycle en secondes pour la référence " & ref, "input"))
        ok = Err = 0 Or Cycle = 0
        If Err <> 0 Then
            ok = False
            MsgBox "T'as mis un point, patate, c'est une virgule qui faut !"
        End If
    Loop While Not ok
On Error GoTo 0

A+

02/03/2006, 12h26
SilkyRoad

bonjour

tu peux faire un essai en utilisant

Code:

Dim Cycle As Single

bonne journée
michel

Fuseau horaire GMT +2. Il est actuellement 16h02.