[VBA E] pb d'incompatibilité

**massilia80** · 02/03/2006, 11h52

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

**ouskel'n'or** · 02/03/2006, 11h56

Code :

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

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

Essaie avec ça

A+

**Megaxel** · 02/03/2006, 11h58

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

[Edit] Tiens!? Salut Ousk ! [/Edit]

**massilia80** · 02/03/2006, 12h05

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

C'est quoi un séparateur décimal?

**Megaxel** · 02/03/2006, 12h06

Quand tu entres ton réel, tu mets
12.214
ou
12,214 ?

**ouskel'n'or** · 02/03/2006, 12h12

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+

**ouskel'n'or** · 02/03/2006, 12h24

Ou tu fais une gestion d'erreur

Code :

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

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+